Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
0 / 0 / 0
Регистрация: 08.07.2010
Сообщений: 4
1

Метод поиска файлов и папок в Visual Basic

08.07.2010, 12:18. Показов 1327. Ответов 3
Метки нет (Все метки)

Вообщем с этим я пытаюсь разобраться уже 3ий час. Ни чего не получается.
Понимаю все банально, мол есть хэлп. Так вот хэлпа нет .
Буду очень признателен, если кто нить поможет. Спасибо!
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.07.2010, 12:18
Ответы с готовыми решениями:

архивация папок в visual basic
Доброе время суток. Нужно в Visual Basic за архивировать папки из указанного места в zip или rar...

Программа простого поиска на Visual Basic
Доброго времени суток! Создаю форму при помощи которой будет производится поиск по фамилии....

Скрипт поиска файлов в каталоге папок
Есть такой скрипт поиска файла в каталоге. function file_search($path, $filename) { if(($dir...

RSA подписи, метод аутентификации в Visual Basic
Всем привет! Скорей всего пост не о просьбе помочь, а скорей всего содержит такой вопрос, кто...

3
Gloom
08.07.2010, 15:17 2
http://support.microsoft.com/default.aspx?scid=kb;en-us;185476
http://support.microsoft.com/default.aspx?scid=kb;en-us;185601
0 / 0 / 0
Регистрация: 12.07.2010
Сообщений: 128
12.07.2010, 20:52 3
Попробуй следующий модуль:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
Option Explicit
 
Public FullFileName() As String 'Массив полных путей найденных файлов
Public fCount As Long           'Количество найденных по маске файлов
 
Sub Find_Test()
    Dim Drv As String
    Dim Pth As String
    Dim fFile As String
    
    Dim I As Long
    
    ReDim FullFileName(1 To 100) ' Для увеличения быстродействия увеличиваем массив с шагом в 100
    
    fCount = 0      ' Инициализация счетчика
    Drv = 'C'       ' Поиск на диске C:
    Pth = ' '       ' Путь, с которого начинается поиск
    fFile = '*.ba?' ' Маска для поиска
 
    ChDrive Drv     ' Установка текущего диска...
    Call FindFile(fFile, Pth)   ' и старт рекурсивного поиска
 
    MsgBox 'Поиск по маске ''' & fFile & ''' завершен !' & vbCr & _
        'найдено ' & fCount & ' файлов.', vbOKOnly Or vbInformation, 'Диск ' & Left(CurDir, 2)
    
    
    For I = 1 To fCount
        Debug.Print FullFileName(I) ' выводим массив
    Next I
End Sub
 
Sub FindFile(fFile As String, Pth As String)
    Dim AllDirs() As String
    ReDim AllDirs(1 To 100)
    Dim I As Integer
    Dim M As Integer
    Dim strFile As String
    Dim Cur As String
    
    ChDir Pth
    Cur = CurDir
    If Not Right(Cur, 1) = ' ' Then Cur = Cur & ' '
    strFile = Dir(fFile, vbHidden Or vbSystem Or vbReadOnly)
    Do Until Len(strFile) = 0
        fCount = fCount + 1
        M = UBound(FullFileName())
        If fCount > M Then ReDim Preserve FullFileName(1 To M + 100)
        FullFileName(fCount) = Cur & strFile
        strFile = Dir()
    Loop
    
    strFile = Dir('*.*', vbHidden Or vbSystem Or vbReadOnly Or vbDirectory)
    Do Until Len(strFile) = 0
        If GetAttr(strFile) = vbDirectory Then
            If strFile <> '.' And strFile <> '..' Then
                I = I + 1
                M = UBound(AllDirs())
                If I > M Then ReDim Preserve AllDirs(1 To M + 100)
                AllDirs(I) = strFile
            End If
        End If
        strFile = Dir()
    Loop
    M = I
    For I = 1 To M
        Call FindFile(fFile, AllDirs(I))
    Next I
 
    ChDir Cur & '..'
End Sub
Конечно, не самый эффективный, но работает!
PS: Почему-то, при рекурсивном обходе каталогов, начиная с корневого у меня не находит файлы, находящиеся в Program Files.
0
0 / 0 / 0
Регистрация: 08.07.2010
Сообщений: 4
13.07.2010, 09:37  [ТС] 4
Респект.
Спасибо. Работает.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.07.2010, 09:37

Сохранение .bmp файлов в Visual Basic
1)Kak mojno 'save' .bmp images v textovom faile v Visual Basic ili MS ACCESS2000? 2)Yesli...

Проверить наличие файлов Visual Basic (Сервис)
Необходимо чтобы служба или сервис постоянно проверял наличие файла на диске. Пробовал чере Dir() и...

Проигрывание Mp3 файлов с помощью Visual Basic
Поиск по форуму в разделе VB не дал результатов, поэтому спрашиваю. Какие есть способы...

Где бесплатно скачать учебник по Visual Basic 6 и Visual Basic .Net ?
Где бесплатно скачать учебник по Visual Basic 6 и Visual Basic .Net


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru