09/03/28 09:52:05 4ecV9iGl0
>>642
・バッチファイル(.bat)
if %1=="" goto end
cd/d "%~1" && for /r %%a in (*.txt,*.log) do (type nul>%%a)
:end
・VBScript(.vbs)
Const TargetPattern = "\.(txt|log)$"
If WScript.Arguments.Count = 0 Then WScript.Quit
Dim objRegExp, objFso
Set objRegExp = New RegExp: Set objFso = CreateObject("Scripting.FileSystemObject")
objRegExp.Pattern = TargetPattern
If objFso.FolderExists(WScript.Arguments(0)) Then Call hoge(objFso.GetFolder(WScript.Arguments(0)))
Sub hoge(objPFolder)
Dim objFolder, objFile
For Each objFolder In objPFolder.SubFolders: Call hoge(objFolder): Next
For Each objFile In objPFolder.Files
If objRegExp.Test(objFile.Name) Then objFso.CreateTextFile objFile.Path
Next
End Sub
どちらもフォルダD&Dで実行、「(*.txt)」もしくは「TarhetPattern = "\.txt$"」で対象指定。
解ってるとは思うが、使い方次第では重要なファイルを空にしかねないので要注意。
因みに「GUI （コンパイル済みの実行ファイル）」って条件だと
AutoHotkey.exeやhta.exeは除外されないことは覚えて置いてね。
これらは自身がコンパイル済みの実行ファイルな上にGUIも持っていて
後述の通りの手順で実行させることも可能なので。