asp fso操作类

2024-05-04 11:00:11

字体：大中小

来源：转载

供稿：网友

复制代码代码如下:
<%
'================================================================
'=                    系统版本：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))

上一篇：Asp 操作Cookies(包括设置[赋值]、读取、删除[设置过期时间])

下一篇：ASP 操作cookies的方法