Obtener el path largo de la ruta de un fichero

Obtener el path largo de la ruta de un fichero

Public Function GetLongFilename(ByVal sShortName As String) As String
    Dim sLongName As String
    Dim sTemp As String
    Dim iSlashPos As Integer
    
    'Add  to short name to prevent Instr from failing
    sShortName = sShortName & ""
    'Start from 4 to ignore the "[Drive Letter]:" characters
    iSlashPos = InStr(4, sShortName, "")
    'Pull out each string between  character for conversion
    While iSlashPos
        sTemp = Dir(Left$(sShortName, iSlashPos - 1), vbNormal + vbHidden + vbSystem + vbDirectory)
        If sTemp = "" Then
            'Error 52 - Bad File Name or Number
            GetLongFilename = ""
            Exit Function
        End If
        sLongName = sLongName & "" & sTemp
        iSlashPos = InStr(iSlashPos + 1, sShortName, "")
    Wend
    'Prefix with the drive letter
    GetLongFilename = Left$(sShortName, 2) & sLongName
End Function

Publicado en Información extraída de Microsoft Technical Support, artículo Q163227

Anuncios

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión /  Cambiar )

Google photo

Estás comentando usando tu cuenta de Google. Cerrar sesión /  Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión /  Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión /  Cambiar )

Conectando a %s