<%
'-----------------------------------------------------
Class clsFileSystem
'-----------------------------------------------------
	Private FSO
	

	'---------------------------------------------------
	Public Sub DeleteFile(ByVal FileName)
		FileName = Server.MapPath(FileName)

		If FSO.FileExists(FileName) Then FSO.DeleteFile FileName, True
	End Sub
	'---------------------------------------------------


	'---------------------------------------------------
	Public Property Get FileExist(ByVal FileName)
		FileExist = FSO.FileExists(FileName)
	End Property
	'---------------------------------------------------


	'---------------------------------------------------
	Public Function GetFileContent(ByVal FilePath)
		Dim fsoFile
		
		FilePath = Server.MapPath(FilePath)
		fsoFile = FSO.OpenTextFile(FilePath)
		GetFileContent = fsoFile.ReadAll
		
		fsoFile.Close	
	End Function
	'---------------------------------------------------
	
	
	'---------------------------------------------------
	Public Function CreateFolder(ByVal FolderPath)
		FolderPath = Server.MapPath(FolderPath)

		If Not FSO.FolderExists(FolderPath) Then
			FSO.CreateFolder FolderPath
		End If
		
		CreateFolder = FSO.GetFolder(FolderPath)
	End Function
	'---------------------------------------------------
	
	
	'---------------------------------------------------
	Public Function RenameFolder(ByVal FolderOldPath, ByVal FolderNewPath)
		FolderOldPath = Server.MapPath(FolderOldPath)
		FolderNewPath = Server.MapPath(FolderNewPath)

		If Not FSO.FolderExists(FolderOldPath) Then
			FSO.CreateFolder FolderNewPath
		Else
			FSO.MoveFolder FolderOldPath, FolderNewPath
		End If
		
		RenameFolder = FSO.GetFolder(FolderNewPath)
	End Function
	
	'---------------------------------------------------

	
	'---------------------------------------------------
	Private Sub Class_Initialize()
		Set FSO = Server.CreateObject("Scripting.FileSystemObject")
	End Sub
	'---------------------------------------------------
	

	'---------------------------------------------------
	Private Sub Class_Terminate()
		Set FSO = Nothing
	End Sub
	'---------------------------------------------------
	

'-----------------------------------------------------
End Class
'-----------------------------------------------------
%>