使用ASP的FSO操作类

发布时间：2023-10-26 09:52:27 所属栏目：Asp教程来源：

导读：复制代码代码如下:
<%
'================================================================
'= 系统版本：1.0 =
'= 文件版

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

（编辑：汽车网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!