复制代码 代码如下:<% '================================================================ '= 系统版本: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之自动闭合HTML/ubb标签函数 附简单注释
这最近在PJ的function库里看到的这个函数,感觉思路差了点,不过相对比较完美,只是闭合标签时的顺序问题,呵呵 修改一下数组arrTags里的各元素内容,可以达到闭合任何标签的功能。 在此,我给增加了一些注释,方便>>>详细阅读
本文标题:asp fso操作类
地址:http://www.17bianji.com/kaifa2/ASP/31976.html
1/2 1