发信人: xtcn()
整理人: i_am_trueman(2003-10-22 17:05:32), 站内信件
|
【 在 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://www.moon-soft.com．[FROM: 202.101.163.244]
|
|