VBSで便利なプログラムを作れスレ

[493 デフォルトの名無しさん 2012/03/13(火) 09:39:40.86]

次に、test.vbs部分Option Explicit無しバージョン
Function Test()
Set fso = CreateObject("Scripting.FileSystemObject")
Set File = fso.OpenTextFile("test.vbs")
Test = File.ReadAll
Set fso = Nothing
End Function