一个ASP展示剩余磁盘空间的函数

发布时间：2023-07-11 14:53:20 所属栏目：Asp教程来源：

导读：这是一个ASP显示剩余磁盘空间的函数，需要的朋友可以拿去直接用就可以了，

Function ShowFreeSpace(drvPath)

Dim fso, d, s

Set fso = CreateObject("Scripting.FileSystemObject")

Set

这是一个ASP显示剩余磁盘空间的函数，需要的朋友可以拿去直接用就可以了，

Function ShowFreeSpace(drvPath)

    Dim fso, d, s

    Set fso = CreateObject("Scripting.FileSystemObject")

    Set d = fso.GetDrive(fso.GetDriveName(drvPath))

    s = "驱动器 " & UCase(drvPath) & " - "

    s = s & d.VolumeName &"<BR>"

    s = s & "可用空间：" & FormatNumber(d.FreeSpace/1024, 0)

    s = s & "KB"

ShowFreeSpace = s

End Function

（编辑：聊城站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!