Страница: 1 |
Как определить короткое имя файла. Например: C:\mp3\MichaelJackson.mp3 Так мне надо MichaelJackson Заранее Thanks
Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long Private Function GetShortName(ByVal sLongName As String) As String sShortName = Space(100) End Function Страница: 1 |
Вопрос: Короткое имя файла
Добавлено: 31.03.03 15:12
Автор вопроса: USER
Ответы
Всего ответов: 4
Номер ответа: 1
Автор ответа:
boevik
Хранитель чата
ICQ: 137392264
Вопросов: 8
Ответов: 557
Web-сайт:
Профиль | | #1
Добавлено: 31.03.03 15:38
Dim sShortName As String * 100
Dim ret As Long
ret = GetShortPathName(sLongName, sShortName, 100)
GetShortName = Left(sShortName, ret)
Номер ответа: 2
Автор ответа:
USER
Вопросов: 14
Ответов: 12
Профиль | | #2
Добавлено: 31.03.03 19:25
Спасибо! А как длинное определить?
Номер ответа: 3
Автор ответа:
boevik
Хранитель чата
ICQ: 137392264
Вопросов: 8
Ответов: 557
Web-сайт:
Профиль | | #3
Добавлено: 01.04.03 09:41
по аналогии с GetShortPathName - GetLongPathName.
Номер ответа: 4
Автор ответа:
USER
Вопросов: 14
Ответов: 12
Профиль | | #4
Добавлено: 01.04.03 17:41
Спасибо!