8. Работа с объектами файловой системы

Работа с объектами файловой системы из скрипта VBScript: самостоятельная работа

Упражнение 1. Работа со свойствами дисков

Напишите скрипт DiskSpaceCheck.vbs, который проверяет наличие свободного пространства на всех жестких дисках компьютера и выводит предупреждение пользователю, если свободного места на диске меньше 50 Мбайт. Измените скрипт таким образом, чтобы он записывал в текстовый файл C:\log_disk.txt информацию о компьютере, на котором обнаружена нехватка свободного места, букве диска и размере свободного пространства.

Примечание: для целей проверки работоспособности скрипта можно на время изменить порог свободного дискового пространства до 2 Гбайт.

Упражнение 2. Работа с компакт-диском:

Напишите скрипт CheckCD.vbs, который выводит предупреждение "Вставьте компакт-диск", проверяет готовность компакт-диска и опять просит вставить компакт-диск, если он не вставлен. Если компакт-диск вставлен, должно выводиться сообщение "OK".

Ответ к упражнению 1. Работа с со свойствами дисков

Итоговый код скрипта DiskSpaceCheck.vbs может выглядеть так:

Option Explicit

Dim fso, drv

Dim text, fsp, file

Set fso = CreateObject("Scripting.FileSystemObject")

text = ""

For Each drv In fso.Drives

    If drv.DriveType = 2 Then

        If drv.IsReady Then

            fsp = Round(drv.AvailableSpace / 1024 / 1024, 2)

            If fsp < 2048 Then

                text = text & "Drive " & drv.DriveLetter & ": - free space " & fsp & " Mb." & vbCrLf

            End if

        End if

    End If

Next

If text <> "" Then

    text = Left(text, Len(text) - 2)

    Set file = fso.CreateTextFile("C:\log_disk.txt", True)

    file.WriteLine text

    file.Close

End if

MsgBox text

Ответ к упражнению 2. Работа с компакт-диском

Итоговый код скрипта CheckCD.vbs может выглядеть так:

Option Explicit

Dim fso, text, drv

Dim foundflag

Set fso = CreateObject("Scripting.FileSystemObject")

foundflag = False

For Each drv In fso.Drives

    If drv.DriveType = 4 Then

    FoundFlag = True

    Exit For

    End If

Next

If foundflag Then

    Do Until drv.IsReady

        MsgBox "Insert disk."

    Loop

    MsgBox "OK"

End if

Получить учебные материалы по этому курсу