asp fso操作类
2018-09-06 10:56
复制代码 代码如下:
<%
================================================================
=系统版本：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
%>
上一篇：在ASP应用中验证用户身份(4)