Академия Специальных Курсов по Компьютерным Технологиям
    Главная страница Послать письмо
 
AskIt.ru  
   
   
   
   
   
   
 
 
  Главная / Заказные курсы / Программирование для администраторов
 
 

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


<-- Назад Читать дальше -->

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

 

   
   
   
   
   
   
   
   
   
   
 
<-- Назад Читать дальше -->

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


 

 
© 2004-2016, Академия Специальных Курсов
по Информационным Технологиям
.
Все права защищены.

Разработка NevaStudio
г. Санкт-Петербург, Васильевский остров,
20-я линия, д. 7
Офис 101, 2-й этаж
Телефон: 8(812)922-47-60
E-mail: info@askit.ru