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