Dim fso As New FileSystemObject
Dim fich As File
Private Sub Command1_Click()
Dim ruta As String
ruta = "C:windowsWebWallpaperDesierto rojo con luna.jpg"
ruta = RutaCorta(ruta)
MsgBox ruta
End Sub
Private Function RutaCorta(ByVal ruta As String) As String
On Local Error Resume Next
Set fich = fso.GetFile(ruta)
RutaCorta = fich.ShortPath
End Function