| Line 48... |
Line 48... |
| 48 |
|
48 |
|
| 49 |
WScript.Echo "File Saved: "& SSpath &"\"& SSfilename
|
49 |
WScript.Echo "File Saved: "& SSpath &"\"& SSfilename
|
| 50 |
Set filetxt = nothing
|
50 |
Set filetxt = nothing
|
| 51 |
Set filesys = nothing
|
51 |
Set filesys = nothing
|
| 52 |
End Sub
|
52 |
End Sub
|
| - |
|
53 |
'-----------------------------------------------------------------------------------------------------------------
|
| - |
|
54 |
Function NicePath(path)
|
| - |
|
55 |
NicePath = Replace(path," " , "",1,-1)
|
| - |
|
56 |
NicePath = Replace(NicePath,"/" , "-",1,-1)
|
| - |
|
57 |
NicePath = Replace(NicePath,"--" , "-",1,-1)
|
| 53 |
|
58 |
End Function
|
| 54 |
'-----------------------------------------------------------------------------------------------------------------
|
59 |
'-----------------------------------------------------------------------------------------------------------------
|
| 55 |
Sub SaveFile( SSDate, SSversion, SSrelease, SSpath, SSfilename, SScontent )
|
60 |
Sub SaveFile( SSDate, SSversion, SSrelease, SSpath, SSfilename, SScontent )
|
| 56 |
Dim filesys, filetxt, folder
|
61 |
Dim filesys, filetxt, folder
|
| 57 |
Set filesys = CreateObject("Scripting.FileSystemObject")
|
62 |
Set filesys = CreateObject("Scripting.FileSystemObject")
|
| 58 |
WScript.Echo "Saving file "& SSpath &"\"& SSfilename &" ..."
|
63 |
WScript.Echo "Saving file "& SSpath &"\"& SSfilename &" ..."
|