0
私はいくつかの基本的なことを行うためにHTAを作成していますが、必要なものは無料のハードドライブスペースを表示することです。あなたができるように私は、HTMLではなくFreeHDSpaceのtest32で変数を使用する場合はVBScript変数がdocument.writeに表示されない
<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>
それが表示さ56:私のHTMLで
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
そして、このセクション:私はこのVBスクリプトのセクションを持っています私はそれを文字列に変更して、それをより小さな数に整形しようとしました。
私は真剣に立ち往生していますが、どんな提案も大変ありがとうございます。
はい!私はそれらをonLoadサブの外に移動し、完全にロードしています! – CSiciliano