| Line 32... |
Line 32... |
| 32 |
'Call ErrorCheck ( "[sub:ReadFile]", NULL )
|
32 |
'Call ErrorCheck ( "[sub:ReadFile]", NULL )
|
| 33 |
|
33 |
|
| 34 |
Set filesys = nothing
|
34 |
Set filesys = nothing
|
| 35 |
End Function
|
35 |
End Function
|
| 36 |
'-----------------------------------------------------------------------------------------------------------------
|
36 |
'-----------------------------------------------------------------------------------------------------------------
|
| - |
|
37 |
Sub SaveBatchFile( SSpath, SSfilename, SScontent )
|
| - |
|
38 |
Dim filesys, filetxt
|
| - |
|
39 |
Set filesys = CreateObject("Scripting.FileSystemObject")
|
| - |
|
40 |
WScript.Echo "Saving file "& SSpath &"\"& SSfilename &" ..."
|
| - |
|
41 |
|
| - |
|
42 |
On Error Resume Next
|
| - |
|
43 |
Set filetxt = filesys.CreateTextFile( SSpath &"\"& SSfilename, True )
|
| - |
|
44 |
filetxt.WriteLine(SScontent)
|
| - |
|
45 |
filetxt.Close
|
| - |
|
46 |
|
| - |
|
47 |
Call ErrorCheck ( "[sub:SaveFile]", NULL )
|
| - |
|
48 |
|
| - |
|
49 |
WScript.Echo "File Saved: "& SSpath &"\"& SSfilename
|
| - |
|
50 |
Set filetxt = nothing
|
| - |
|
51 |
Set filesys = nothing
|
| - |
|
52 |
End Sub
|
| - |
|
53 |
|
| - |
|
54 |
'-----------------------------------------------------------------------------------------------------------------
|
| 37 |
Sub SaveFile( SSDate, SSversion, SSrelease, SSpath, SSfilename, SScontent )
|
55 |
Sub SaveFile( SSDate, SSversion, SSrelease, SSpath, SSfilename, SScontent )
|
| 38 |
Dim filesys, filetxt, folder
|
56 |
Dim filesys, filetxt, folder
|
| 39 |
Set filesys = CreateObject("Scripting.FileSystemObject")
|
57 |
Set filesys = CreateObject("Scripting.FileSystemObject")
|
| 40 |
WScript.Echo "Saving file "& SSpath &"\"& SSfilename &" ..."
|
58 |
WScript.Echo "Saving file "& SSpath &"\"& SSfilename &" ..."
|
| 41 |
|
59 |
|
| Line 112... |
Line 130... |
| 112 |
End Function
|
130 |
End Function
|
| 113 |
'-----------------------------------------------------------------------------------------------------------------
|
131 |
'-----------------------------------------------------------------------------------------------------------------
|
| 114 |
Function Get_Application_Path ()
|
132 |
Function Get_Application_Path ()
|
| 115 |
Dim tempSTR
|
133 |
Dim tempSTR
|
| 116 |
tempSTR = WScript.ScriptFullName
|
134 |
tempSTR = WScript.ScriptFullName
|
| 117 |
|
- |
|
| 118 |
Get_Application_Path = Left( tempSTR, InStrRev( tempSTR, "\", InStrRev( tempSTR, "\" ) -1 ) )
|
135 |
Get_Application_Path = Left( tempSTR, InStrRev( tempSTR, "\", InStrRev( tempSTR, "\" ) -1 ) )
|
| - |
|
136 |
|
| 119 |
End Function
|
137 |
End Function
|
| 120 |
'-----------------------------------------------------------------------------------------------------------------
|
138 |
'-----------------------------------------------------------------------------------------------------------------
|
| 121 |
Sub Include_File ( SSFile )
|
139 |
Sub Include_File ( SSFile )
|
| 122 |
Dim myInclude
|
140 |
Dim myInclude
|
| 123 |
myInclude = ReadFile( SSFile )
|
141 |
myInclude = ReadFile( SSFile )
|