Kamis, 22 Oktober 2020

Menggunakan Include pada VBS 


 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Sub Include (strFile)

	'Create objects for opening text file

	Set objFSO = CreateObject("Scripting.FileSystemObject")

	Set objTextFile = objFSO.OpenTextFile(strFile, 1)



	'Execute content of file.

	ExecuteGlobal objTextFile.ReadAll



	'Close file

	objTextFile.Close



	'Clean up

	Set objFSO = Nothing

	Set objTextFile = Nothing

End Sub



Call Include("D:\Library\excel_function.vbs")