VPF::функция DIR возврат имени без CapsLock

RomanR3

Дата 3.5.2009, 12:27 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 23.3.2006

Репутация: нет
Всего: нет

день добрый
как вызвать функцию DIR чтоб получить реальное имя файла

пример:имя=_11308b.drw DIR возврашает _11308B.DRW

Keeper89

Дата 3.5.2009, 12:54 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: нет
Всего: 58

RomanR3, проверял, у меня возвращает оригинальные имена файлов.

Код


Private Sub Command1_Click()

    Dim FileName$, PathName$, Template$, Result$

    PathName = "c:\" ' поиск в корневом каталоге C:
    Template = PathName & "*.*" ' все файлы
    FileName = Dir(Template) ' инициализация
    Result$ = ""

    ' файлы в заданном каталоге
    Do While FileName <> ""
        Result$ = Result$ + FileName + vbNewLine
        FileName = Dir ' выборка следующего
    Loop
    MsgBox Result$
End Sub

Это сообщение отредактировал(а) Keeper89 - 3.5.2009, 12:58

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

Naghual

Дата 3.5.2009, 13:20 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 26
Всего: 49

RomanR3, а при чем тут VB?

--------------------

Я желаю всем Счастья!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »