asp fso操作类


            复制代码 代码如下:<% '================================================================ '=                    系统版本：1.0                                = '=                    文件版本：1.0                                = '=                文本创建日期：2005-10-31                        = '================================================================ Class Cls_IO     Private FileSystemObject     Private Sub Class_Terminate()         If IsObject(FileSystemObject) Then             Set FileSystemObject = Nothing         End If     End Sub     '//创建FileSystemObject对象     Public Function Init_Object()         On Error Resume Next         If Not IsObject(FileSystemObject) Then             Set FileSystemObject = Server.CreateObject("Scripting.FileSystemObject")             If Err.Number <> 0 Then                 Init_Object = False                 Err.Clear                 Exit Function             Else                 Init_Object = True             End If         End If     End Function     Public Sub DeleteFile(ByVal Str)         On Error Resume Next         Call FileSystemObject.DeleteFile(Server.MapPath("../UpLoadFile/"&Str))     End Sub     Public Function IsFolder(ByVal Str)         IsFolder = FileSystemObject.FolderExists(Str)     End Function          Public Function ShowFolder(ByVal Str)         Dim Obj_Folder,Obj_File         Set Obj_Folder = FileSystemObject.GetFolder(Server.MapPath(Str))         Set ShowFolder = Obj_Folder.Files         Set Obj_Folder = Nothing     End Function End Class %>