ASP 網頁設計 技巧
Drive 對象
注意：本實例教程因為和具體空間既驅動器有關，所以運行結果請自行測試，唔再提供運行結果。
取得指定驅動器的可用空間數
本例演示如何首先創建一個FileSystemObject對象，然後使用AvailableSpace屬性來獲得指定驅動器的可用空間。
本實例代碼如下：
<html>
<body>
<%
Dim fs, d, n
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set d=fs.GetDrive("c:")
n = "驅動器：" & d
n = n & "<br>以位元組計的可用空間：" & d.AvailableSpace
Response.Write(n)
set d=nothing
set fs=nothing
%>
</body>
</html>
取得指定驅動器的剩餘空間容量
本例演示如何使用FreeSpace空間屬性來取得指定驅動器的剩餘空間。
本實例代碼如下：
<html>
<body>
<%
Dim fs, d, n
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set d=fs.GetDrive("c:")
n = "驅動器：" & d
n = n & "<br />以位元組計的剩餘空間：" & d.FreeSpace
Response.Write(n)
set d=nothing
set fs=nothing
%>
</body>
</html>
取得指定驅動器的總容量
本例演示如何使用TotalSize屬性來獲得指定驅動器的總容量。
本實例代碼如下：
<html>
<body>
<%
Dim fs,d,n
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set d=fs.GetDrive("c:")
n = "驅動器：" & d
n = n & "<br>以位元組計的總容量：" & d.TotalSize
Response.Write(n)
set d=nothing
set fs=nothing
%>
</body>
</html>
取得指定驅動器的驅動器字母
本例演示如何使用DriveLetter屬性來獲得指定驅動器的驅動器字母。
本實例代碼如下：
<html>
<body>
<%
dim fs, d, n
set fs=Server.CreateObject("Scripting.FileSystemObject")
set d=fs.GetDrive("c:")
Response.Write("驅動器字母是：" & d.driveletter)
set d=nothing
set fs=nothing
%>
</body>
</html>
取得指定驅動器的驅動器類型
本例演示如何使用DriveType屬性來獲得指定驅動器的驅動器類型。
本實例代碼如下：
<html>
<body>
<%
dim fs, d, n
set fs=Server.CreateObject("Scripting.FileSystemObject")
set d=fs.GetDrive("c:")
Response.Write("驅動器類型是：" & d.DriveType)
set d=nothing
set fs=nothing
%>
</body>
</html>
取得指定驅動器的文件系統資訊
本例演示如何使用FileSystem來取得指定驅動器的文件系統類型。
本實例代碼如下：
<html>
<body>
<%
dim fs, d, n
set fs=Server.CreateObject("Scripting.FileSystemObject")
set d=fs.GetDrive("c:")
Response.Write("文件系統是：" & d.FileSystem)
set d=nothing
set fs=nothing
%>
</body>
</html>
驅動器是否已就緒？
本例演示如何使用IsReady屬性來檢查指定的驅動器是否已就緒。
本實例代碼如下：
<html>
<body>
<%
dim fs,d,n
set fs=Server.CreateObject("Scripting.FileSystemObject")
set d=fs.GetDrive("c:")
n = "此 " & d.DriveLetter
if d.IsReady=true then
n = n & " 驅動器已就緒。"
else
n = n & " 驅動器未就緒。"
end if
Response.Write(n)
set d=nothing
set fs=nothing
%>
</body>
</html>
取得指定驅動器的路徑
本例演示如何使用Path屬性來取得指定驅動器的路徑。
本實例代碼如下：
<html>
<body>
<%
dim fs,d
set fs=Server.CreateObject("Scripting.FileSystemObject")
set d=fs.GetDrive("c:")
Response.Write("路徑是：" & d.Path)
set d=nothing
set fs=nothing
%>
</body>
</html>
取得指定驅動器的根文件夾
本例演示如何使用RootFolder屬性來取得指定驅動器的根文件夾。
本實例代碼如下：
<html>
<body>
<%
dim fs,d
set fs=Server.CreateObject("Scripting.FileSystemObject")
set d=fs.GetDrive("c:")
Response.Write("根文件是：" & d.RootFolder)
set d=nothing
set fs=nothing
%>
</body>
</html>
取得指定驅動器的序列號
本例演示如何使用Serialnumber屬性來取得指定驅動器的序列號。
本實例代碼如下：
<html>
<body>
<%
dim fs,d
set fs=Server.CreateObject("Scripting.FileSystemObject")
set d=fs.GetDrive("c:")
Response.Write("序列號：" & d.SerialNumber)
set d=nothing
set fs=nothing
%>
</body>
</html>
留言列表
