'**********************************************************
' Sub SplitPath(
'     Path As String,
'     Drive As String,
'     Dir As String,
'     File As String,
'     Ext As String)
'
' Descompone una ruta en unidad, directorio(s), nombre de
' archivo y extensión del archivo
'
' Argumentos
'   Path: Cadena que contiene la ruta completa que el 
'         método analizará
'   Drive: Variable que almacenará el nombre de la unidad
'   Dir: Variable que almacenará el/los directorios
'   File: Variable que almacenará el nombre del archivo
'   Ext: Variable que almacenará la extensión del archivo
'
Sub wzSplitPath()
Dim wzPath As String
Dim wzDrive As String
Dim wzDir As String
Dim wzFile As String
Dim wzExt As String

    WizHook.Key = 51488399
    
    wzPath = "c:\dir1\dir2\nombre_archivo.txt"
    WizHook.SplitPath wzPath, wzDrive, wzDir, wzFile, wzExt
    Debug.Print "Unidad: "; wzDrive
    Debug.Print "Directorio: "; wzDir
    Debug.Print "Nombre archivo: "; wzFile
    Debug.Print "Extensión archivo:"; wzExt
    
End Sub
'**********************************************************