Código
disculpen lo directo de la pregunta pero no tengo mas nada que decir
Private Declare Function GetCurrentDirectory Lib "kernel32" Alias "GetCurrentDirectoryA" (ByVal nBufferLength _ As Long, ByVal lpBuffer As String) As Long Private Sub Form_Paint() Dim sSave As String sSave = String(255, 0) GetCurrentDirectory 255, sSave MsgBox sSave End Sub