【下载文档:  asp_fso操作类.txt 】

---

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 %>