当前位置:

Netease BBS 精华 >>讨论区精华 >>电脑技术 >>● ASP

发信人: 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]


当前位置:

Netease BBS 精华 >>讨论区精华 >>电脑技术 >>● ASP
 
(C)1997-1998 版权所有
广州网易计算机系统有限公司