VBNet - Форум - Проблема с VB5

Вопрос: Проблема с VB5 Добавлено: 11.03.04 14:23

Автор вопроса: ChAko | Web-сайт: hotcharts.ru | ICQ: 490470

Я пользуюсь Vb5 и при определении пути app.path выдаётся путь в формате 8.3. Как получить путь в "полном" формате?

Ответить

Ответы Всего ответов: 4

Номер ответа: 1
Автор ответа:

sne

Разработчик Offline Client

ICQ: 233286456

Вопросов: 34
Ответов: 5445

Web-сайт: hw.t-k.ru
Профиль | | #1

Добавлено: 11.03.04 15:10

API - GetFullPathName, только необходимо чтобы этот путь реально существовал на диске...

Ответить

Номер ответа: 2
Автор ответа:

ChAko

ICQ: 490470

Вопросов: 14
Ответов: 12

Web-сайт: hotcharts.ru
Профиль | | #2

Добавлено: 13.03.04 03:16

В XP GetFullPathName не работает.

А GetLongPathName возвращает правельную длину, но в переменной lpszLongPath пусто, от куда взять длинный путь? Что ещё подскажете?

Ответить

Номер ответа: 3
Автор ответа:

sne

Разработчик Offline Client

ICQ: 233286456

Вопросов: 34
Ответов: 5445

Web-сайт: hw.t-k.ru
Профиль | | #3

Добавлено: 13.03.04 09:38

Верно не правильно вызываешь, ща посмотрю...

Ответить

Номер ответа: 4
Автор ответа:
sne

Разработчик Offline Client

ICQ: 233286456

Вопросов: 34
Ответов: 5445 Web-сайт: hw.t-k.ru
Профиль | | #4 Добавлено: 13.03.04 11:17

Не знаю как это тут отобразится, но вот из справочника Русского проекта

Функция GetFullPathName

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

Платформа: Win 95/98, Win NT

GetFullPathName возвращает полный путь к файлу. Функция возвращает 0 в случае ошибки,или длину строки в успешном случае

lpFileName

Имя файла

nBufferLength

Размер в символахlpBuffer

lpBuffer

Строка

lpFilePart

???

Пример:

' определяем полное имя файла autoexec.bat Dim buffer As String Dim numchar As Long ' длина буфера после вызова функции ChDir "c:\" ' выбираем папку buffer = Space(255) ' создаем место для приема строки numchar = GetFullPathName("autoexec.bat", 255, buffer, "") font color="green"> ' помещаем строку в буфер buffer = Left(buffer, numchar) ' извлекаем имя файла

Debug.Print buffer ' показываем результат

Схожие функции

GetShortPathName

Категория: Файлы

Ответить

Страница: 1 |