Board logo

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

作者: mick00034    时间: 2017-6-8 16:26     标题: vbs如何删除指定扩展名以外的所有文件,包括隐藏文件

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

vbs按照扩展名,进行保留和删除所有文件的办法?
只保留扩展名bmp,jpg,格式的所有文件,删除其他格式扩展名的所有文件,包括隐藏文件。主要用来学习用,谢谢大家!
作者: yu2n    时间: 2017-6-8 18:04

  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)   取消   
---------------------------




欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2