使用VBS对FSO对象进行类封装

''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Des : Package of FSO Object
'Creator : Eric_1991
'Date : 2014/1/9
''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Class FSOUtil
	Private FsoObj
	
	'init class
	Private Sub Class_Initialize()
		Err.Clear
		On Error Goto 0
		Set FsoObj = CreateObject("scripting.filesystemobject")
	End Sub
	
	'destory resources
	Private Sub Class_Terminate()
		Set FsoObj = Nothing 
	End Sub 
	
	'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
	'des: create the new forder by forder path
	'param: forderpath as string
	'return true or false
	'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
	Public Function CreateForder(forderpath)
		On Error Resume Next
		Set oFloder = FsoObj.CreateForder(forderpath)
		If(Err.Number <> 0) Then 
			CreateForder = False  
		Else 
			CreateForder = True 
		End If 
	End Function
	
	
	''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
	'des:check file is exists
	'param: filepath as string
	'return true or false
	''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
	Public Function FileExists(filepath)
		FileExists = FsoObj.FileExists(filepath)
	End Function 
	
	
	'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
	'des:check forder is exists
	'param: forderpath as string
	'return true || false
	'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
	Public Function FolderExists(forderpath)
		FolderExists = FsoObj.FolderExists(forderpath)
	End Function 
	
	''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
	'des:Copy Forder
	'param: sourceForderPath as string, bool as boolean
	'param: targetForderPath as string,
	'param: bool as boolean ----  whether override targetForder
	'return if error return error msg "Error:the sourceForderPath is not exists"
	''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
	Public Function CopyForder(sourceForderPath, targetForderPath, bool)
		On Error Resume Next
		If(FolderExists(sourceForderPath)) Then 
			FsoObj.CopyFolder sourceForderPath, targetForderPath, bool
			CopyForder = "True"
		Else 
			CopyForder = "Error:the sourceForderPath is not exists"
		End If 
	End Function  
	
	'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
	'des: delete exists forder
	'param: targetForderPath as string
	'return if error return error msg "Error:the targetForderPath is not exists"
	'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
	Public Function DeleteForder(targetForderPath)
		On Error Resume Next
		If(FolderExists(targetForderPath)) Then 
			FsoObj.DeleteFolder(targetForderPath)
			DeleteForder = "True"
		Else 
			DeleteForder = "Error:the targetForderPath is not exists"
		End If 
	End Function 
	
	''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
	'des: get sub forders by parent forder
	'param: parentFolder as string
	'return if error return Error the parentFolder is not exists", not error is return oFolders Object
	''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
	Public Function getSubFoldersByParentFolder(parentFolder)
		Dim oFolders
		If(FolderExists(parentFolder)) Then 
			Set oFolders = FsoObj.GetFolder(parentFolder).SubFolders
			Set getSubFoldersByParentFolder = oFolders
			Set oFolders = Nothing 
		Else 
			getSubFoldersByParentFolder = "Error the parentFolder is not exists"
		End If 
	End Function 
	
	''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
	'des: Create txt File and Write the Msg
	'param: filePath as string
	'writeMsg : the content msg
	''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
	Public Sub CreateTextFileAndWrite(filePath,writeMsg)
		Set txtFile = FsoObj.CreateTextFile(filePath, True)
		txtFile.WriteLine writeMsg
		txtFile.Close
		Set txtFile = Nothing
	End Sub 
	
	''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
	'des: Read the txt File
	'param: targetfilePath as string
	'writeMsg : the txt file content
	'return : if error return the msg "Error the targetfilePath is not exists"
	''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
	Public Function ReadFileContent(targetfilePath)
		Dim ForReading
		ForReading = 1
		If(FileExists(targetfilePath)) Then 
			Set txtFileStream = FsoObj.OpenTextFile(targetfilePath, ForReading)
			ReadFileContent = txtFileStream.ReadAll
			Set txtFileStream = Nothing 
		Else
			ReadFileContent = "Error the targetfilePath is not exists"
		End If 
	End Function 
	
	
	''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
	'des: Append write the Msg to the text file
	'param: targetfilePath as string
	'param: WriteMsg as string
	''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
	Public Sub WriteFileForAppend(targetfilePath, WriteMsg)
		Dim ForAppending
		ForAppending = 8
		Set txtFileStream = FsoObj.OpenTextFile(targetfilePath, ForAppending, True)
		txtFileStream.WriteLine WriteMsg
		Set txtFileStream = Nothing 
	End Sub 
	
End Class

'use eg:
Set abc = New FSOUtil

WSH.Echo abc.CopyForder("D:\VBS Libary\EOM","C:\A", True)

WSH.Echo abc.DeleteForder("C:\A")

Set objFolder = abc.getSubFoldersByParentFolder("D:\VBS Libary\")
For Each folder In objFolder
	WSH.Echo folder.Name
Next 

WSH.Echo abc.ReadFileContent("D:\VBS Libary\parseXML.vbs")

abc.WriteFileForAppend "D:\1.txt", "LYJ"