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 
%>