vbs如何删除指定扩展名以外的所有文件，包括隐藏文件

mick00034

vbs按照扩展名，进行保留和删除所有文件的办法？
只保留扩展名bmp,jpg,格式的所有文件，删除其他格式扩展名的所有文件，包括隐藏文件。主要用来学习用，谢谢大家！

yu2n

1. Const PATH = "."                '指定文件目錄
   
2. Const FLAG = ";"                '多個拓展名使用英文分號(;)分隔
   
3. Const EXS = "bmp;jpg"        '排除文件拓展名
   
4. 
   
5. Dim oItems, oFile, nCount : nCount = 0
   
6. Set fso = CreateObject("Scripting.FileSystemObject")
   
7. Set oItems = fso.GetFolder(PATH)
   
8. For Each oFile In oItems.Files
   
9.         If InStr(1, FLAG & EXS & FLAG, FLAG & fso.GetExtensionName(oFile) & FLAG, vbTextCompare) <= 0 Then
   
10.                 nCount = nCount + 1
    
11.         End If
    
12. Next
    
13. If nCount > 0 Then
    
14.         If Msgbox("目錄位置：" & oItems.Path & vbCrLf & vbCrLf & _
    
15.                         "掃尋完成，共匹配 " & nCount & " 個文件。是否刪除？", _
    
16.                         vbQuestion+vbYesNoCancel+vbDefaultButton2, "提示") = vbYes Then
    
17.                 For Each oFile In oItems.Files
    
18.                         If InStr(1, FLAG & EXS & FLAG, FLAG & fso.GetExtensionName(oFile) & FLAG, vbTextCompare) <= 0 Then
    
19.                                 fso.DeleteFile oFile.Path, True
    
20.                         End If
    
21.                 Next
    
22.         End If
    
23. Else
    
24.         Msgbox "目錄位置：" & oItems.Path & vbCrLf & vbCrLf & "掃尋完成，沒有發現匹配文件。", vbInformation, "提示"
    
25. End If

复制代码

---------------------------
提示
---------------------------
目錄位置：C:\Users\Yu2n\Desktop



掃尋完成，共匹配 51 個文件。是否刪除？
---------------------------
是(Y)   否(N)   取消   
---------------------------