[表示 : 全て 最新50 1-99 101- 201- 301- 401- 501- 601- 701- 801- 901- 1001- 2chのread.cgiへ]
Update time : 05/09 19:17 / Filesize : 274 KB / Number-of Response : 1002
[このスレッドの書き込みを削除する]
[＋板 最近立ったスレ＆熱いスレ一覧 : ＋板 最近立ったスレ／記者別一覧] [類似スレッド一覧]

↑キャッシュ検索、類似スレ動作を修正しました、ご迷惑をお掛けしました

気軽に「こんなソフトありませんか？｣ Part.104

644 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/03/28(土) 09:52:05 ID: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も持っていて
後述の通りの手順で実行させることも可能なので。




[ 続きを読む ] / [ 携帯版 ]
全部読む 前100 次100 最新50 ▲ [ このスレをブックマーク！ 携帯に送る ] 2chのread.cgiへ
[＋板 最近立ったスレ＆熱いスレ一覧 : ＋板 最近立ったスレ／記者別一覧]（ ´∀｀）＜274KB

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef