| Visual Basic Scripting Edition | 語言參考 |
處理驅(qū)動器和文件夾使用 FileSystemObject (FSO) 對象模式，可以有計劃地處理驅(qū)動器和文件夾，就像在 Windows 資源管理器中交互式地處理它們一樣�？梢詮椭坪鸵苿游募䦅A，獲取有關驅(qū)動器和文件夾的信息，等等。 獲取有關驅(qū)動器的信息可以用 Drive 對象來獲得有關各種驅(qū)動器的信息，這些驅(qū)動器是實物地或通過網(wǎng)絡連接到系統(tǒng)上的。它的屬性可以用來獲得下面的信息內(nèi)容： - 驅(qū)動器的總?cè)萘�，以字�?jié)為單位（TotalSize 屬性）
- 驅(qū)動器的可用空間是多少，以字節(jié)為單位（AvailableSpace 或 FreeSpace 屬性）
- 哪個號被賦給了該驅(qū)動器（DriveLetter 屬性）
- 驅(qū)動器的類型是什么，如可移動的、固定的、網(wǎng)絡的、CD-ROM 或 RAM 磁盤（DriveType 屬性）
- 驅(qū)動器的序列號（SerialNumber 屬性）
- 驅(qū)動器使用的文件系統(tǒng)類型，如 FAT、FAT32、NTFS 等等（FileSystem 屬性）
- 驅(qū)動器是否可以使用（IsReady 屬性）
- 共享和/或卷的名字（ShareName 和 VolumeName 屬性）
- 驅(qū)動器的路徑或根文件夾（Path 和 RootFolder 屬性）
請考察 示例代碼，來領會如何在 FileSystemObject 中使用這些屬性。 Drive 對象的用法示例使用 Drive 對象來收集有關驅(qū)動器的信息。在下面的代碼中，沒有對實際的 Drive 對象的引用；相反，使用 GetDrive 方法來獲得現(xiàn)有 Drive 對象的引用（在這個例子中就是 drv）。 下面示例示范了如何在 VBScript 中使用 Drive 對象： Sub ShowDriveInfo(drvPath)
Dim fso, drv, s Set fso =CreateObject("Scripting.FileSystemObject") Set drv =fso.GetDrive(fso.GetDriveName(drvPath)) s ="Drive " & UCase(drvPath) & " - " s =s & drv.VolumeName & "<br>" s =s & "Total Space: " & FormatNumber(drv.TotalSize / 1024, 0) s =s & " Kb" & "<br>" s =s & "Free Space: " & FormatNumber(drv.FreeSpace / 1024, 0) s =s & " Kb" & "<br>" Response.Write sEnd Sub
下面的代碼說明在 Visual Basic Scripting Edition 中實現(xiàn)同樣的功能： function ShowDriveInfo1(drvPath)
{ var fso, drv, s =""; fso =new ActiveXObject("Scripting.FileSystemObject"); drv =fso.GetDrive(fso.GetDriveName(drvPath)); s +="Drive " + drvPath.toUpperCase()+ " - "; s +=drv.VolumeName + "<br>"; s +="Total Space: " + drv.TotalSize / 1024; s +=" Kb" + "<br>"; s +="Free Space: " + drv.FreeSpace / 1024; s +=" Kb" + "<br>"; Response.Write(s);}
處理文件夾在下面的表中，描述了普通的文件夾任務和執(zhí)行它們的方法。
| 任務 | 方法 | | 創(chuàng)建文件夾。 | FileSystemObject.CreateFolder | | 刪除文件夾。 | Folder.Delete 或 FileSystemObject.DeleteFolder | | 移動文件夾。 | Folder.Move 或 FileSystemObject.MoveFolder | | 復制文件夾。 | Folder.Copy 或 FileSystemObject.CopyFolder | | 檢索文件夾的名字。 | Folder.Name | | 如果文件夾在驅(qū)動器上存在，則找出它。 | FileSystemObject.FolderExists | | 獲得現(xiàn)有 Folder 對象的實例。 | FileSystemObject.GetFolder | | 找出文件夾的父文件夾名。 | FileSystemObject.GetParentFolderName | | 找出系統(tǒng)文件夾的路徑。 | FileSystemObject.GetSpecialFolder |
請考察示例代碼，來看看在 FileSystemObject 中使用了多少種這些的方法和屬性。 下面的示例示范了如何在 VBScript 中使用 Folder 和 FileSystemObject 對象，來操作文件夾和獲得有關它們的信息： Sub ShowFolderInfo()
Dim fso, fldr, s ' 獲得 FileSystemObject 的實例。
Set fso =CreateObject("Scripting.FileSystemObject")
' 獲得 Drive 對象。
Set fldr =fso.GetFolder("c:")
' 打印父文件夾名字。
Response.Write "Parent folder name is: " & fldr & "<br>"
' 打印驅(qū)動器名字。
Response.Write "Contained on drive " & fldr.Drive & "<br>"
' 打印根文件名。
If fldr.IsRootFolder =True Then
Response.Write "This is the root folder." & ""<br>"<br>"
Else
Response.Write "This folder isn't a root folder." & "<br><br>"
End If
' 用 FileSystemObject 對象創(chuàng)建新的文件夾。
fso.CreateFolder ("C:\Bogus")
Response.Write "Created folder C:\Bogus" & "<br>"
' 打印文件夾的基本名字。
Response.Write "Basename =" & fso.GetBaseName("c:\bogus") & "<br>"
' 刪除新創(chuàng)建的文件夾。
fso.DeleteFolder ("C:\Bogus")
Response.Write "Deleted folder C:\Bogus" & "<br>"
End Sub
下面的示例顯示如何在 Visual Basic Scripting Edition 中使用 Folder 和 FileSystemObject 對象： function ShowFolderInfo()
{ var fso, fldr, s =""; // 獲得 FileSystemObject 的實例。
fso =new ActiveXObject("Scripting.FileSystemObject");
// 獲得 Drive 對象。
fldr =fso.GetFolder("c:");
// 打印父文件夾名。
Response.Write("Parent folder name is: " + fldr + "<br>");
// 打印驅(qū)動器名字。
Response.Write("Contained on drive " + fldr.Drive + "<br>");
// 打印根文件名。
if (fldr.IsRootFolder)
Response.Write("This is the root folder.");
else
Response.Write("This folder isn't a root folder.");
Response.Write("<br><br>");
// 用 FileSystemObject 對象創(chuàng)建新的文件夾。
fso.CreateFolder ("C:\\Bogus");
Response.Write("Created folder C:\\Bogus" + "<br>");
// 打印文件夾的基本名。
Response.Write("Basename =" + fso.GetBaseName("c:\\bogus") + "<br>");
// 刪除新創(chuàng)建的文件夾。
fso.DeleteFolder ("C:\\Bogus");
Response.Write("Deleted folder C:\\Bogus" + "<br>");
}
返回首頁
|