| Вопрос: Command | Добавлено: 06.11.03 20:05 |
Автор вопроса:  cresta
|
|
Command возвращает короткое имя файла, а как можно получить из него полное, без всяких ~1 Пожалуйста подскажите, а то везде описано как получить короткое имя, а наоборот нигде нет |
| Ответы | Всего ответов: 5 |
|
Номер ответа: 1 Автор ответа:  xaker^2 Вопросов: 6 Ответов: 80 |
Профиль | | #1 | Добавлено: 06.11.03 20:07 |
|
А зачем тебе command? |
||
|
Номер ответа: 2 Автор ответа:  cresta Вопросов: 117 Ответов: 1538 |
Профиль | | #2 | Добавлено: 06.11.03 21:47 |
|
собственно всё равно, command или var$, Главное получить полное имя и путь из короткого |
||
|
Номер ответа: 3 Автор ответа:  Slay Вопросов: 27 Ответов: 150 |
Web-сайт: Профиль | | #3 | Добавлено: 06.11.03 22:12 |
| попробуй API GetFullPathName | ||
|
Номер ответа: 4 Автор ответа:  crestaВопросов: 117 Ответов: 1538 |
Профиль | | #4 | Добавлено: 07.11.03 00:42 |
|
Да я пробовал, чегой-то не получается, может кто подскажет, где засада: Private Declare Function GetFullPathName Lib "kernel32" Alias "GetFullPathNameA" _ (ByVal lpFileName As String, ByVal nBufferLength As Long, _ ByVal lpBuffer As String, ByVal lpFilePart As String) As Long 'отсюда получаю короткий путь и вызываю функцию pathname Dim str As String str = Command MsgBox str 'E:\Аудио\Музыка~1\Sabbat~1\Nation~1.MP3 pathname str Function pathname(shotstring) As String Dim lpBuffer As String Dim BufLen As Long, retval As Long Dim FName As String Dim FPath As String FName = shotstring BufLen = 255 lpBuffer = Space(255) retval = GetFullPathName(FName, BufLen, lpBuffer, _ FPath) MsgBox FName 'E:\Аудио\Музыка~1\Sabbat~1\Nation~1.MP3 MsgBox BufLen '255 MsgBox lpBuffer 'E:\Аудио\Музыка~1\Sabbat~1\Nation~1.MP3 MsgBox FPath 'пустой MsgBox retval '39 End Function |
||
|
Номер ответа: 5 Автор ответа:  crestaВопросов: 117 Ответов: 1538 |
Профиль | | #5 | Добавлено: 07.11.03 05:03 |
|
Понял,GetFullPathName не из этой оперы, надо GetLongPathName |
||
Страница: 1 |