|
Private Declare Function GetCurrentDirectory Lib "kernel32" Alias "GetCurrentDirectoryA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
Private Sub Form_Paint()
'KPD-Team 2000
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@allapi.net
Dim sSave As String
'create a buffer
sSave = String(255, 0)
'retrieve the current directory
GetCurrentDirectory 255, sSave
MsgBox sSave
End Sub
|
|