Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > VB6 > Поиск файловпо шаблону


Автор: ArtNeoX 4.2.2006, 11:47
как найти все файлы на компьютере с разширением .jpg

Автор: Exception 4.2.2006, 15:32
Обсуждалось.
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?showtopic=48873&hl=findfirstfile

Автор: Akina 4.2.2006, 19:29
dir /S \*.JPG > all_jpg.txt

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

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)