Public Type PathType
    Folder As String  '# Inclue le '\' final
    FileName As String
    FileExt As String '# Inclue le '.'
End Type

'# Permet de découper un chemin en dossier / nom de fichier / extension
Public Function CrackPath(ByVal vsInput As String) As PathType
Dim nPos As Long
    If LenB(vsInput) Then
        nPos = InStrRev(vsInput, "\")
        If nPos Then
            CrackPath.Folder = Left$(vsInput, nPos)
            vsInput = Mid$(vsInput, nPos + 1)
        End If
        
        nPos = InStrRev(vsInput, ".")
        If nPos Then
            CrackPath.FileExt = Mid$(vsInput, nPos)
            CrackPath.FileName = Left$(vsInput, nPos - 1)
        Else
            CrackPath.FileName = vsInput
        End If
    End If
End Function

procedure ExtractAllPath(const FullPath: string; var FileDrive, FilePath, FileName, FileExt: string);
begin
  FileDrive := ExtractFileDrive(FullPath);
  FilePath := ExtractFilePath(FullPath);
  FileName := ExtractFileName(FullPath);
  FileExt := ExtractFileExt(FullPath);
end;

{
 FullPath = c:\windows\explorer.exe
 FileDrive = c:
 FilePath  = c:\windows\
 FileName = explorer.exe
 FileExt     = .exe
}

'N'oublie pas Imports System.IO
Public Function CrackPath(ByVal vsInput As String) As PathType
    Dim result As PathType
    If vsInput <> String.Empty Then
        result.Folder = Path.GetDirectoryName(vsInput) & "\"
        result.FileExt = Path.GetExtension(vsInput)
        result.FileName = Path.GetFileNameWithoutExtension(vsInput)
    End If
    Return result
End Function

        public class PathType
        {
            public string Folder;
            public string Extension;
            public string FileName;
        }
        public static PathType CrackPath(string path)
        {
            PathType pathType = new PathType();
            if (string.IsNullOrEmpty(path)) return pathType;
            if (!File.Exists(path)) return pathType;
            pathType.Extension = Path.GetExtension(path);
            pathType.FileName = Path.GetFileNameWithoutExtension(path);
            pathType.Folder = Path.GetDirectoryName(path);
            return pathType;
        }