发信人: xtcn (阿聊), 信区: ASP
标 题: Re: 如何浏览映射驱动器?
发信站: 网易虚拟社区 (Sun Oct 10 09:27:01 1999), 站内信件
【 在 smallboy (snowman) 的大作中提到: 】
: 如何读取映射驱动器中的文件列表?
: 请用EMAIL通知我,谢谢
<%
vv=drive()
response.write vv
function drive()
Dim fs, d, dc, s, n
Set fs = CreateObject("Scripting.FileSystemObject")
Set dc = fs.Drives
For Each d in dc
If d.IsReady Then
s = s & d.DriveLetter & " - "
If d.DriveType = 3 Then n = d.ShareName Else n = d.VolumeName
s = s & "Driver:" & n
s = s & "SN: " & d.SerialNumber
s = s & "可用空间: " & FormatNumber(d.AvailableSpace/1024, 0)
s = s & "KB<br>"
End If
Next
response.write s
end function
%>
--
※ 来源:.网易虚拟社区 http://club.netease.com.[FROM: 202.101.163.244]
|