سوال در مورد environ

[gachboy]

سلام
در برنامم می خوام اگر مسیر برنامم با مسیر temp یکی بود بک گروند برنامم قرمز بشه که با کد زیر این کار میکنم :

if app.path=environ("temp") then form1.backcolor=vbred

اما اگرهم برنامم داخل temp باشه بک گروند قرمز نمیشه چون مسیری که environ میده با مسیری که app.path میده یکی نیست!
به نظرتون باید چکار کنم؟

[محسن واژدی]

سلام علیکم
چک کنید Appearance فرم بر روی Flat نباشد، اگه بود 3D را انتخاب کنید

موفق باشید

[gachboy]

مشکل از فرم نیست! مشکل از ادرس هاییه که میدن مثلا :
app.patch ادرس C:\Documents and Settings\Olive\Desktop میده ولی environ"temp" ادرس C:\DOCUME~1\Olive\LOCALS~1\Temp میده!
این دوتا ادرس هم با هم فرق داره!
می خوام تست کنم اگه برنامم داخل temp بود بک گروند قرمز بشه ولی دوتا ادرس بالایی با هم فرق دارن!

[gachboy]

ببخشید app.path ادرس زیر میده :

C:\Documents and Settings\Olive\Local Settings\Temp

ولی environ ادرس زیر :

C:\DOCUME~1\Olive\LOCALS~1\Temp

[محسن واژدی]

مشکل از فرم نیست! مشکل از ادرس هاییه که میدن مثلا:
app.patch ادرس C:\Documents and Settings\Olive\Desktop میده ولی environ"temp" ادرس C:\DOCUME~1\Olive\LOCALS~1\Temp میده!
این دوتا ادرس هم با هم فرق داره!
می خوام تست کنم اگه برنامم داخل temp بود بک گروند قرمز بشه ولی دوتا ادرس بالایی با هم فرق دارن!

به دو روش میتونید این مشکل برطرف کنید، یکی یا آدرس Temp را از حالت کوتاه شده خارج کنید یا آدرس برنامه را کوتاه کنید، کد زیر آدرس برنامه را کوتاه کرده است،:

Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long



Public Function GetShortName(sFile As String) As String

    On Error Resume Next

    Dim sShortFile As String * 255

    Dim lResult As Long

    lResult = GetShortPathName(sFile, sShortFile, Len(sShortFile))

    GetShortName = Left$(sShortFile, lResult)

End Function



Private Sub Command1_Click()

  If Environ("tmp") = GetShortName(App.Path) Then MsgBox "OK..", vbInformation

End Sub

موفق باشید

[gachboy]

تابع GetShortPathName از توابع api؟؟
انتی ویروس بهش گیر نمیده؟؟

[محسن واژدی]

تابع GetShortPathName از توابع api؟؟
انتی ویروس بهش گیر نمیده؟؟

GetShortPathNameاز توابع ذاتی ویندوزه، دلیلی نداره آنتی ویروس ممانعت کنه!!