[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[问题求助] vbs如何删除指定扩展名以外的所有文件,包括隐藏文件

本帖最后由 pcl_test 于 2017-6-8 17:11 编辑

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

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



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

评分人数

    • mick00034: 非常感谢,珍藏了!技术 + 1
『千江有水千江月』千江有水,月映千江;万里无云,万里青天。    http://yu2n.qiniudn.com/

TOP

返回列表