RosettaCodeData/Task/Include-a-file/VBScript/include-a-file-1.vbs
2026-04-30 12:34:36 -04:00

8 lines
229 B
Text

Include "D:\include\pad.vbs"
Wscript.Echo lpad(12,14,"-")
Sub Include (file)
dim fso: set fso = CreateObject("Scripting.FileSystemObject")
if fso.FileExists(file) then ExecuteGlobal fso.OpenTextFile(file).ReadAll
End Sub