当前位置: 首页 > news >正文 一个Fso类 news 来源:原创 2024/5/10 6:09:04 <% '================================================================ '= 系统版本: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 Access数据备份,还原,压缩类 js 鼠标移动显示图片 AJAX类 JS动态添加与删除select中的Option对象 IIS常见问题解决 asp or 漏洞 MySQL常用命令一览 MYSQL出错代码列表一览 MySQL修改密码方法总结 在b/s开发中经常用到的javaScript技术整理 asp 购物车类 用js改变css样式 js设置控件的readonly和enabled属性问题 sql内置函数 sql CHARINDEX C++类中的特殊成员函数 eclipse(luna)创建web工程 ES6 学习笔记(一)let,const和解构赋值 HashMap剖析之内部结构 java8 Stream Pipelines 浅析 Leetcode 27 Remove Element Logstash 参考指南(目录) Vue小说阅读器(仿追书神器) Web Storage相关 不用申请服务号就可以开发微信支付/支付宝/QQ钱包支付!附:直接可用的代码+demo... 从零开始在ubuntu上搭建node开发环境 二维平面内的碰撞检测【一】 高程读书笔记 第六章 面向对象程序设计 老板让我十分钟上手nx-admin 前端学习笔记之原型——一张图说明`prototype`和`__proto__`的区别 实战:基于Spring Boot快速开发RESTful风格API接口 手机app有了短信验证码还有没必要有图片验证码? 学习笔记:对象,原型和继承(1) 原生Ajax 找一份好的前端工作,起点很重要 ionic异常记录 Salesforce和SAP Netweaver里数据库表的元数据设计 快速排序(四)——挖坑法,前后指针法与非递归 ssh免密码登录设置及问题总结 (02)Cartographer源码无死角解析-(03) 新数据运行与地图保存、加载地图启动仅定位模式 (附源码)spring boot球鞋文化交流论坛 毕业设计 141436 (附源码)ssm智慧社区管理系统 毕业设计 101635 (三)Hyperledger Fabric 1.1安装部署-chaincode测试 (学习日记)2024.03.12:UCOSIII第十四节:时基列表 (转)chrome浏览器收藏夹(书签)的导出与导入 (转)菜鸟学数据库(三)——存储过程 .NET 5种线程安全集合 .NET CF命令行调试器MDbg入门(三) 进程控制 .net 前台table如何加一列下拉框_如何用Word编辑参考文献 .net的socket示例 .net对接阿里云CSB服务 .net下简单快捷的数值高低位切换 [Android 数据通信] android cmwap接入点 [Assignment] C++1 [BUUCTF NewStarCTF 2023 公开赛道] week4 crypto/pwn
<% '================================================================ '= 系统版本: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 %>