Logo GenDocs.ru

Поиск по сайту:  


Загрузка...

Лабораторная работа №8 - файл Отчет лаба 10.doc


Лабораторная работа №8
скачать (228.2 kb.)

Доступные файлы (1):

Отчет лаба 10.doc1484kb.26.01.2009 17:50скачать

содержание
Загрузка...

Отчет лаба 10.doc

Реклама MarketGid:
Загрузка...




Лабораторная работа № 10. Работа с файлами

1. Работа с файловыми элементами управления
Цель: Для иллюстрации возможностей работы с файловыми элементами управления будет рассмотрено приложение "Поиск", которое отображает файлы текущего каталога в зависимости от указанного пользователем шаблона, а также от заданных атрибутов.

Листинг 10.1. Код приложения "Поиск"
Option Explicit

Private Sub cmdExit_Click()

End

End Sub

Private Sub cmdSearch_Click()

With filSearch ' Шаблон (ы)

.Pattern = txtSearch.Text ' Атрибут (ы)

.ReadOnly = (chkReadOnly.Value = vbChecked)

.Archive = (chkArchive.Value = vbChecked)

.Normal = (chkNormal.Value = vbChecked)

.Hidden = (chkHidden.Value = vbChecked)

.System = (chkSystem.Value = vbChecked) ' Количество отображаемых файлов

lblValue.Caption = .ListCount

End With

End Sub

Private Sub dirSearch_Change()

' Изменение текущего каталога

filSearch.Path = dirSearch.Path

ChDir dirSearch.Path




lblValue.Caption = filSearch.ListCount

End Sub

Private Sub dirSearch_KeyPress(KeyAscii As Integer)

' Нажата ли клавиша Enter для выбора каталога

If KeyAscii = 13 Then

With dirSearch

If .Path <> .List(.Listlndex) Then .Path = .List(.Listlndex)

End If

End With

End If

End Sub

Private Sub drvSearch_Change() ' Изменение текущего диска

Dim vntMessage

On Error GoTo ErrorLabel

dirSearch.Path = drvSearch.Drive

ChDrive drvSearch.Drive

Exit Sub

' Если устройство не готово, то выводится сообщение

ErrorLabel:

vntMessage = "Диск " + UCase(drvSearch.Drive) + Chr(13) + Chr(lO)

vntMessage = vntMessage + "отсутствует."

vntMessage=MsgBox(vntMessage,vbOKOnly+vbExclamation,"Ошибка")

drvSearch.Drive = dirSearch.Path

End Sub

Private Sub Form_Load()

' Установка текущего каталога

dirSearch.Path = "c:\"

' Количество отображаемых файлов

lblValue.Caption = filSearch.ListCount

End Sub
Результат выполнения работы:



Рисунок 10.1. Выполнение приложения «Поиск»

^ 2. Модель FSO
Цель: Изучение возможностей работы с дисками при помощи объекта Drive будет рассмотрено приложение "Свойства дисков", отображающее на форме некоторые свойства выбранного диска.

Листинг 10.2. Код приложения "Свойства дисков"
Private drvName

Option Explicit

Private Sub drvList_Change()

Dim vntMessage

On Error GoTo ErrorLabel

' Отображение свойств выбранного диска

DriveInfo

drvName = drvList.Drive

Exit Sub

' Сообщение об отсутствии диска

ErrorLabel:

vntMessage = "Диск " + UCase(drvList.Drive) + Chr(13) + Chr(10)

vntMessage = vntMessage + "отсутствует."

vntMessage = MsgBox(vntMessage, vbOKOnly + vbExclamation, "Ошибка")

drvList.Drive = drvName

End Sub

Private Sub Form_Load()

' Установка первого отображаемого диска

drvList.Drive = "c:\"

drvName = drvList.Drive

Call DriveInfo

End Sub

Private Sub DriveInfo()

' Объявление переменной типа объект FileSystemObject

Dim fso As New FileSystemObject

' Объявление переменной для работы с дисками

Dim drv As Drive

Dim strInfo, drvType

' Получение доступа к выбранному диску

Set drv = fso.GetDrive(fso.GetDriveName(drvList.Drive))

