asp fso操作类
来源:asp之家 发布时间:2011-03-07 10:57:00
代码如下:
<%
'================================================================
'= 系统版本: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
%>
猜你喜欢
- 一.雅黑设计理念 雅黑字体是为微软公司设计的屏幕显示汉字。它具有个性独特、结体优美、识别性强、块状效果好、显示清晰等优点。在当今数字化时代更
- 是什么能让一个设计看上去是协调的,有条理的,专业的?答案是”色彩”.不是所有的项目都要用那种浅的”公司蓝”(corporate blue)才
- MySQL是一个非常流行的小型关系型数据库管理系统,2008年1月16号被Sun公司收购。目前MySQL被广泛地应用在Internet上的中
- 这篇是Nicholas讨论如果防止脚本失控的第二篇,主要讨论了如何重构嵌套循环、递归,以及那些在函数内部同时执行很多子操作的函数。基本的思想
- Java一直标榜一句老话叫“编写一次,到处运行(Write Once,Run Anywhere)”,CSS也差一点点做到了。但就是为了差的一
- 首先说说框架(Frameworks)这个词,框架就是为我们提供了一个平台一个运行环境,在如此统一的前提下我们做相关开发才能“有章可循”,要充
- 从AspJpeg1.8 版本开始,AspJpeg 提供了比 PrintText 更为灵活的文本绘图方法PrintTextEx,PrintTe
- 折纸是日本著名的折叠纸张的艺术。折纸艺术只是使用一些不同的折叠方式,却能被用各种各样的方式组合成错综复杂的设计。而受折纸启发的logo设计则
- global 属性返回 Boolean 值,指出正则表达式使用的global 标志 (g) 的状态。默认值为 false。只读。rgExp.
- 尽管XML还处在开发阶段,其标准正在由W3C组织制定,但是已经有许多公司表示全力支持XML,并开发了不少XML工具。Adobe公司的Fram
- 内容摘要:您是否想让您的网站有多种显示风格呢,本文介绍了如何使用CSS结合js实现动态更换页面皮肤风格。看了下面的介绍您就明白了如何实现了这
- 如何保持数据库中原有格式不变:这些问题在论坛里面几乎天天有人问~!其实当在输入信息,然后提交信息的时候,所有内容的格式是没有变的。只是在当提
- //图片上传<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT> Function GetUpload
- 这是我在做的一个游戏的半成品,整理了一下发出来.原理:通过更新变换矩阵来记录转动(函数remx()).利用矩阵计算出转动后的正方体顶点坐标,
- 在“按需加载”的需求中,我们经常会判断当脚本加载完成时,返回一个回调函数,那如何去判断脚本的加载完成呢?我们可以对加载的 JS 对象使用 o
- 隐藏并修改文件的最后修改时间的asp-webshell。源码:<% '隐藏并修改文件的最后修改时间的aspshell '
- Oracle SQL语句中的Update可以和SEQUENCE联合使用,以达到更新某字段的值连续编号,而不需要使用游标去逐条遍历更新数据库记
- 这篇论坛文章主要介绍了Oracle数据库到SQL Server数据库主键的迁移过程,具体内容请参考下文。由于项目需要要将以前Oracle的数
- 代码如下:--代码一DECLARE @cc INT SELECT NewsId,ROW_NUMBER() OVER(ORDER
- 1.客户端的主页面:<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"