主要功能：
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
%>