Предыдущая страница реферата | 1  2  3  4  5  6  7  8 | Следующая страница реферата

Серийный номер дисковода (свойство SerialNumber);

Тип файловой системы использования дисковода FAT, FAT32, NTFS, и т.д (свойство FileSystem);

Является ли дисковод доступен для использования (свойство IsReady);

Имя общих и/или Имя объемa (свойства ShareName и VolumeName);

Путь или корневую папку дисковода (свойства Path и RootFolder);

Пример использования объекта Drive (Дисковода)

Пример ниже показывается, как использовать объект Drive, чтобы получить полную информацию относительно дисковода. Не забудьте, что в следующем коде Вы не будете видеть ссылку к фактическому объекту Drive, достаточно, что Вы используете метод GetDrive чтобы получить ссылку для существующего объекта Drive (в этом случае - drv):

Private Sub Command3_Click()

Dim fso As New FileSystemObject, drv As Drive, s As String

Set drv = fso.GetDrive(fso.GetDriveName("c:"))

s = "Drive " & UCase("c:") & " - "

s = s & drv.VolumeName & vbCrLf

s = s & "Total Space: " & FormatNumber(drv.TotalSize / 1024, 0)

s = s & " Kb" & vbCrLf

s = s & "Free Space: " & FormatNumber(drv.FreeSpace / 1024, 0)

s = s & " Kb" & vbCrLf

MsgBox s

End Sub

Работа с Folders (Папками)

Этот список показывает общие задачи папки и методы для выполнения их:

Создать папку - FileSystemObject.CreateFolder

Удалить папку - Folder.Delete или FileSystemObject.DeleteFolder

Переместить папку - Folder.Move или FileSystemObject.MoveFolder

Копировать папку - Folder.Copy или FileSystemObject.CopyFolder

Возвратить имя папки - Folder.Name

Рекомендуем скачать другие рефераты по теме: товар реферат, доклад по обж.



Предыдущая страница реферата | 1  2  3  4  5  6  7  8 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки