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 |