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

内容版权声明:除非注明,否则皆为本站原创文章。

转载注明出处:http://www.heiqu.com/2130.html