Visual Basic Script


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


nbsp;
 
 

         VBScript:

    Dim fso, d, t
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set d = fso.GetDrive("c")
    Select Case d.DriveType
    Case 0: t = "Неопределен"
    Case 1: t = "Дисковод 3.5'"
    Case 2: t = "Обычный HDD"
    Case 3: t = "Cетевой"
    Case 4: t = "CD-ROM"
    Case 5: t = "RAM Disk"
    End Select
    MsgBox "Диск " & "с" & ": - " & t
 

        JScript:

    var fso, d, s, t;
    fso = new ActiveXObject("Scripting.FileSystemObject");
    d = fso.GetDrive("c:");
    switch (d.DriveType)
    {
    case 0: t = "Неопределен"; break;
     case 1: t = "Диск 3.5'"; break;
     case 2: t = "Обычный HDD"; break;
     case 3: t = "Сетевой"; break;
     case 4: t = "CD-ROM"; break;
     case 5: t = "RAM Disk"; break;
     }
     s = "Drive " + "c" + ": - " + t;
    WScript.echo(s);
 
 

        FileSystem – возвращает тип файловой системы FAT, NTFS, или CDFS.

        VBScript:

    Dim FSO, D, FileSys
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set D = FSO.GetDrive("C")
    FileSys = D.FileSystem
    MsgBox "Файловая система на диске C: " + FileSys




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



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