بدست آوردن آدرس پوشه temp

[mehran8]

سلام
لطفاً راهنمایی کنید

[romina2006]

اگر منظورت پوشه temp ویندوزه :


MsgBox Environ("windir") & "\temp"

[mehran8]

نه منظورم پوشه ای با آدرس زیر هست
C:\Documents and Settings\Administrator\Local Settings\Temp

[romina2006]

MsgBox Left(Environ("windir"), 2) & "\Documents and Settings\Administrator\Local Settings\Temp"

اگر می خوای پوشه temp یوزر جاری را بدست بیاوری می تونی از کد زیر استفاده کنی :


Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
Private Sub Form_Load()
Dim strTemp As String, strUserName As String
strTemp = String(100, Chr$(0))
GetTempPath 100, strTemp
strTemp = Left$(strTemp, InStr(strTemp, Chr$(0)) - 1)
strUserName = String(100, Chr$(0))
GetUserName strUserName, 100
strUserName = Left$(strUserName, InStr(strUserName, Chr$(0)) - 1)
MsgBox "Hello " + strUserName + Chr$(13) + "The temp. path is " + strTemp
End Sub