PDA

View Full Version : بدست آوردن آدرس mydocument



milad.biroonvand
سه شنبه 17 شهریور 1388, 13:25 عصر
می خوام آدرس my document رو به صورت زیر بدست بیارم ، چطور میشه اینکار رو انجام داد .

C:\DOCUME~1\SQLSER~1\MyDocu~1

نکته به این صورتش رو بلدم


C:\Documents and Settings\SQL Server\My Documents

milad.biroonvand
چهارشنبه 18 شهریور 1388, 09:26 صبح
خودم به این صورت بدستش اوردم ، راه دیگه ای بلد نیستید ؟




Private Function GetMydocumentsPath() As String
Dim TempDirectory As String = Environment.GetEnvironmentVariable("TEMP")
Dim PosSlash As Integer = InStrRev(TempDirectory, "\")
Dim NewStr = Mid(TempDirectory, 1, PosSlash - 1)
PosSlash = InStrRev(NewStr, "\")
NewStr = Mid(NewStr, 1, PosSlash - 1)
NewStr = NewStr & "\Mydocu~1"
Return NewStr
End Function

milad.biroonvand
چهارشنبه 25 شهریور 1388, 20:11 عصر
اگه راه حل دیگه ای که ساده تر باشه رو بلدید اینجا بزارید.:متفکر:

milad.biroonvand
پنج شنبه 23 مهر 1388, 14:34 عصر
کسی نظر بهتری نداره ؟؟؟؟؟؟؟؟؟؟؟؟؟؟/