ちょっと生きづらさを抱えた人へ、気持ちを楽にするためのお手紙です。

【VBS】正規表現でファイルを探す

何の説明もなく突如スクリプトを書くのだが、
今はひとりに向けて書いている。
いずれ時間があったら万人向けに書き足そうと思います。
(そう言って放置しなかった試しはないが・・・)

Option Explicit

Dim oWshShell
Dim reg
Dim fso
Dim directory
Dim file

Set oWshShell = WScript.CreateObject("WScript.Shell")
Set reg = CreateObject("VBScript.RegExp")
reg.Pattern = Wscript.Arguments(1)
Set fso = CreateObject("Scripting.FileSystemObject")
Set directory = fso.GetFolder(Wscript.Arguments(0))

For Each file In directory.files
    If reg.Test(file.name) then
        WScript.Echo file.name
        Exit For
    End if
Next

Set reg = Nothing
set fso = Nothing

コメントを残す

メールアドレスが公開されることはありません。