今日勉強した事、頑張った事を書き込むスレ19日目

裏2から来ました。
雑炊さんはアクセス規制中のため、代理で投稿します。
================================================
Sub CreateF
Set objWshShell = WScript.CreateObject("WScript.Shell")
Set objFS = WScript.CreateObject("Scripting.FileSystemObject")
Set objTS = objFS.OpenTextFile("e.txt")
Set objTS2 = objFS.CreateTextFile("f.txt")
objTS2.Close
Set objRegExp = New RegExp
objRegExp.Pattern = "^.*,.*$"
objRegExp.Global = True