Самостоятельно

Создать приложение, с помощью которого можно добавлять информацию в текстовый файл, а затем выводить содержимое этого файла в элемент - Список.

Форма

Код (самостоятельно)

Private Sub AppendFile_Click()

Open "File2.txt" For Append As #1

Print #1, Text1.Text

Close #1

End Sub

Private Sub Command2_Click()

Dim strTxt, strBuff As String

Open "File2.txt" For Input As #2

Do While Not EOF(2)

Line Input #2, strBuff

List1.AddItem strBuff

Loop

Close #2

End Sub

Private Sub ClearList_Click()

List1.Clear

End Sub

Private Sub EraseFile_Click()

Open "File2.txt" For Output As #3

Close #3

End Sub

Простой файловый менеджер

Рассмотрим работу файловых элементов управления.

Откройте новый проект. Поместите в форму элементы DriveListBox, DirListBox, FileListBox:

Опишите процедуры обработки следующих событий:

Private Sub Dir1_Change()

File1.Path = Dir1.Path

End Sub

Private Sub Drive1_Change()

Dir1.Path = Drive1.Drive

End Sub

Запустите программу и попробуйте ее в работе – Вы связали вместе все элементы управления и теперь изменения диска или папки автоматически меняет файловый лист.

Теперь, когда все работает, добавьте в форму следующие элементы:

Форма:

Код:

Private Sub Form_Load()

Label1.Caption = File1.Path

‘добавляем в поле со списком шаблоны файлов

Combo1.AddItem "*.*"

Combo1.AddItem "*.exe"

Combo1.AddItem "*.com"

Combo1.AddItem "*.doc"

Combo1.AddItem "*.txt"

End Sub

Private Sub Combo1_Click()

‘в файловом листе устанавливаем файлы выбранного типа

File1.Pattern = Combo1.Text

End Sub

Private Sub Command1_Click() ‘кнопка пуска

On Error GoTo errr

‘изменяем текущий системный путь на выбранный в DirListBox

ChDir (Dir1.Path)

‘если файл заканчивается на .doc, то запустить Word для его открытия.

‘Shell – выполнить строку DOS

If Right$(Label1.Caption, 3) = "doc" Then

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

Shell "C:\Program Files\Microsoft Office 2000\Office\Winword " & File1.filename, vbNormalFocus

Exit Sub

End If

‘если это исполняемый файл, то запустить его

Shell Label1.Caption, vbNormalFocus

errr:

‘если файл не исполняемый, то

If Err.Number = 5 Then MsgBox "Выполняются только .exe, .com, .bat файлы", _

vbInformation, "SoftMaster"

End Sub

Private Sub Command2_Click()

'FileCopy не допускает файловые шаблоны, поэтому копирование по полному пути

target$ = "a:\" + File1.filename

FileCopy Label1.Caption, target$

End Sub

Private Sub Dir1_Change()

‘отображать путь при изменении папок

Label1.Caption = Dir1.Path

‘отображать файлы при изменении папок

File1.Path = Dir1.Path

End Sub

Private Sub Drive1_Change()

On Error GoTo errr

‘отображать выбранный диск

Label1.Caption = Drive1.Drive

‘отображать изменения папок при изменении диска

Dir1.Path = Drive1.Drive

errr:

‘если дискеты нет

If Err.Number = 68 Then

MsgBox "Устройство не готово", vbInformation, "SoftMaster"

End If

End Sub

Private Sub File1_Click()

‘если в указании пути уже использован слэш, то не использовать его повторно

If Right$(File1.Path, 1) = "\" Then

Label1.Caption = File1.Path + File1.filename

Else

Label1.Caption = File1.Path + "\" + File1.filename

End If

‘отображать размер файла

Label2.Caption = "Размер файла: " & Format(FileLen(Label1.Caption), "### ### ###") & " байт"

End Sub

Дополнительно:

Команды для работы с файлами (ставятся вместо Shell):

ChDrive изменяет текущий диск операционной системы

ChDir изменяет каталог по умолчанию

MkDir создает новый каталог

RmDir удаляет каталог

Name изменяет имя файла или перемещает его

Kill удаляет файл с диска