Private Declare Function GetLongPathName Lib "kernel32" Alias "GetLongPathNameA" _
(ByVal lpszShortPath As String, ByVal lpszLongPath As String, _
ByVal cchBuffer As Long) As Long
Private Sub Command1_Click()
Dim ls_Buffer As String
Dim li_longitud As Long
ls_Buffer = Space(255)
li_longitud = GetLongPathName(Text2, ls_Buffer, Len(ls_Buffer))
MsgBox ("La ruta Completa es: " & Left(ls_Buffer, li_longitud))
End Sub