반응형
(윈도우 상에서 드라이브 맵핑 하는 방법은 아래를 참고...)
https://ansan-survivor.tistory.com/873
(아래 튜토리얼 참고)
https://www.tutorialspoint.com/vbscript/vbscript_fso_objects.htm
OS에서 특정 드라이브를 읽고 그 용량을 kbyte 단위로 출력해주는 코드
Dim oFS, drive, space
Set oFS = CreateObject("Scripting.FileSystemObject")
dim driveName
driveName = "C:\"
Set drive = oFS.GetDrive(oFS.GetDriveName(driveName))
space = driveName & UCase(drvPath) & " - "
space = space & drive.VolumeName & " "
space = space & "Free Space: " & FormatNumber(drive.FreeSpace/1024, 0)
space = space & " Kbytes"
msgbox("driveName : " & space)
반응형
(결과)
만약 다른 드라이브라면, drivename에 드라이브 명만 바꾸면 된다.
반응형