[问题求助] 删除指定文件夹/路径/目录里所有隐藏文件？

mick00034

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

mick00034

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

扩展名ini的删不掉，

yu2n

回复 3# mick00034


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

taofan712

@echo off
echo;拖入需要处理的文件夹
set /p folder=
for /f "delims=" %%a in ('dir /s /b /ah %folder%') do (
attrib -h "%%~a"
rd /s /q "%%~a" 2>nul||del /f /q "%%~a"
)
pause
复制代码

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

mick00034

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

yu2n

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

掃尋完成，共有 5 個隱藏文件。是否刪除？
---------------------------
是(Y)   否(N)   取消   
---------------------------
复制代码

Const HIDDEN = 2	'指定隱藏屬性的文件
Const PATH = "."	'指定文件目錄

Dim oItems, oFile, nCount : nCount = 0
Set fso = CreateObject("Scripting.FileSystemObject")
Set oItems = fso.GetFolder(PATH)
For Each oFile In oItems.Files
	If oFile.Attributes And HIDDEN Then
		nCount = nCount + 1
	End If
Next
If nCount > 0 Then
	If Msgbox("目錄位置：" & oItems.Path & vbCrLf & vbCrLf & _
			"掃尋完成，共有 " & nCount & " 個隱藏文件。是否刪除？", _
			vbQuestion+vbYesNoCancel+vbDefaultButton2, "提示") = vbYes Then
		For Each oFile In oItems.Files
			If oFile.Attributes And HIDDEN Then
				fso.DeleteFile oFile.Path, True
			End If
		Next
	End If
Else
	Msgbox "目錄位置：" & oItems.Path & vbCrLf & vbCrLf & "掃尋完成，沒有發現隱藏文件。", _
		vbInformation, "提示"
End If
复制代码