复制代码 代码如下:

<%

'================================================================

'=系统版本：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

%>