程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 網頁編程 >> ASP編程 >> 關於ASP編程 >> ASP實例教程:Drive對象

ASP實例教程:Drive對象

編輯:關於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屬性來獲得指定驅動器的總容量。

本文是網頁教學(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>

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved