删除指定文件夹/路径/目录里所有隐藏文件？

mick00034

保留显示文件，只删除所有隐藏文件，应该怎么写？谢谢大家。

yu2n

1. ---------------------------
   
2. 提示
   
3. ---------------------------
   
4. 目錄位置：C:\Users\Yu2n
   
5. 
   
6. 掃尋完成，共有 5 個隱藏文件。是否刪除？
   
7. ---------------------------
   
8. 是(Y)   否(N)   取消   
   
9. ---------------------------
   

复制代码

1. Const HIDDEN = 2        '指定隱藏屬性的文件
   
2. Const PATH = "."        '指定文件目錄
   
3. 
   
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 oFile.Attributes And HIDDEN 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 oFile.Attributes And HIDDEN Then
    
18.                                 fso.DeleteFile oFile.Path, True
    
19.                         End If
    
20.                 Next
    
21.         End If
    
22. Else
    
23.         Msgbox "目錄位置：" & oItems.Path & vbCrLf & vbCrLf & "掃尋完成，沒有發現隱藏文件。", _
    
24.                 vbInformation, "提示"
    
25. End If
    
26. 
    

复制代码

mick00034

运行的话，显示缺少语句，是我哪里弄错了吗？

taofan712

1. 
   
2. @echo off
   
3. echo;拖入需要处理的文件夹
   
4. set /p folder=
   
5. for /f "delims=" %%a in ('dir /s /b /ah %folder%') do (
   
6. attrib -h "%%~a"
   
7. rd /s /q "%%~a" 2>nul||del /f /q "%%~a"
   
8. )
   
9. pause

复制代码

会删除指定目录下的隐藏文件和文件夹
若只需要删除文件，不删除隐藏文件夹，去掉“rd /s /q "%%~a" 2>nul||”

yu2n

回复 3# mick00034


    24 行末尾的括号“)”去掉。

mick00034

会删除指定目录下的隐藏文件和文件夹
若只需要删除文件，不删除隐藏文件夹，去掉“rd /s /q "%%~a" 2>nul| ...
taofan712 发表于 2017-6-7 19:50

扩展名ini的删不掉，