注意:本實例教程因為和具體空間的驅動器有關,所以運行結果請自行測試,不再提供運行結果。
取得指定驅動器的可用空間數
本例演示如何首先創建一個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屬性來獲得指定驅動器的總容量。
本文是網頁教學(http://www.webjx.com)收集整理或者原創內容,轉載請注明出處!
本實例代碼如下:
<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來取得指定驅動器的文件系統類型。
本文由網頁教學網(http://www.webjx.com)整理發布!轉載請注明出處,謝謝!
本實例代碼如下:
<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屬性來取得指定驅動器的序列號。
本文由網頁教學網(www.webjx.com)發布!轉載和采集的話請不要去掉!謝謝。
本實例代碼如下:
<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>