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

[494 デフォルトの名無しさん 2012/03/13(火) 09:43:32.86]

こいつも、test.vbsでOption Explicit有りバージョン
Option Explicit
Function Test()
Dim fso, File
Set fso = CreateObject("Scripting.FileSystemObject")
Set File = fso.OpenTextFile("test.vbs")
Test = File.ReadAll
Set fso = Nothing
End Function