FullPath


Volver
'*********************************************************
' Function FullPath(
'          RelativePath As String,
'          FullPath As String) As Integer
'
' Convierte una ruta relativa, en una ruta absoluta, 
' partiendo del directorio activo
'
' Por ejemplo, si el directorio actual es
'   C:\Mis bds\WizHook
' y la ruta relativa que se pide es:
'   NuevaRuta/archivo.ext
' el método devuelve:
'   C:\Mis bds\WizHook\NuevaRuta\archivo.ext
' si la ruta relativa es:
'   ../NuevaRuta/archivo.ext
' el método devuelve:
'   C:\Mis bds\NuevaRuta\archivo.ext
' si la ruta relativa es:
'   /NuevaRuta/archivo.ext
' o
'   ../../NuevaRuta/archivo.ext
' el método devuelve:
'   C:\NuevaRuta\archivo.ext
'
' (como barras separadoras se pueden utilizar 
' indistintamente "/" o "\")
'
' Argumentos:
'   RelativePath: Variable que contendrá la ruta relativa
'   FullPath: Variable que recibirá la ruta absoluta
'
Sub wzFullPath()
Dim wzRelativePath As String
Dim wzFPath As String

    WizHook.Key = 51488399
    
    wzRelativePath = "NewFolder/file.ext"
    WizHook.FullPath wzRelativePath, wzFPath
    Debug.Print wzFPath
    
End Sub
'*********************************************************
Contactar Última actualización 21/9/2003     © Juan M. Afán deRibera