|
蓝森林 http://www.lslnet.com 2006年8月25日 8:28
 [asp]关于drive
<%
set mysfo=server.createobject("scripting.filesystemobject")
set mydrive=mysfo.drives
response.write ("可利用的驱动器数目:" &mydrive.count & "<hr>")
for each drive in mydrive
%>
<br>驱动器标识:<%=drive.driveletter%>
<br>驱动器全部空间:<%=drive.totalsize%>
<br>驱动器可用空间:<%=drive.availablespace%>
<br>驱动器的根目录:<%=drive.rootfolder%>
<br>驱动器卷名:<%=drive.volumnname%>
<%
next
%>
那位朋友帮我调试一下.!!!
我调试的时候只输出<br>驱动器标识:<%=drive.driveletter%>是可以的.然后我加了后面的<br>驱动器全部空间:<%=drive.totalsize%>
<br>驱动器可用空间:<%=drive.availablespace%>
<br>驱动器的根目录:<%=drive.rootfolder%>
<br>驱动器卷名:<%=drive.volumnname%>
就不可以了,就会出现磁盘没有准备好等错误!!
|
驱动器不仅仅只有硬盘，还有其他硬件也算，比如软驱，光驱等。
你遍历的话要考虑到这两种设备，提示磁盘未准备好的情况就是逻列软驱资料时无法读取软驱造成的。 |
| 可是我的C,D,E,F也在的啊,怎么不显示这几个的呢, |
显示错误
[code]<br>驱动器卷名:<%=drive.volumnname%>
[/code]这个属性通不过。
给你一个好看的：
[code]<% Response.Buffer = True %>
<html>
<head>
<title>Drive :</title>
<style>
td { font-family:tahoma,verdana,sans-serif;font-size:8pt;padding-left:3; }
a { text-decoration:none;color:#5A7193;font-style:italic; }
</style>
</head>
<body topmargin="10" marginheight="10" leftmargin="0" marginwidth="0">
<table align="center" width="90%" border="1" bordercolor="silver" cellspacing="2" cellpadding="0">
<tr bgcolor="#f7f7f7">
<td align="center">
Home
</a>
</td>
</tr>
</table>
<table align="center" width="90%" border="1" bordercolor="silver" cellspacing="2" cellpadding="0">
<tr bgcolor="#ccddee">
<td>Drive</td><td>Type</td><td>FileSystem</td><td>TotalSize</td><td>FreeSpace</td>
</tr>
<%
Function getDriveType (driveType)
Dim retVal
Select Case driveType
Case 0 retVal = "Unknown"
Case 1 retVal = "Removable"
Case 2 retVal = "Fixed"
Case 3 retVal = "Network"
Case 4 retVal = "CD ROM"
Case 5 retVal = "RAM Disk"
End Select
getDriveType = retVal
End Function
Dim fso
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Dim drives
Set drives = fso.Drives
Dim isReady
isReady = False
For Each drive in drives
isReady = drive.IsReady
If isReady Then
Response.Write "<tr bgcolor=""#f7f7f7"">"
Else
Response.Write "<tr style=""color:gray;"">"
End If
Response.Write "<td align=""center"">"
If isReady Then
Response.Write "<a href=""folder.asp?drive=" & drive.DriveLetter & """>" & drive.Path & "</a>"
Else
Response.Write drive.Path
End If
Response.Write "</td>"
Response.Write "<td>" & getDriveType(drive.DriveType) & "</td>"
If isReady Then
Response.Write "<td>" & drive.FileSystem & "</td>"
Response.Write "<td>" & FormatNumber((drive.TotalSize / 1000000),0) & " MB</td>"
Response.Write "<td>" & FormatNumber((drive.FreeSpace / 1000000),0) & " MB</td>"
Else
Response.Write "<td>-</td>"
Response.Write "<td>-</td>"
Response.Write "<td>-</td>"
End If
Response.Write "</tr>"
Next
Set drives = Nothing
Set fso = Nothing
%>
</table>
</body>
</html>
[/code] |
| 那里如果在我的基础之上进行修改呢,怎么做啊? |
|
