Nguyen Minh Hang
Trả lời 16 năm trước
Bạn thường sử dụng Windows Explorer để xem dung lượng partition còn trống hoặc xem
partition đó có bao nhiêu thư mục thì đây thủ thuật sau sẽ giúp bạn xem dung lượng của partition
còn trống , các thư mục chứa trong partition đó , ... Ở đây tôi sử dụng VBscript để làm điều này
khi đó nó sẽ xuất dữ liệu ở ngõ ra của partition đó .
Bạn mở Notepad lên và chép đọan mã sau vào :
Option Explicit
MsgBox RunOutput( "COMMAND /C DIR H:\", 0 )
Function RunOutput( cProgram, nWindowType )
Dim oFS
Set oFS = CreateObject("Scripting.FileSystemObject")
Dim cFile
cFile = oFS.GetSpecialFolder(2).Path & "\" & oFS.GetTempName
Dim oShell
Set oShell = CreateObject( "WScript.Shell" )
oShell.Run cProgram & " >" & cFile, nWindowType, True
Set oShell = Nothing
Dim oFile
Set oFile = oFS.OpenTextFile(cFile, 1, True)
RunOutput = oFile.ReadAll()
oFile.Close
oFS.DeleteFile cFile
End Function
Lưu ý : H: là ổ đĩa mà bạn muốn xem . Lưu tập tin này lại với tên là output.vbs