Subversion Repositories DevTools

Rev

Rev 13 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 13 Rev 15
Line 39... Line 39...
39 
	Set filesys = CreateObject("Scripting.FileSystemObject")
 39 
	Set filesys = CreateObject("Scripting.FileSystemObject")
40 
    WScript.Echo "Saving file "& SSpath &"\"& SSfilename &" ..."
 40 
    WScript.Echo "Saving file "& SSpath &"\"& SSfilename &" ..."
41
41
42 
	On Error Resume Next
 42 
	On Error Resume Next
43 
	Set folder	= filesys.CreateFolder(SSpath &"\"& SSrelease)
 43 
	Set folder	= filesys.CreateFolder(SSpath &"\"& SSrelease)
44 
	Set folder2 = filesys.CreateFolder(SSpath &"\"& SSrelease &"\SBOM "& SSversion)
 44 
	Set folder2 = filesys.CreateFolder(SSpath &"\"& SSrelease &"\"& SSversion)
45 
	Set folder3 = filesys.CreateFolder(SSpath &"\"& SSrelease &"\SBOM "& SSversion &"\"& SSDate)
 45 
	Set folder3 = filesys.CreateFolder(SSpath &"\"& SSrelease &"\"& SSversion &"\"& SSDate)
46 
	Set filetxt = filesys.CreateTextFile( SSpath &"\"& SSrelease &"\SBOM "& SSversion &"\"& SSDate &"\"& SSfilename, True )
 46 
	Set filetxt = filesys.CreateTextFile( SSpath &"\"& SSrelease &"\"& SSversion &"\"& SSDate &"\"& SSfilename, True )
47 
	filetxt.WriteLine(SScontent)
 47 
	filetxt.WriteLine(SScontent)
48 
	filetxt.Close
 48 
	filetxt.Close
49
49
50 
	'Call ErrorCheck ( "[sub:SaveFile]", Null )
 50 
	'Call ErrorCheck ( "[sub:SaveFile]", Null )
51
51