DOS File Names

[Muddy]

Thanks!

Cant seem to get a test to work. Any idea whats wrong?

Private Declare Function GetFullPathName Lib "kernel32" _
Alias "GetFullPathNameA" (ByVal lpFileName As String, _
ByVal nBufferLength As Long, ByVal lpBuffer As String, _
ByVal lpFilePart As String) As Long
 
Private Sub Command2_Click()
    Dim Buffer As String, Ret As Long
    Buffer = Space(255)
    Ret = GetFullPathName("C:\MYDOCU~1\BOOK1.XLS", 255, Buffer, "")
    Buffer = Left(Buffer, Ret)
    Text4.Text = Buffer
End Sub