| '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 |
|
|