Visual Basic проводник

Ну а теперь приступим к созданиюсвоего собственного проводника. Вернее наподобие проводника. Я сделал пример,чтобы были понятны его основные принципы, а уж дизайн к ниму вы придумывайтесами =)! В краце объясню зачем нужен Label: в него мы копируем последние три буквы имени файла, т.е. егорасширение. Затем смотрим, если эти три буквы ;) "ЕХЕ", то запускаемэтот файл.

Ну приступим. Приготовим следуйщее:

Компонент DriveListBox с именем Drive1
Компонент DirListBox с именем Dir1
И компонент FileListBox с именем File1
Текстовое поле Text1
Label с именем Label1
Кнопку с именем Command1 и свойством Caption равным "Запуск"
И последнее CheckBox с именем Check1 и свойством Caption равным "Только EXE"

Код:

PrivateSub Check1_Click()
" в FileListBox показываются файлы только срасширением EXE
File1.Pattern = "*.exe"
End Sub

PrivateSub Command1_Click()
Dim prog AsDouble
" если текст Label"а "EXE", то
If Label1.Caption ="exe" Or Label1.Caption ="EXE" Then
" процедура запуска файла, vbNormalFocus - это размерокна
prog = Shell(Text1.Text, vbNormalFocus)
" если расширение не "exe", то появляется сообщение
Else: MsgBox "Можнозапускать файлы только с расширением EXE"
End If
End Sub

PrivateSubDir1_Change()
"если выбрали другую папку, то файлы показываются именно
" из этой папки
File1.Path =Dir1.Path
End Sub

PrivateSub Drive1_Change()
" если выбрали другуй диск, то папки показываютсяименно
" с этого диска
Dir1.Path = Drive1.Drive
End Sub

PrivateSubFile1_Click()
" при нажатии на файл, путь к этому файлу появляетсяв текстовом поле
Text1.Text = File1.Path & "/" & File1.FileName
" берем последние три буквы из текстового поля ивставляем их в Label
Label1.Caption = Right$(Text1.Text, 3)
End Sub

Скачать то, что получилось, можете отсюда.