' Работа со свойствами объекта класса Drive

With drv

strInfo = "Метка тома: " & .VolumeName & vbCrLf & vbCrLf

strInfo = strInfo & "Серийный номер: " & .SerialNumber & vbCrLf & vbCrLf

drvType = .DriveType

' Определение типа диска

Select Case drvType

Case 0

drvType = "Неизвестный"

Case 1

drvType = "Сменный"

Case 2

drvType = "Жесткий"

Case 3

drvType = "Сетевой"

Case 4

drvType = "CD-ROM"

Case 5

drvType = "RAM"

End Select

strInfo = strInfo & "Тип: " & drvType & vbCrLf & vbCrLf

strInfo=strInfo&"Файловая система: " & .FileSystem & vbCrLf & vbCrLf

strInfo=strInfo &"Свободно:"& .FreeSpace & " байт" & vbCrLf & vbCrLf

strInfo=strInfo &"Емкость: "& .TotalSize &"байт"

End With

' Отображение свойств выбранного диска

lblInfo.Caption = strInfo

End Sub

Результат выполнения работы:



Рисунок 10.2. Выполнение приложения «Свойства дисков»
^ 3. Объекты Folder и File

Цель: Выявить возможности обработки каталогов и файлов при помощи объектов Folder и File, будет рассмотрено приложение "Свойства папок и файлов", которое отображает на форме свойства выбранного каталога и файла.

Листинг 10.3. Приложение "Свойства папок и файлов"
Option Explicit

Private Sub dirList_Change()

' Отображение свойств выбранной папки

Call DirInfo

filList.Path = dirList.Path

ChDir dirList.Path

End Sub

Private Sub DirInfo()

Dim fso As New FileSystemObject

Dim fld As Folder

Dim fldInfo

On Error GoTo ErrorLabel

Set fld = fso.GetFolder(dirList.Path)

With fld

If Not (.IsRootFolder) Then

fldInfo = "Название: " & .Name & vbCrLf & vbCrLf

fldInfo = fldInfo & "Тип: " & .Type & vbCrLf & vbCrLf

fldInfo = fldInfo & "Путь: " & .Path & vbCrLf & vbCrLf

fldInfo = fldInfo & "Размер: " & .Size & " байт" & vbCrLf & vbCrLf

fldInfo = fldInfo & "Содержит:" & vbCrLf

fldInfo = fldInfo & " файлов: " & .Files.Count & vbCrLf

fldInfo = fldInfo & " папок: " & .SubFolders.Count & vbCrLf & vbCrLf

fldInfo = fldInfo & "Изменен: " & .DateLastModified & vbCrLf & vbCrLf

lblFolder.Caption = fldInfo

Else

lblFolder.Caption = ""

End If

lblFile.Caption = ""

End With

Exit Sub

ErrorLabel:

MsgBox "Некоторые свойства недоступны"

End Sub

Private Sub filList_Click()

' Отображение свойств выбранного файла

Call FileInfo

End Sub

Private Sub FileInfo()

Dim fso As New FileSystemObject

Dim fil As File

Dim FilInfo

Set fil = fso.GetFile(filList.FileName)

With fil

FilInfo = "Название: " & .Name & vbCrLf & vbCrLf

FilInfo = FilInfo & "Тип: " & .Type & vbCrLf & vbCrLf

FilInfo = FilInfo & "Путь: " & .Path & vbCrLf & vbCrLf

FilInfo = FilInfo & "Размер: " & .Size & " байт" & vbCrLf & vbCrLf

FilInfo = FilInfo & "Изменен: " & .DateLastModified & vbCrLf & vbCrLf

lblFile.Caption = FilInfo

End With

End Sub

Private Sub Form_Load()

dirList.Path = "C:\Program Files\Microsoft Visual Studio\VB98 "

End Sub
Результат выполнения программы:



Рисунок 10.3. Выполнение приложения «Свойства папок и файлов»


Скачать файл (228.2 kb.)

Поиск по сайту:  

© gendocs.ru
При копировании укажите ссылку.
обратиться к администрации
Рейтинг@Mail.ru