fso_cls.asp

1、采用4.5修改而成。 2、添加了求片区

<%
'***************************
'名称：FSO操作类
'作者：木头
'日期：2006-10-25
'***************************
Class FsoCls
	Private Fso	   '//对象
	Public FsoObj '//公共接口对象
	'//初始化，构造函数
	Private Sub Class_Initialize
		Set Fso=Server.CreateObject("Scripting.FileSystemObject")
		Set FsoObj=Fso
	End Sub
	'//结束，释构函数
	Private Sub Class_Terminate
		Set Fso=Nothing
		Set FsoObj=Nothing
	End Sub
	'//文件操作
	'//判断文件时候存在 相对路径
	Function IsFileExists(ByVal FileDir)
		If Fso.FileExists(Server.MapPath(FileDir)) Then
			IsFileExists=True
		Else
			IsFIleExists=False
		End If
	End Function
	'//度取文件内容 相对路径
	Function ReadTextFile(ByVal FileDir)
		If IsFileExists(FileDir) Then
			Dim F
			Set F=Fso.OpenTextFile(Server.MapPath(FileDir))
			ReadTextFile=F.ReadAll
			F.Close
			Set F=Nothing
		Else
			ReadTextFile=False
		End if
	End Function
	'//创建一个文件
	Function CreateFile(ByVal FileDir,ByVal FileContent,ByVal FileType)
		On Error Resume Next
		If FileContent="" Or IsNull(FileContent) Then
			CreateFile=False
			Exit Function
		End If
		If FileType=1 Then
			If IsFileExists(FileDir) Then
				Call DelFile(FileDir)
				Set F=Fso.CreateTextFile(Server.MapPath(FileDir))
				F.Write FileContent
				F.Close
				Set F=Nothing
				CreateFile=True
			Else
				Set F=Fso.CreateTextFile(Server.MapPath(FileDir))
				F.Write FileContent
				F.Close
				Set F=Nothing
				CreateFile=True
			End If
		Else
			If IsFileExists(FileDir) Then
				CreateFile=False
				Exit Function
			Else
				Set F=Fso.CreateTextFile(Server.MapPath(FileDir))
				F.Write FileContent
				F.Close
				Set F=Nothing
				CreateFile=True
			End If
		End If
	End Function
	'//删除一个文件
	Function DelFile(ByVal FileDir)
		If IsFileExists(FileDir) Then
			Fso.DeleteFile(Server.MapPath(FileDir))
			DelFile=True
		Else
			DelFile=False
		End If
	End Function
	'//获取文件大小
	Function GetFileSize(ByVal FileName)
		 If IsFileExists(FileName) Then	
		 	Dim NewFso
			Set NewFso=Fso.GetFile(Server.MapPath(FileName))
			GetFileSize=NewFso.Size
		 Else
		 	GetFileSize=False
		 	Exit Function
		 End If
		 GetFileSize=GetFileSize
	End Function
	'//文件夹操作
	'//检测文件夹是否存在
	Function IsFolderExists(ByVal FolderDir)
		If Fso.FolderExists(Server.MapPath(FolderDir)) Then
			IsFolderExists=True
		Else
			IsFolderExists=False
		End If
	End Function
	'//创建文件夹
	Function CreateFolder(ByVal FolderType,ByVal FolderDir,ByVal FolderNewDir)
		'检测上层文件夹是否存在
		If IsFolderExists(FolderDir) Then
			Exit Function
			CreateFolder=False
		Else
			Fso.CreateFolder(Server.MapPath(FolderDir))
			CreateFolder=True
		End If
		'如果为在一个文件夹里创建新的文件夹
		If FolderType=1 Then
			If IsFolderExists(FolderDir&"\"&FolderNewDir) Then
				Exit Function
				CreateFolder=False
			Else
				Dim F,F1
				Set F=Fso.GetFolder(Server.MapPath(FolderDir))
					Set F1=F.SubFolders
						F1.Add(FolderNewDir)
					Set F=Nothing
				Set F1=Nothing
				CreateFolder=True
			End if
		End If
	End Function
	'//删除文件夹
	Function DelFolder(ByVal FolderDir)
		If IsFolderExists(FolderDir)=False Then
			Exit Function
			DelFolder=False
		Else
			Fso.DeleteFolder(Server.MapPath(FolderDir))
			DelFolder=True
		End If
	End Function
	'//文件夹里的文件夹集合
	Function FolderItem(ByVal FolderDir)
    If IsFolderExists(FolderDir) =False Then 
      	FolderItem=False
		   Exit Function
	End If
		Dim FolderObj,FolderList,F
		Set FolderObj=Fso.GetFolder(Server.MapPath(FolderDir))
		Set FolderList=FolderObj.SubFolders
		FolderItem=FolderObj.SubFolders.Count'//文件夹总数
		For Each F In FolderList
		   FolderItem=FolderItem&"|"&F.Name
		Next
		Set FolderList=Nothing
		Set FolderObj=Nothing
	End Function
	'//文件夹里的文件集合
	Function FileItem(ByVal FolderDir)
		If IsFolderExists(FolderDir) =False Then 
		   FileItem=False
		   Exit Function
		End If
		Dim FileObj,FileerList,F
		Set FileObj=Fso.GetFolder(Server.MapPath(FolderDir))
		Set FileList=FileObj.Files
		FileItem=FileObj.Files.Count'//文件总数
		For Each F In FileList
		   FileItem=FileItem&"|"&F.Name
		Next
		Set FileList=Nothing
		Set FileObj=Nothing
	End Function
	'//类结束
End Class
%>