用VB測(cè)定可移動(dòng)驅(qū)動(dòng)器是否準(zhǔn)備好

微軟腳本運(yùn)行時(shí)間包括驅(qū)動(dòng)器對(duì)象，它能夠使程序返回驅(qū)動(dòng)器是否已經(jīng)安放在計(jì)算機(jī)的有關(guān)信息。你可以通過FileSystemObject驅(qū)動(dòng)器屬性來訪問驅(qū)動(dòng)器對(duì)象。驅(qū)動(dòng)器屬性對(duì)象返回驅(qū)動(dòng)器是否已經(jīng)安裝在計(jì)算機(jī)的所有信息集合。
    你可以通過驅(qū)動(dòng)器信息集合操作驅(qū)動(dòng)器，可以通過調(diào)用驅(qū)動(dòng)器號(hào)的方法來返回一個(gè)特定的驅(qū)動(dòng)器。
    Dim objFSO As FileSystemObject
    Dim objDrive As Drive
    Set objFSO = New FileSystemObject
    For Each objDrive In objFSO.Drives
    注釋：Process each drive
    Next
    注釋：Retrieve the A drive
    Set objDrive = objFSO.Drives.Item("A")
    驅(qū)動(dòng)器對(duì)象中有一個(gè)DriveType屬性，這一屬性返回一個(gè)能夠指示驅(qū)動(dòng)器是否可移動(dòng)，或是一個(gè)CD-ROM，或是一個(gè)固定的驅(qū)動(dòng)器。它也支持IsReady屬性，這一屬性測(cè)定驅(qū)動(dòng)是否可以被訪問。
    Debug.PrintobjDrive.DriveType & ":" & objDrive.IsReady
    驅(qū)動(dòng)器對(duì)象還支持其他有用的方法，比如FileSystem屬性，這一屬性返回驅(qū)動(dòng)器上的文件信息。支持的FreeSpace屬性返回驅(qū)動(dòng)器可利用的總共字節(jié)。