選択ボックスに表示されたドライブから選択したドライブの 空き容量を表示するVBSのサンプルプログラムです。 HTMLの知識があやふやだったりFSOについての知識がなかったりして 参考書の解説を読みながらやっているのですがなかなか難しいです。 できれば詳しく解説して下さいよろしくおねがいします。 <html> <head> <title>VBScript_Sample46</title> <script type="text/vbscript"> <!-- Option Explicit dim fso Sub window_onload() dim myDrive,driveInfo,selectData set fso=createObject("Scripting.FileSystemObject") For Each myDrive In fso.Drives driveInfo=driveInfo & "<option value='" & myDrive.DriveLetter & ":'>" & myDrive.DriveLetter & "ドライブ" Next selectData="<select name='driveSelect' onChange='infoGo()'>" & driveInfo & "</select>" document.getElementById("selectArea").innerHTML=selectData End Sub Sub infoGo() dim drivePath drivePath=myForm.driveSelect.options.value dim drv, drvInfo,myDrvType Set drv = fso.GetDrive(fso.GetDriveName(drivePath)) Select Case drv.DriveType Case 0 myDrvType= "不明" Case 1 myDrvType = "リムーバブル ディスク" Case 2 myDrvType= "ハード ディスク" Case 3 myDrvType= "ネットワーク ドライブ" Case 4 myDrvType= "CD-ROM" Case 5 myDrvType="RAM ディスク" End Select If drv.IsReady=False Then MsgBox("準備が出来ていません！") 'document.getElementById("myDriveInfo").innerHTML="" 'Exit Sub Else drvInfo = drvInfo & "空き領域: " & FormatNumber(drv.FreeSpace/1024, 0) drvInfo = drvInfo & " KB" End If document.getElementById("myDriveInfo").innerHTML=drivePath & "(" & myDrvType & ")=" & drvInfo End Sub --> </script> </head> <body> <form name="myForm"> <div id="selectArea"></div> <div id="myDriveInfo" style="margin-top:10px"></div> </form> </body> </html>
↧