【发布时间】:2017-09-26 15:51:17
【问题描述】:
我正在编写一个 HTA 来做一些基本的事情,我需要做的一件事是显示可用的硬盘空间。我有这个 VB 脚本部分:
Dim FreeHDSpace
Dim test32
test32 = 56
Sub Window_onLoad
Dim FreeHDSpace
window.resizeTo 550,700
Set objWMIService = GetObject("winmgmts:")
Set objLogicalDisk = objWMIService.Get("Win32_LogicalDisk.DeviceID='c:'")
FreeHDSpace = objLogicalDisk.FreeSpace
FreeHDSpace = FreeHDSpace / 1024
FreeHDSpace = FreeHDSpace / 1024
FreeHDSpace = FreeHDSpace / 1024
FreeHDSpace = Int(FreeHDSpace)
FreeHDSpace = CStr(FreeHDSpace)
msgBox(FreeHDSpace)
End Sub
我的 HTML 中的这一部分:
<p><font face="tahoma" color="white" size="4">Hard drive space remaining:</font>
<script type="text/VBScript">
document.write "<font size='4' face='Tahoma' color='white'>" & FreeHDSpace & " Gb</font>"
</script></P>
如果我使用 test32 中的变量而不是 HTML 中的 FreeHDSpace,它会显示 56。如您所见,我已尝试将其更改为字符串并将其格式化为较小的数字。
我被严重卡住了,非常感谢任何建议。
【问题讨论】: