VERSION 5.00 Begin VB.Form WinSeek BackColor = &H00C0C0C0& BorderStyle = 3 'Fixed Dialog Caption = «WinSeek» ClientHeight = 6495 ClientLeft = 1920 ClientTop = 1890 ClientWidth = 9210 BeginProperty Font Name = «MS Sans Serif» Size = 8.25 Charset = 204 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00000080& MaxButton = 0 'False MinButton = 0 'False ScaleHeight = 6495 ScaleWidth = 9210 Begin VB.PictureBox Picture2 BorderStyle = 0 'None Height = 5175 Left = 0 ScaleHeight = 5175 ScaleWidth = 9015 TabIndex = 8 Top = 120 Visible = 0 'False Width = 9015 Begin VB.ListBox lstFoundFiles Height = 4545 Left = 120 TabIndex = 11 Top = 480 Width = 8775 End Begin VB.Label lblCount Caption = «0» Height = 255 Left = 1320 TabIndex = 10 Top = 120 Width = 1095 End Begin VB.Label lblfound Caption = "&Files Found:" Height = 255 Left = 120 TabIndex = 9 Top = 120 Width = 1095 End End Begin VB.PictureBox Picture1 BorderStyle = 0 'None Height = 5175 Left = 0 ScaleHeight = 5175 ScaleWidth = 9015 TabIndex = 2 Top = 120 Width = 9015 Begin VB.DriveListBox drvList Height = 315 Left = 4440 TabIndex = 7 Top = 600 Width = 4215 End Begin VB.DirListBox dirList Height = 3690 Left = 4440 TabIndex = 6 Top = 960 Width = 4215 End Begin VB.FileListBox filList Height = 3990 Left = 120 TabIndex = 5 Top = 600 Width = 4095 End Begin VB.TextBox txtSearchSpec Height = 285 Left = 2040 TabIndex = 4 Text = "*.*" Top = 120 Width = 1575 End Begin VB.Label lblCriteria Caption = «Search &Criteria:» Height = 255 Left = 600 TabIndex = 3 Top = 120 Width = 1335 End End Begin VB.CommandButton cmdSearch BackColor = &H00C0C0C0& Caption = "&Search" Default = -1 'True Height = 720 Left = 3240 TabIndex = 0 Top = 5400 Width = 1200 End Begin VB.CommandButton cmdExit BackColor = &H00C0C0C0& Caption = «E&xit» Height = 720 Left = 4920 TabIndex = 1 Top = 5400 Width = 1200 End End Attribute VB_Name = «WinSeek» Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Option Explicit Dim SearchFlag As Integer Private Declare Function ShellExecute Lib «shell32.dll» _ Alias «ShellExecuteA» _ (ByVal hWnd As Long, _ ByVal lpOperation As String, _ ByVal lpFile As String, _ ByVal lpParameters As String, _ ByVal lpDirectory As String, _ ByVal nShowCmd As Long) As Long Private Sub cmdExit_Click() If cmdExit.Caption = «E&xit» Then End Else SearchFlag = False End If End Sub Private Sub cmdSearch_Click() Dim FirstPath As String, DirCount As Integer, NumFiles As Integer Dim result As Integer If cmdSearch.Caption = "&Reset" Then ResetSearch txtSearchSpec.SetFocus Exit Sub End If If dirList.Path dirList.List(dirList.ListIndex) Then dirList.Path = dirList.List(dirList.ListIndex) Exit Sub End If Picture2.Move 0, 0 Picture1.Visible = False Picture2.Visible = True cmdExit.Caption = «Cancel» filList.Pattern = txtSearchSpec.Text FirstPath = dirList.Path DirCount = dirList.ListCount NumFiles = 0 result = DirDiver(FirstPath, DirCount, "") filList.Path = dirList.Path cmdSearch.Caption = "&Reset" cmdSearch.SetFocus cmdExit.Caption = «E&xit» End Sub Private Function DirDiver(NewPath As String, DirCount As Integer, BackUp As String) As Integer Static FirstErr As Integer Dim DirsToPeek As Integer, AbandonSearch As Integer, ind As Integer Dim OldPath As String, ThePath As String, entry As String Dim retval As Integer SearchFlag = True DirDiver = False retval = DoEvents() If SearchFlag = False Then DirDiver = True Exit Function End If On Local Error GoTo DirDriverHandler DirsToPeek = dirList.ListCount Do While DirsToPeek > 0 And SearchFlag = True OldPath = dirList.Path dirList.Path = NewPath If dirList.ListCount > 0 Then dirList.Path = dirList.List(DirsToPeek — 1) AbandonSearch = DirDiver((dirList.Path), DirCount%, OldPath) End If DirsToPeek = DirsToPeek — 1 If AbandonSearch = True Then Exit Function Loop If filList.ListCount Then If Len(dirList.Path) "" Then dirList.Path = BackUp End If Exit Function DirDriverHandler: If Err = 7 Then DirDiver = True MsgBox «You've filled the list box. Abandoning search...» Exit Function Else MsgBox Error End End If End Function Private Sub DirList_Change() filList.Path = dirList.Path End Sub Private Sub DirList_LostFocus() dirList.Path = dirList.List(dirList.ListIndex) End Sub Private Sub DrvList_Change() On Error GoTo DriveHandler dirList.Path = drvList.Drive Exit Sub DriveHandler: drvList.Drive = dirList.Path Exit Sub End Sub Private Sub filList_DblClick() ShellExecute 0, vbNullString, dirList.Path + "\" + filList.FileName, _ vbNullString, vbNullString, vbNormalFocus End Sub Private Sub Form_Load() Picture2.Move 0, 0 Picture2.Width = WinSeek.ScaleWidth Picture2.BackColor = WinSeek.BackColor lblCount.BackColor = WinSeek.BackColor lblCriteria.BackColor = WinSeek.BackColor lblfound.BackColor = WinSeek.BackColor Picture1.Move 0, 0 Picture1.Width = WinSeek.ScaleWidth Picture1.BackColor = WinSeek.BackColor End Sub Private Sub Form_Unload(Cancel As Integer) End End Sub Private Sub ResetSearch() lstFoundFiles.Clear lblCount.Caption = 0 SearchFlag = False Picture2.Visible = False cmdSearch.Caption = "&Search" cmdExit.Caption = «E&xit» Picture1.Visible = True dirList.Path = CurDir: drvList.Drive = dirList.Path End Sub Private Sub lstFoundFiles_DblClick() ShellExecute 0, vbNullString, lstFoundFiles.Text, _ vbNullString, vbNullString, vbNormalFocus End Sub Private Sub txtSearchSpec_Change() filList.Pattern = txtSearchSpec.Text End Sub Private Sub txtSearchSpec_GotFocus() txtSearchSpec.SelStart = 0 txtSearchSpec.SelLength = Len(txtSearchSpec.Text) End Sub MZ�#########��##�#######@###################################�#####�##� �!�#L�!This program cannot be run in DOS mode. $#######�##��si��si��si�#ld��si�Rich�si�########################PE##L###l�EI########�########0### ######�########@####@##########################`######"�######################################D3##(####P##�###################################################################(### #######s�Js�Js$FLs#QKs��Ks�5>s�#Ls}�Ks�0Ks########�%##@#�%##@#�%4#@#�%,#@#�%$#@#�%##@#�%0#@#�% #@#�%##@#�%##@#�% #@#�%##@#�%##@#�%(#@#h�#@#����######0###@#######˻�6�XmL��oc(#�"##########ackColWinSeekProject#0####��1# )�a�S�H��r+�D�=j#4��#H�L'�#��V:O�3�f�#� #�#`ӓ####################################H###`######WinSeek# ###WinSeek##���##�######B#"##����&#'#5�###b###�###_###@#�##�#DB## MS Sans Serif�#'######Picture2#####x#7#7# #######B#$#�###### #lstFoundFiles###x#�#G"�####�########lblCount#####0##(#x#G#�## #�#/######lblfound### #&Files Found:##x#x#G#�## #�##%######Picture1#####x#7#7#######B#$#�########drvList###X#X#w#;####�########dirList###X#�#w#j####�########filList###x#X#�#�####�#*### #txtSearchSpec###�#x#'######*.*####�#6### ##lblCriteria#####Search &Criteria:##X#x#7#�####�##1#### #cmdSearch#####&Search##���##� ##�#�#####��#+### ##cmdExit#####E&xit##���##8###�#�####�#########�#@#P###)�a�S�H��r+�D�############################################�#######�#@#L###VB5!�#*#############~############# # ###########x#@##�7##���############�###�#@#�#@#�#@#x###�###�###�###################Winseek#Winseek##WinSeekProject#�###�#@#####03@#@3@#4 ###@@#p#@#####*#\#A#F#:#\#f#o#r# #I#r#i#s#k#a#\#W#I#N#S#E#E#K#.#V#B#P#########################################################################################################################################################################################################################################################################################################################################################################################################################################################################################�#@#########$@@#�(@#����#####@@#�#�झA����� G #########@#############x#@# ###############4#@#�����#@#(#@#########p#@#####8#@#l###��################################################## ###########WinSeek#WinSeekProject##=j#4��#H�L'�#��V��#Q0��L��5�p�x#)�a�S�H��r+�D�`G�hg��C�#���_�RO�3�f�#� #�#`ӓdrvList#.=���h#�8##+3q�D:\Program Files\Microsoft Visual Studio\VB98\VB6.OLB###VB##�#@######### ###�#@#(#@#�B@#########�G##�N�3�f�#� #�#`ӓcmdSearch###�N�3�f�#� #�#`ӓtxtSearchSpec###ZO�3�f�#� #�#`ӓdirList#�N�3�f�#� #�#`ӓlblCriteria#####�N�3�f�#� #�#`ӓPicture2####lblfound####Picture1####lblCount####bO�3�f�#� #�#`ӓfilList#cmdExit##O�3�f�#� #�#`ӓlstFoundFiles###:O�3�f�#� #�#`ӓForm#### ###shell32.dll#####ShellExecuteA###d#@#t#@#####�B@#########��B@##�t#��h�#@#�@#@#���### #t#########�N�3�f�#� #�#`ӓ ###E#&#x#i#t### ###&#R#e#s#e#t#####�N�3�f�#� #�#`ӓYO�3�f�#� #�#`ӓ�N�3�f�#� #�#`ӓ ###C#a#n#c#e#l#####aO�3�f�#� #�#`ӓ############\########O�3�f�#� #�#`ӓ�N�3�f�#� #�#`ӓ�fĤ�I##�x#�#8h�1x�#l�#b�!####l�#l� �###kb�pv�#l��#pt�#b�# #Ch�#h�#v�#x�#####kb�pr�/h�#h�!####l�#l� �###lh�!####d�#d� �###/h�)##l�d�###!#$##l�#l� T####l�!#$##l�#l� �####l�###!#(##l�#l� T####l�#ӓ4#@###T#,#(#########################x�## ###########h�##X�##l�##d�##\�##�###�4#�#pz�# ###pf�###�4#�#�#,#�pz��/####K�##^�!####`�#`� �###k^�px�#`�kx��#�###�4#���#-##X�!####`�#`� �###>X�1p�#`�� #!####`�#`� �####`�#^�!####`�#`� �###k^��#�#`�####X�kx��#�!####`�#`� �###lX�!####T�#T� �###/X�)##`�T�#X�!####`�#`� �####^�#p�l##>X���P�#####k^�pv�/P�#`�kx��#�px�kv���#*#�/#####J##^�!####`�#`� �###k^�#`�#n##X�!####`�#`� �###lX�J�####�/X�#`�#�##X�!####`�#`� �###>X�1l�#`�#�##X�!####`�#`� �###lX�###*1l�/X�#`��##t�#^�!####`�#`� �###k^��#�#`��cL�n#ll�#X�kt�!####`�#`� �###lX�*1h�/X�#`�'БАЛТИЙСКАЯ ГОСУДАРСТВЕННАЯ АКАДЕМИЯ
РЫБОПРОМЫСЛОВОГО ФЛОТА
Кафедра АСОиУ
Курсовая работа
на тему: «Поиск и открытие файлов, находящихся на компьютере, соответствующим программным обеспечением»
Пояснительную записку выполнил:
Винокурова Ирина Александровна
АС-31(2)
Пояснительную записку проверил:
Костромина Ирина Григорьевна
КАЛИНИНГРАД
2008 г.
Данный документ содержит информацию об объекте проектирования, назначении разработки, функциях и требованиях разрабатываемого приложения. Документ состоит из 6 глав. Первая глава содержит описания документов, на основании которых ведется разработка. Во второй главе описывается назначение разработки и проводится анализ функций проектируемого программного средства. Третья глава содержит список этапов разработки программы. В четвертой главе описывается порядок проверки и сдачи программного средства. Пятая глава – приложения. Последняя, шестая глава является руководством пользователя на разработанное программное средство.
Документ в общей сложности содержит:
20 страниц;
13 иллюстраций;
Одно приложение;
1 ОСНОВАНИЯ ДЛЯ РАЗРАБОТКИ
Перечень документов, на основании которых ведется разработка
«Приказ о закреплении темы курсовой работы», Балтийская Государственная Академия РФ;
«Закон о высшем образовании в редакции 2002 года», Министерство образования Российской Федерации.
2 НАЗНАЧЕНИЕ РАЗРАБОТКИ
2.1 Словарь терминов
Файл — концепция в вычислительной технике: сущность, позволяющая получить доступ к какому-либо ресурсу вычислительной системы и обладающая рядом признаков:
фиксированное имя (последовательность символов, число или что-то иное, однозначно характеризующее файл);
определённое логическое представление и соответствующие ему операции чтения/записи.
Расширение имени файла — последовательность символов, добавляемых к имени файла и предназначенных для идентификации типа (формата) файла. Это один из распространённых способов, с помощью которых пользователь или программное обеспечение компьютера может определить тип данных, хранящихся в файле
2.2 Соглашения о требованиях
Проектируемое программное средство должно обеспечивать:
Вывод всех файлов, доступных в выбранной папке (*/.txt, *.exe, *.mp3 и т.п.);
Выводить список папок, доступных на компьютере.
2.3 Внешняя спецификация
2.3.1 Описание программного средства
Операционная система. Приложение предназначено для работы в операционной системе Windows98, Windows2000, WindowXPHomeEditionили WindowXPProfessional.
Авторские права. Авторские права на программное средство не распространяются, т.к. данное программное средство не является коммерческим продуктом и разрабатывается в учебных целях.
Программа предназначена для нахождения и отображения всех файлов, которые доступны на ПК.
2.3.2 Стратегия
Решение поставленной задачи основано на использовании:
Application Programming Interface(API). Встроенные функции операционной системы Windows.
Для решения поставленной задачи используется следующая последовательность операций:
Запуск основного приложения;
Основная программа запускает дополнительное приложение, которое «собирает» информацию о доступных файлах на ПК;
Считывание основной программой информации о файлах и вывод её на экран;
Открытие любого выведенного файла программным средством, установленным на ПК
Результатом проектирования будет отлаженное, готовое к эксплуатации программное средство.
Элементы внешней программной среды, требуемые для запуска и функционирования проектируемого программного средства:
Microsoft Windows 98;
Microsoft Windows 2000;
Microsoft Windows XP Home Edition;
Microsoft Windows XP Professional;
2.4 Анализ функций
Функция интерфейса. Данная функция предназначена для обеспечения интерфейса между пользователем и программным средством по поиску и открытию файлов.
Внешнее описание. Функция служит для обеспечения интерфейса посредством отображения информации на экране компьютера. Благодаря этой функции пользователь управляет программным средством, используя элементы форм.
Стандарты. Для отображения информации используются стандартные элементы форм, принятые в операционной системе Windows.
Программные ограничения. Для запуска и нормальной эксплуатации данной функции необходимо наличие следующего корректно установленного программного обеспечения:
ОперационнаясистемаклассаWindows 98, Windows 2000, Windows XP Home Edition илиWindows XP Professional;
Наличие библиотек.
Входы.
Количество типов данных, являющихся входами данной функции продолжение
--PAGE_BREAK--
Вход в функцию осуществляется из операционной системы путем запуска программного средства.
Для запуска программы надо запустить исполняемый файл программы.
Результаты
Результатом выполнения данной функции является присвоение настроек соответствующим переменным программы.
Структура внешнего представления данных. Результирующие данные отображаются в виде списка файлов на форме.
Эргономика функции
Надежность
Программа работает стабильно, но могут возникать ошибки, вызванные самой системой, так приложение использует системные функции.
Интерфейсная часть
Для обеспечения работы используется одна форма на которой расположены:
ListBox;
TreeControl;
Textbox;
ChekBox;
Смотри рис. №2, расположенный ниже.
Эффективность
Основным критерием эффективности функции является правильное отображение информации о файлах, находящихся на компьютере, и открытие их ПО, установленном на компьютере.
Архитектура
Архитектура функции представлена ниже (см. рис. №1).
Функция поиска и открытия файлов
Функция предназначена для поиска доступных файлов и их открытия.
Внешнее описание
Функция предоставляет возможность пользователю программного средства просматривать доступные файловые ресурсы.
Стандарты
Для отображения форм функция использует стандартные элементы операционной системы Windows XP.
Программные ограничения
Для запуска и нормальной эксплуатации данной функции необходимо наличие следующего корректно установленного программного обеспечения:
ОперационнаясистемаклассаWindows XP Home Edition илиWindows XP Professional.
Аппаратные ограничения
Для запуска и устойчивой работы данной функции необходим персональный компьютер, работающий под управлением ОС Windows XP.
Входы
Количество типов данных, являющихся входами данной функции
Функция принимает на вход данные о CD, HDD, файлах, содержащихся в этих директориях для таких элементов форм как FileListBox, DirListBox, DriveListBox
Результаты
Формат
Результатом выполнения данной функции является присвоение настроек соответствующим переменным программы.
Структура внешнего представления данных
Для осуществления данной функции предполагается наличие на форме объекта FileListBox
Эргономика функции
Надежность
В виду простоты обеспечения работы функции предполагается ее высокая надежность работы при соблюдении программных и аппаратных ограничений.
Эффективность
Ввиду простоты функции требования к эффективности отсутствуют, так же как и критерии их оценок.
Архитектура
Архитектура функции представлена ниже (см. рис №2).
Функции сбора и вывода информации о файлах.
Данная функция предназначена для сбора и вывода информации файлах, сохраненных на ПК, а также открытие файлов соответствующим ПО
Внешнее описание
Функция записывает в файл список файлов, считывает информацию из файла и выводит на экран, затем при выборе файла открывает его соответствующим программным средством, установленным на ПК
Стандарты
Функция использует стандартные операции для доступа/чтения файлов, ввода, вывода на экран, открытия файлов
Программные ограничения
Для запуска и нормальной эксплуатации данной функции необходимо наличие следующего корректно установленного программного обеспечения:
ОперационнаясистемаклассаWindows XP Home Edition илиWindows XP Professional.
Аппаратные ограничения
Для запуска и устойчивой работы данной функции необходимы ПК с установленным на нём Windows XP.
Входы
Количество типов данных, являющихся входами данной функции
Функция принимает на вход переменную filеList.FileName, которая содержит имя файла, путь к нему, с помощью которых определяется ПО, которым следует открыть файл
Описание входов
Значения вышеупомянутых полей определяются ОС, т.к. зависят от установленных драйверов.
Ограничение на данные, являющиеся входами
Ограничения на входные данные отсутствует, т.к. они полностью определяются ОС. продолжение
--PAGE_BREAK--
Результаты
Формат
Результатом выполнения данной функции является корректное открытие файла, выбранном из списка, находящимся в ListBox
Символическое обозначение результирующих данных
Список файлов, которые хранятся на ПК, CD и других устройствах
Эргономика функции
Надежность
Работа функции зависит от ОС. При корректной работе ОС, функция работает надёжно.
Интерфейсная часть
Функция не требует наличия интерфейсной части.
Эффективность
Критерием эффективности функции является наиболее полная информация о системных сообщениях.
Архитектура
Архитектура функции представлена ниже (см. Рис. № 3).
/>
2.5 Технико-экономические показатели
Разрабатываемое приложение имеет аналог в ОС Windows XP. (Проводник, Поиск)
Приложение предоставляет возможность пользователю быстро и оперативно узнать о файлах, ему доступных, а также открыть их, если соответствующее ПО установлено на ПК.
Одним из достоинств программного средства, то что оно является бесплатным.
3. СТАДИИ И ЭТАПЫ РАЗРАБОТКИ
Разработка программного средства должна выполняться по следующим этапам:
Разработка, согласование и утверждение технического задания.
Результатом выполнения данного этапа должна быть подготовленное техническое задание, на основании которого будет вестись дальнейшая разработка. Техническое задание содержится в 1, 2, 3 и 4 главах данной пояснительной записки.
Создание алгоритма программного средства.
Результатом выполнения данного этапа являются блок-схемы алгоритма проектируемого приложения.
Написание программного кода.
Результатом выполнения данного этапа должны быть и исходные тексты приложения, и рабочий программный модуль, соответствующий предъявленным требования. Программный код и модуль прилагаются к курсовой работе на магнитном носителе.
Разработка руководства пользователя.
Результатом выполнения данного этапа должно стать подготовленное руководство пользователя (глава 5 данной пояснительной записки), описывающее эксплуатацию разработанного приложения.
Защита курсовой работы.
На данном этапе проверяется соответствие разработанного приложения техническому заданию, на основе которого оно было разработано. По окончанию данного этапа выставляется оценка за защиту курсовой работы.
4 ПРИЕМ, ПЕРЕДАЧА, А ТАКЖЕ ПОРЯДОК КОНТРОЛЯ.
4.1 Виды испытаний
Проверка документации программы осуществляется преподавателем, который должен оценить соответствие созданного программного продукта всем пунктам технической документации, включая техническое задание и руководство пользователя.
Испытания и тестирование программы должны проводиться в процессе создания программы самим разработчиком, а также после завершения всех этапов проектирования в момент сдачи ПС преподавателем с использованием контрольных тестов (контрольные тесты приведены ниже), позволяющих добиться проверки работоспособности функций программного средства.
4.2 Общие требования к приему программного средства в эксплуатацию
Приём программы должен осуществляться преподавателем в присутствии разработчика. Программа считается годной, если она удовлетворяет предъявляемым требованиями. Прием программы подтверждается оценкой за курсовую работу.
5 РУКОВОДСТВО ПОЛЬЗОВАТЕЛЯ
5.1 Руководство по инсталляции программного средства
Скопируйте папку 1.0 на свой компьютер, в любое место.
Для запуска программы необходимо запустить файл – Winseek.exe (см. рис. 4).
/>
(рис. 4)
5.2 Инструкция по применению программного средства
1. После запуска программы автоматически откроется форма программы (см. рис. 5);
/>
(рис.5)
2. Для просмотра доступных файлов, необходимо выбрать интересующую пользователя папку. Это производится путём двойного нажатия на отображения папок, находящиеся в правом окне (см. рис. 5), файлы, находящиеся в папке отобразятся в левом окне;
/>
(рис 6)
Для открытия файла необходимо два раза щелкнуть по нему
/>
(рис 7)
Для поиска файлов необходимо ввести имя и расширение файла в строку Search Criteria и нажать кнопку Search
/>
(рис 8)
После этого отобразится список найденных файлов
/>
(рис 9)
6 КОНТРОЛЬНЫЙ ПРИМЕР
Поиск и открытие файла на ПК разработчика
/>
(рис 10)
/>
(рис 11)
/>
(рис 12)
/>
(рис13)
7 ПРИЛОЖЕНИЕ
Dim SearchFlag As Integer продолжение
--PAGE_BREAK--
Private Declare Function ShellExecute Lib «shell32.dll» _
Alias «ShellExecuteA» _
(ByVal hWnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Private Sub cmdExit_Click()
If cmdExit.Caption = «E&xit» Then
End
Else
SearchFlag = False
End If
End Sub
Private Sub cmdSearch_Click()
Dim FirstPath As String, DirCount As Integer, NumFiles As Integer
Dim result As Integer
If cmdSearch.Caption = "&Reset" Then
ResetSearch
txtSearchSpec.SetFocus
Exit Sub
End If
If dirList.Path dirList.List(dirList.ListIndex) Then
dirList.Path = dirList.List(dirList.ListIndex)
Exit Sub
End If
Picture2.Move 0, 0
Picture1.Visible = False
Picture2.Visible = True
cmdExit.Caption = «Cancel»
filList.Pattern = txtSearchSpec.Text
FirstPath = dirList.Path
DirCount = dirList.ListCount
NumFiles = 0
result = DirDiver(FirstPath, DirCount, "")
filList.Path = dirList.Path
cmdSearch.Caption = "&Reset"
cmdSearch.SetFocus
cmdExit.Caption = «E&xit»
End Sub
Private Function DirDiver(NewPath As String, DirCount As Integer, BackUp As String) As Integer
Static FirstErr As Integer
Dim DirsToPeek As Integer, AbandonSearch As Integer, ind As Integer
Dim OldPath As String, ThePath As String, entry As String
Dim retval As Integer
SearchFlag = True
DirDiver = False
retval = DoEvents()
If SearchFlag = False Then
DirDiver = True
Exit Function
End If
On Local Error GoTo DirDriverHandler
DirsToPeek = dirList.ListCount
Do While DirsToPeek > 0 And SearchFlag = True
OldPath = dirList.Path
dirList.Path = NewPath
If dirList.ListCount > 0 Then
dirList.Path = dirList.List(DirsToPeek — 1)
AbandonSearch = DirDiver((dirList.Path), DirCount%, OldPath)
End If
DirsToPeek = DirsToPeek — 1
If AbandonSearch = True Then Exit Function
Loop
If filList.ListCount Then
If Len(dirList.Path)
ThePath = dirList.Path
Else
ThePath = dirList.Path + "\"
End If
For ind = 0 To filList.ListCount — 1
entry = ThePath + filList.List(ind)
lstFoundFiles.AddItem entry
lblCount.Caption = Str(Val(lblCount.Caption) + 1)
Next ind
End If
If BackUp "" Then
dirList.Path = BackUp
End If
Exit Function
DirDriverHandler:
If Err = 7 Then
DirDiver = True
MsgBox «You've filled the list box. Abandoning search...» продолжение
--PAGE_BREAK--
Exit Function
Else
MsgBox Error
End
End If
End Function
Private Sub DirList_Change()
filList.Path = dirList.Path
End Sub
Private Sub DirList_LostFocus()
dirList.Path = dirList.List(dirList.ListIndex)
End Sub
Private Sub DrvList_Change()
On Error GoTo DriveHandler
dirList.Path = drvList.Drive
Exit Sub
DriveHandler:
drvList.Drive = dirList.Path
Exit Sub
End Sub
Private Sub filList_DblClick()
ShellExecute 0, vbNullString, dirList.Path + "\" + filList.FileName, _
vbNullString, vbNullString, vbNormalFocus
End Sub
Private Sub Form_Load()
Picture2.Move 0, 0
Picture2.Width = WinSeek.ScaleWidth
Picture2.BackColor = WinSeek.BackColor
lblCount.BackColor = WinSeek.BackColor
lblCriteria.BackColor = WinSeek.BackColor
lblfound.BackColor = WinSeek.BackColor
Picture1.Move 0, 0
Picture1.Width = WinSeek.ScaleWidth
Picture1.BackColor = WinSeek.BackColor
End Sub
Private Sub Form_Unload(Cancel As Integer)
End
End Sub
Private Sub ResetSearch()
lstFoundFiles.Clear
lblCount.Caption = 0
SearchFlag = False
Picture2.Visible = False
cmdSearch.Caption = "&Search"
cmdExit.Caption = «E&xit»
Picture1.Visible = True
dirList.Path = CurDir: drvList.Drive = dirList.Path
End Sub
Private Sub lstFoundFiles_DblClick()
ShellExecute 0, vbNullString, lstFoundFiles.Text, _
vbNullString, vbNullString, vbNormalFocus
End Sub
Private Sub txtSearchSpec_Change()
filList.Pattern = txtSearchSpec.Text
End Sub
Private Sub txtSearchSpec_GotFocus()
txtSearchSpec.SelStart = 0
txtSearchSpec.SelLength = Len(txtSearchSpec.Text)
End Subc