مسیر My Documents

[xrezax]

بچه ها چطور برای برنامم تعریف کنم که مسیر My Documents پیدا کنه. هم وی xp و هم توی seven

[MohammadGh2011]

سلام عليکم

نوشته شده توسط محسن واژدي
سلام علیکم
به نظر بنده بهتر است هم در ویندوز xp و هم سون از api به این منظور استفاده کنید:
کد زیر را بررسی کنید (این کد مسیر profile کاربریتان را برمیگرداند که میتوانید ادامه مسیر آنرا به پوشه مورد نظر که my-documents باشد متصل کنید):
Private Const TOKEN_QUERY = (&H8)
Private Declare Function GetUserProfileDirectory Lib "userenv.dll" Alias "GetUserProfileDirectoryA" (ByVal hToken As Long, ByVal lpProfileDir As String, lpcchSize As Long) As Boolean
Private Declare Function OpenProcessToken Lib "advapi32" (ByVal ProcessHandle As Long, ByVal DesiredAccess As Long, TokenHandle As Long) As Long
Private Declare Function GetCurrentProcess Lib "kernel32" () As Long

Private Sub Form_Load()
Dim sBuf$, pos&, hp&
sBuf = String(255, Chr$(0))
OpenProcessToken GetCurrentProcess, TOKEN_QUERY, hp&
GetUserProfileDirectory hp&, sBuf, Len(sBuf)
pos& = InStr(1, sBuf, Chr$(0))
sBuf = Left$(sBuf, pos& - 1)
MsgBox sBuf
End Sub


از دستور Environ هم ميتوانيد استفاده کنيد ولي به نظر من از کد بالا استفاده کنيد تا در ويندوزهاي مختلف مشکل پيش نياد.


موفق باشيد

[xxxxx_xxxxx]

سلام،



MsgBox Environ("userprofile") & "\My Documents"

[behzadsen]

سلام،



MsgBox Environ("userprofile") & "\My Documents"

آقا دست گلت درد نکنه،این کد هم مختصر بود و هم مفید.:قلب: