CODE: [Copy to clipboard]
dim q,fn,frD
Set q = CreateObject("Scripting.FileSystemObject")
set fn=q.getdrive("d:")
frD=fn.freespace/1024/1024/1024
dim fon,size
set fon=q.getfolder("F:\GHOST")
size=fon.size/1024/1024/1024
if frD>size and frD>1 then
dim ws
set ws=wscript.createobject("WScript.Shell")
ws.run "1.bat"
else
do until frD>size and frD>1
frD=fn.freespace/1024/1024/1024
set fon=q.getfolder("F:\GHOST")
size=fon.size/1024/1024/1024
set ws=wscript.createobject("WScript.Shell")
ws.run "cmd /c dir /od /ad /b d:\>folder.txt"
set file=q.opentextfile("folder.txt")
fil=file.readline
q.deletefolder "d:\"&fil,true
loop
end if
VBS版 呵呵,基本上能达到要求了,只是如果文件夹删光了还没有1G的话会有点小错误(我测试的时候是20G) 保存为 *.vbs