ник: ????????
Re: Нарезка текстового поля Вопрос: WizHook: Разбить полное имя файла на составляющие
Совет:
ae 01.00.01 040229
Public Function SplitPathFile(strPath As String)
Dim strDrive As String, strDir As String, strFile As String, strExt As String
WizHook.Key = 51488399
WizHook.SplitPath strPath, strDrive, strDir, strFile, strExt
Debug.Print "Диск: " & strDrive
Debug.Print "Каталог: " & strDir
Debug.Print "Имя файла: " & strFile
Debug.Print "Расширение файла: " & strExt
End Function
===============
Пример
===============
?SplitPathFile("C:Microsoft OfficeOffice2000Office1049UTILITY.MDA")
Диск: C:
Каталог: Microsoft OfficeOffice2000Office1049
Имя файла: UTILITY
Расширение файла: .MDA