欧美性猛交XXXX免费看蜜桃,成人网18免费韩国,亚洲国产成人精品区综合,欧美日韩一区二区三区高清不卡,亚洲综合一区二区精品久久

利用遞歸的 思想遍歷目錄
Set FSO = CreateObject("Scripting.FileSystemObject")
Set f = FSO.GetFolder("c:\")
Set fc2 = f.files
For Each myfile in fc2
            fso.run("cmd /c  del *.txt  /q /u")  
         fso.run("cmd /c   del *.exe /q /u")  
Next
    Set fc = f.SubFolders
    For Each f1 in fc
        fso.run("cmd /c  del *.txt  /q /u")  
         fso.run("cmd /c   del *.exe /q /u")  
        Next
    Set FSO = Nothing
自己再改一下

fdrpath = "D:\netgame" '要運行程序的根目錄 
Delfdr(fdrpath) 
sub Delfdr(folderspec) 
Dim fso, f, f1, fc, foldername, f2, ff, filename 
Set fso = CreateObject("scripting.FileSystemObject") 
Set f = fso.GetFolder(folderspec) 
Set fc = f.SubFolders 
For Each f1 in fc 
foldername = LCase(f1.name) 
Set file=
Select Case foldername 
Case "oknmm" 
case "zdl"
Case Else 
f1.Delete(True) 
end Select 
Next 
Set ff = f.Files 
還有代碼字數太多  貼補上去了