Public Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
Private Sub Command1_Click()
Dim uzunluk As Long
Dim s As String
s = Space(255)
uzunluk = GetTempPath(255, s)
If (uzunluk <> 0) Then
s = Mid(s, 1, uzunluk)
Text1.Text = s
End If
End Sub
Private Sub Command1_Click()
Dim uzunluk As Long
Dim s As String
s = Space(255)
uzunluk = GetTempPath(255, s)
If (uzunluk <> 0) Then
s = Mid(s, 1, uzunluk)
Text1.Text = s
End If
End Sub
