UC知道asp的fso的问题
来源：百度知道 编辑：UC知道 时间：2024/05/16 11:54:02
这段代码只能返回剩余空间最大的盘符，现在要除去C,D,E盘其它的盘对比，怎么修改这段代码？谢谢各位大哥！！
<%
Dim Disk,b,maxSize
b=maxSize=0
set f=server.createobject("scripting.filesystemobject")
For Each thing in f.Drives
If ((f.GetDrive(thing)).DriveType)<>4 Then
b=(f.GetDrive(thing)).FreeSpace
If b>maxSize Then
maxSize=b
Disk=thing.Driveletter
End If
End If
NEXT
Response.Write "磁盘剩余空间最大的是："&Disk&"盘 可用空间："&Round(maxSize/(1024*1024))&"MB"
%>
<%
Dim Disk,b,maxSize
b=maxSize=0
set f=server.createobject("scripting.filesystemobject")
For Each thing in f.Drives
If ((f.GetDrive(thing)).DriveType)<>4 Then
b=(f.GetDrive(thing)).FreeSpace
If b>maxSize Then
maxSize=b
Disk=thing.Driveletter
End If
End If
NEXT
Response.Write "磁盘剩余空间最大的是："&Disk&"盘 可用空间："&Round(maxSize/(1024*1024))&"MB"
%>
<%
Dim Disk,b,maxSize
b=maxSize=0
set f=server.createobject("scripting.filesystemobject")
For Each thing in f.Drives
If ((f.GetDrive(thing)).DriveType)<>4 Then
b=(f.GetDrive(thing)).FreeSpace
If b>maxSize and thing.Driveletter.toUpperCase() <> "C" and thing.Driveletter.toUpperCase() <> "D" and thing.Driveletter.toUpperCase() <> "E" Then
maxSize=b
Disk=thing.Driveletter
End If
End If
NEXT
Response.Write "磁盘剩余空间最大的是："&Disk&"盘 可用空间："&Round(maxSize/(1024*1024))&"MB(不包含C:,D:,E:)"
%>