مسیر Application Data

[xrezax]

بچه ها چطور برای برنامم تعریف کنم که مسیر C:\Documents and Settings\Seven\Application Data\ پیدا کنه. هم وی xp و هم توی seven

کلمه قرمز متغییره

[MohammadGh2011]

سلام عليکم
شما درلينک زير هم يه تاپيک زديد و پاسخ داده شده با استفاده از همون کدها ميشه اين کار رو انجام داد
http://barnamenevis.org/showthread.php?332582-%D9%85%D8%B3%DB%8C%D8%B1-My-Documents
موفق باشيد

[xrezax]

چک کردم . نشد. ممنون میشم ایدیتش کنی

[xrezax]

من با این کار مشکلمو حل کردم.

x$ = Environ("homedrive")
xx$ = Environ("USERNAME")
a = x$ + "\Documents and Settings\" + xx$ + "\Application Data\"
Text1.Text = a

اگه راه بهتری دارین بزارین تا دوستان استفاده کنند. من که مشکلم حل شد

[سید حمید حق پرست]

سلام
MsgBox Environ("HOMEDRIVE") & "\Documents and Settings\Seven\Application Data"

موفق باشید


یا علی (ع)

[MohammadGh2011]

سلام
MsgBox Environ("HOMEDRIVE") & "\Documents and Settings\Seven\Application Data"
موفق باشید
یا علی (ع)
سلام عليکم
ما توي WIN7 همچين چيزي Documents and Settings\Seven\Application Data نداريم.
کدي که قرار داديد ممکنه در ويندوز XP عمل کنه ولي در 7 اشتباه ميباشد.
در 7 مسير بدين صورت ميباشد:
C:\Users\...\AppData

موفق باشيد

[سید حمید حق پرست]

سلام عليکم
ما توي WIN7 همچين چيزي Documents and Settings\Seven\Application Data نداريم.
کدي که قرار داديد ممکنه در ويندوز XP عمل کنه ولي در 7 اشتباه ميباشد.
در 7 مسير بدين صورت ميباشد:
C:\Users\...\AppData

موفق باشيد

میشه بگید پس این چیه ؟ :
84242

راست میگید من کامل پست اولشونو نخوندم . اصلاح شد

موفق باشی


یا علی (ع)

[MohammadGh2011]

میشه بگید پس این چیه ؟ :

خيلي جالبه،چون براي من اينطور نيست.

یعنی تو xp این مسیر هست؟
توي ويندوز XP بدين صورته:
C:\Documents and Settings\Default User\Application Data

من به این کار ندارم که تو چه ویندوزی کار میکنه اگه توجه کنید ایشون سوال پرسیده و من جواب دادم
اینجا کسی نپرسیده که تو چه ویندوزی این مسیر هست و تو چه ویندوزی این کد کار میکنه
اگه توجه بفرماييد ايشون هم تو ويندوز 7 و هم تو ويندوز XP رو خواستند و مسير ويندوزها باهم تفاوت داره.

من به ايشون دوتا روش رو پيشنهاد ميکنم:
1-اول چک کنه ببينه اگه ويندوز XP بود از مسير XP استفاده کنه در غير اينصورت اگه ويندوز 7 بود از مسير 7 استفاده کنه.
2-از همون API که من در تاپيک قبليشون گذاشتم ،با کوچکترين تغيير از اون استفاده کنه.

امیدوارم دیگه پست اسپم ندید
:متفکر:

موفق باشيد

[setroyd]

Private Declare Function OpenProcessToken Lib "advapi32" (ByVal ProcessHandle As Long, ByVal DesiredAccess As Long, TokenHandle As Long) As Long
Private Declare Function GetUserProfileDirectory Lib "userenv.dll" Alias "GetUserProfileDirectoryA" (ByVal hToken As Long, ByVal lpProfileDir As String, lpcchSize As Long) As Boolean
Private Const TOKEN_QUERY = (&H8)
Private Declare Function GetCurrentProcess Lib "kernel32" () As Long

Private Function GetUserDirectory()
Dim Buffer As String
Buffer = String(255, 0)
OpenProcessToken GetCurrentProcess, TOKEN_QUERY, hToken
GetUserProfileDirectory hToken, Buffer, 255
GetUserDirectory = Left$(Buffer, InStr(1, Buffer, Chr$(0)) - 1)
End Function


Private Sub Command1_Click()
MsgBox GetUserDirectory
End Sub

با این کد هم میتونی این کارو بکنی .