Subversion Repositories DevTools

Rev

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

Rev 4014 Rev 4808
Line 645... Line 645...
645 
 
 645 
 
646 
		pkgInfoHash.Add "build_type", (rsTemp.Fields("build_type"))
 646 
		pkgInfoHash.Add "build_type", (rsTemp.Fields("build_type"))
647 
		pkgInfoHash.Add "change_type", (rsTemp.Fields("change_type"))
 647 
		pkgInfoHash.Add "change_type", (rsTemp.Fields("change_type"))
648 
 
 648 
 
649 
	End If
 649 
	End If
650 
 
 - 
 
651 
 
 - 
 
652 
 
 - 
 
653 
 
 - 
 
654 
 
 - 
 
655 
 
 - 
 
656 
 
 - 
 
657 
 
 - 
 
658 
End Sub
 650 
End Sub
659 
'-----------------------------------------------------------------------------------------------------------------------------
 651 
'-----------------------------------------------------------------------------------------------------------------------------
660 
Function Folder_Is_Empty ( sPath )
 652 
Function Folder_Is_Empty ( sPath )
661 
	Dim filesys, oFolder
 653 
	Dim filesys, oFolder
662 
	Set filesys = CreateObject("Scripting.FileSystemObject")
 654 
	Set filesys = CreateObject("Scripting.FileSystemObject")