Visual Basic Script


6_5_ Диски - часть 5


    MsgBox "Файловая система на диске C: " & Hex(Serial)
    'выводим его в шестнадцатеричной системе

        JScript:

    var FSO = WScript.CreateObject("Scripting.FileSystemObject");
    var D = FSO.GetDrive("C");
    var Serial = D.SerialNumber;
    'получаем серийный номер диска C в десятичной системе
 
    WScript.Echo("Файловая система на диске C: " + Serial.toString(16));
    'выводим его в шестнадцатеричной системе
 

         ShareName – сетевой адрес устройства

         VolumeName – возвращает/устанавливает метку диска

         Синтаксис:

         object.VolumeName [= newname]

         где object - объект Drive

         Необязательный параметр:

         newname - новая метка диска
 

         VBScript:

    Dim FSO, D, Vol
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set D = FSO.GetDrive("C")
    Vol = D.VolumeName
    If Vol = "" Then
    'если метка не задана
    MsgBox"Метка для диска C не задана"
    Else
    MsgBox"Метка диска C: " & Vol
    End If
 

        JScript:

    var FSO = WScript.CreateObject("Scripting.FileSystemObject");
    var D = FSO.GetDrive("C");
    Vol = D.VolumeName ;
    if (Vol == "")
    //если метка не задана
    {
    WScript.Echo("Метка для диска C не задана");
    }
    else
    {
    WScript.Echo("Метка диска C: " + Vol);
    }
 

Назад по тексту | Содержание | Вперед по тексту

О проекте | История | E-mail


Copyright (C) 2000 - 2001 Alex Neverov

#bn { DISPLAY: block } #bt { DISPLAY: block }




Начало  Назад  Вперед



Книжный магазин