VPF::Поиск файловпо шаблону - Форум программистов

ArtNeoX

Дата 4.2.2006, 11:47 (ссылка)

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

Загрузка ...

Шустрый

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

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

как найти все файлы на компьютере с разширением .jpg

Exception

Дата 4.2.2006, 15:32 (ссылка)

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

Загрузка ...

Эксперт

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

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

Обсуждалось.
API-функция FindFirstFile рулит.
Добавлено @ 15:34
О, нашёл smile

Код


Private Declare Function SearchTreeForFile Lib "imagehlp" (ByVal RootPath As String, ByVal InputPathName As String, ByVal OutputPathBuffer As String) As Long
Private Const MAX_PATH = 260

Private Sub Form_Load()
    Dim tempStr As String, Ret As Long
    tempStr = String(MAX_PATH, 0)
    Ret = SearchTreeForFile("c:\", "explorer.exe", tempStr)
    If Ret <> 0 Then
        MsgBox "Файл найден в  " + Left$(tempStr, InStr(1, tempStr, Chr$(0)) - 1)
    Else
        MsgBox "Файл не найден"
    End If
End Sub

P.S. Код не мой, а efedron'а.
Добавлено @ 15:34
http://forum.vingrad.ru/index.php?showtopi...l=findfirstfile

Akina

Дата 4.2.2006, 19:29 (ссылка)

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

Загрузка ...

Советчик

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

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

dir /S \*.JPG > all_jpg.txt

и делай с ним все что заблагорассудится smile

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

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

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