
Dim fs,d,n
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set d=fs.GetDrive("c:")
n = "驱动器:" & d
n = n & "<br />以字节计的总容量:" & d.TotalSize
Response.Write(n)
set d=nothing
set fs=nothing
%>
![]() |
|
首页 | 软件 | 编程 | 笑话 | 知识 | 公告 | 注册 | 登录 |
![]() |
|
广告位招租中 2021年 春 节 剩 22 天 2021年 情人节 剩 24 天 2021年 元宵节 剩 36 天 2022年 元 旦 剩 345 天 |
![]() |
![]() |
您现在的位置:首页 >> ASP >> 内容取得指定驱动器的总容量内容摘要: %Dim fs,d,nSet fs=Server.CreateObject('Scripting.FileSystemObject')Set d=fs.GetDrive('c:')n = '驱动器:'dn = n'br /以字节计的总容量:'d.TotalSizeResponse.Write(n)set d=nothingset fs=nothing%...... ![]() Dim fs,d,n Set fs=Server.CreateObject("Scripting.FileSystemObject") Set d=fs.GetDrive("c:") n = "驱动器:" & d n = n & "<br />以字节计的总容量:" & d.TotalSize Response.Write(n) set d=nothing set fs=nothing %> 发布日期:2019/7/3 发布时间:15:34:45 点击:4793 录入:齐天大圣 ![]() |
|
![]() |
![]() |
|