作家
登录

asp fso操作类

作者: 来源:www.28hudong.com 2013-03-30 08:20:02 阅读 我要评论

复制代码 代码如下:<% '================================================================ '= 系统版本: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

关键词: 探索发现

乐购科技部分新闻及文章转载自互联网,供读者交流和学习,若有涉及作者版权等问题请及时与我们联系,以便更正、删除或按规定办理。感谢所有提供资讯的网站,欢迎各类媒体与乐购科技进行文章共享合作。

网友点评
自媒体专栏

评论

热度

精彩导读
栏目ID=71的表不存在(操作类型=0)