RosettaCodeData/Task/Include-a-file/VBScript/include-a-file-1.vb
2023-07-01 13:44:08 -04:00

8 lines
229 B
VB.net

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