modüle :
Public Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
1 text ekleyin :
form kod penceresine;
Private Sub Form_Load()
Dim temp As String
temp = Space(255)
uzunluk = GetTempPath(255, temp)
If (uzunluk <> 0) Then
temp = Mid(temp, 1, uzunluk)
End If
Text1.Text = temp
End Sub
Public Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
1 text ekleyin :
form kod penceresine;
Private Sub Form_Load()
Dim temp As String
temp = Space(255)
uzunluk = GetTempPath(255, temp)
If (uzunluk <> 0) Then
temp = Mid(temp, 1, uzunluk)
End If
Text1.Text = temp
End Sub
