message = "Не унывай... В следующий раз определённо повезёт"

        r = MsgBox(message, vbRetryCancel + vbCritical, "Неудача :(")

        If r = vbRetry Then

            Resume

        Else

            DrvBox.Drive = DrvBox.List(1)

            Resume Next

        End If

        Else

        Call MsgBox(Err.Description, vbOKOnly + vbExclamation)

        Resume Next

    End If

End Sub

Private Sub Form_Load()

InSearch = False

AbSearch = False

End Sub

'список папок

Private Sub DirBox_Change()

FileBox.Path = DirBox.Path

End Sub

'список файлов

Private Sub FileBox_Click()

FileBox.Path = DirBox.Path

End Sub 

'ввод имени файла

Private Sub TxtVvod_Change()

    FileBox.Pattern = TxtVvod.Text

End Sub

'открытие папки с файлами

Private Sub ListVivod_DblClick()

Dim MyCmd As String

    Dim RetVal

    MyCmd = "explorer.exe " + DirBox.List(DirBox.ListIndex)

    RetVal = Shell(MyCmd, 1)

End Sub

'о программе

Private Sub mnuAbout_Click()

MsgBox "Программа для поиска файлов по маске" & vbNewLine & "Автор: Полякова Мариша", vbInformation, "О программе"

End Sub

'помощь

Private Sub mnuHelp_Click()

Dim nRet As Integer

    'SendKeys "{F1}"

nRet = OSWinHelp(Me.hwnd, App.HelpFile, 3, 0)

End Sub

'выход

Private Sub mnuExit_Click()

Unload Me

End Sub

 

6. Блок-схема

 

7. Заключение

     В процессе проделанной работы я выучила  основы работы в Visual Basic 6.0, на котором и была создана моя программа. В итоге я получила готовы ехе-файл для запуска «Поисковика». Также приложением к нему идет справка для пользотвателей.

 

     8. Список литературы

1. MSDN Library Visual Studio 6.0 release;
2. http://forums.aspfree.com/visual-basic-programming-38/help-with-vb-code-to-monitor-a-folder-size-31533.html;
3. http://www.vb-helper.com/howto_dirsize.html;
4. http://www.codeguru.com/forum/showthread.php?t=343155;
5. http://www.codenewsgroups.net/group/microsoft.public.vb.general.discussion/topic17000.aspx;
6. http://www.vb-helper.com/howto_file_times_fso.html.