文件夹操作类

asp的Fso文件/文件夹操作类2009-11-04和前面提到的一样，这个也只是把一些函数压在一起。实际上用一些函数集的方法放程序中更好。

主要功能：

1,创建删除文件夹

2,获取某个文件夹里的文件夹名称和个数

3,获取某个文件夹里的文件名称和个数

4,检查某个文件夹是否存在

5,检查某个文件是否存在

6,删除文件

7,读取某个文件的内容

7,创建一个文件，并把内容写到这个文件里面

总的来说，功能就分两个，一个是文件操作，一个是文件夹操作。我只是根据我的那个"在线作业管理系统"的需求写的，并不适合所有人...

<%
"***************************
"名称：FSO操作类
"作者：西楼冷月
"日期：2006-3-1
"网址：www.xilou.net/ | www.chinaCMS.org
"描述：FSO操作类
"***************************
Class FsoCls

Private Fso"//对象
Public FsoObj"//公共接口对象

"//初始化,构造函数
Private Sub Class_Initialize
Set Fso=CreateObject（"Scripting.FileSystemObject"）
Set FsoObj=Fso
End Sub
"//结束，释构函数
Private Sub Class_Terminate
Set Fso=Nothing
Set FsoObj=Nothing
End Sub


"====================文件操作开始=========================
Function IsFileExists（ByVal FileDir）
"判断文件是否存在，存在则返回True,否则返回False
"参数FileDir为文件的绝对路径
If Fso.FileExists（FileDir） Then
IsFileExists=True
Else
IsFileExists=False
End If
End Function
Function GetFileText（ByVal FileDir）
"读取文件内容，存在则返回文件的内容，否则返回False
"参数FileDir为文件的绝对路径
If IsFileExists（FileDir） Then
Dim F
Set F=Fso.OpenTextFile（FileDir）
GetFileText=F.ReadAll
Set F=Nothing
Else
GetFileText=False
End If
End Function
Function CreateFile（ByVal FileDir,ByVal FileContent）
"创建一个文件并写入内容
"操作成功返回True,否则返回False
If IsFileExists（FileDir） Then
CreateFile=False
Exit Function
Else
Dim F
Set F=Fso.CreateTextFile（FileDir）
F.Write FileContent
CreateFile=True
F.Close
End If
End Function
Function DelFile（ByVal FileDir）
"删除一个文件，成功返回True，否则返回False
"参数FileDir为文件的绝对路径
If IsFileExists（FileDir） Then
Fso.DeleteFile（FileDir）
DelFile=True
Else
DelFile=False
End If
End Function
"====================文件操作结束=========================

"====================文件夹操作开始========================
Function IsFolderExists（ByVal FolderDir）
"判断文件夹是否存在，存在则返回True,否则返回False
"参数FolderDir为文件的绝对路径
If Fso.FolderExists（FolderDir） Then
IsFolderExists=True
Else
IsFolderExists=False
End If
End Function
Sub CreateFolderA（ByVal ParentFolderDir,ByVal NewFoldeName）
"//在某个特定的文件夹里创建一个文件夹
"//ParentFolderDir为父文件夹的绝对路径，NewFolderName为要新建的文件夹名称
If IsFolderExists（ParentFolderDir&""&NewFoldeName） Then Exit Sub
Dim F,F1
Set F=Fso.GetFolder（ParentFolderDir）
Set F1=F.SubFolders
F1.Add（NewFoldeName）
Set F=Nothing
Set F1=Nothing
End Sub
Sub CreateFolderB（ByVal NewFolderDir）
"//创建一个新文件夹
"//参数NewFolderDir为要创建的文件夹绝对路径
If IsFolderExists（NewFolderDir） Then Exit Sub
Fso.CreateFolder（NewFolderDir）
End Sub
Sub DeleteAFolder（ByVal NewFolderDir）
"//删除一个新文件夹
"//参数NewFolderDir为要创建的文件夹绝对路径
If IsFolderExists（NewFolderDir）=False Then
Exit Sub
Else
Fso.DeleteFolder （NewFolderDir）
End If
End Sub
Function FolderItem（ByVal FolderDir）
"//文件夹里的文件夹集合
"//FolderDir 为文件夹绝对路径
If IsFolderExists（FolderDir） =False Then
FolderItem=False
Exit Function
End If
Dim FolderObj,FolderList,F
Set FolderObj=Fso.GetFolder（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）
"//文件夹里的文件集合
"//FolderDir 为文件夹绝对路径
If IsFolderExists（FolderDir） =False Then
FileItem=False
Exit Function
End If
Dim FileObj,FileerList,F
Set FileObj=Fso.GetFolder（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
%>