asp结合fso实现文件或文件夹创建删除等操作的函数

'////////////////////////////////////////////////FSO操作/////////////////////////////////////
'判断文件夹是否存在
Function FolderExits(Folder)
Folder=Server.Mappath(Folder)
Set FSO= Server.CreateObject("Scripting.FileSystemObject")
IF FSO.FolderExists(Folder) Then
   FolderExits=true
Else
   FolderExits=false
End IF 
End Function

'判断文件是否存在
Function FileExits(FileName)
FileName=Server.Mappath(FileName)
Set FSO= Server.CreateObject("Scripting.FileSystemObject")
IF FSO.FileExists(FileName) Then
   FileExits=true
Else
   FileExits=false
End IF 
End Function

'创建文件夹
Function CreateFolder(Folder)
on error resume next
Folder=Server.Mappath(Folder)
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
FSO.CreateFolder(Folder)
if err>0 then 
  err.clear
  CreateFolder=False
else 
  CreateFolder=True
end if 
End function

'创建文件
Function CreateFile(FileName,Content)
on error resume next
FileName=Server.Mappath(FileName)
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
set fd=FSO.createtextfile(FileName,true)
fd.writeline Content
if err>0 then 
  err.clear
  CreateFile=False
else 
  CreateFile=True
end if 
End function

'删除文件
function DeleteFile(FileName)
on error resume next 
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
if FSO.FileExists(FileName) then 
  FSO.DeleteFile FileName,true
end if
if err>0 then 
  err.clear
  DeleteFile=False
else 
  DeleteFile=True
end if 
end function

'删除文件夹
function DeleteFolder(Folder)
on error resume next 
Folder=server.MapPath(Folder)
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
if FSO.FolderExists(Folder) then 
  FSO.Deletefolder Folder,true
end if
if err>0 then 
  err.clear
  Deletefolder=False
else 
  Deletefolder=True
end if 
end function

(0)

相关推荐

  • asp下用ADODB.Stream代替FSO读取文本文件

    '文件内容读取. 复制代码 代码如下: Function LoadFile(ByVal File) Dim objStream On Error Resume Next Set objStream = Server.CreateObject("ADODB.Stream") If Err.Number=-2147221005 Then Response.Write "<div align='center'>非常遗憾,您的主机不支持ADODB.Stream,不能使用本

  • 设置FSO权限功能的说明

    星外科技再次开发国内首创的功能,新版本已支持用户自己打开或关闭FSO及ADO流,因此,就算再烂的程序,如果关了FSO,木马都无法上传,就算原来的程序有木马,也没有办法用FSO破坏服务器. 1.虚拟主机A关闭FSO,并不会影响另一个虚拟主机B正常使用FSO. 2.FSO可以随时打开或关闭. 3.关闭FSO并不会影响正常的数据库操作,如论坛程序的正常运行,也不影响正常的FTP使用.

  • asp fso操作类

    复制代码 代码如下: <% '================================================================ '=                    系统版本:1.0                                = '=                    文件版本:1.0                                = '=                文本创建日期:2005-10-31       

  • fso asp生成静态html的代码

    FSO生成静态HTML文件的时候替换模板标签一直是一个很麻烦的问题,至少我是这么认为的,还要别外做一个模板,麻烦!,我今天看见有一个方法可以解决这个问题 如一个正常的index.asp页面,并且用ASP代码调出数据库中的内容,另建一个makehtml.asp的页面,加入一个textarea域,假设为name="body",将index.asp在textarea里调出来,如:  <textarea name="body"><!--#include f

  • asp下利用fso实现文件夹或文件移动改名等操作函数

    asp利用fso实现文件的移动function movefiles(sFolder,dFolder)     on error resume next     dim fso     set fso = server.createobject("scripting.filesystemobject")     if fso.folderexists(server.mappath(sFolder)) and fso.folderexists(server.mappath(dFolder)

  • ASP+FSO可视化目录编历(可增、删、改)下载

    本程序介绍: 1.完全可视化界面操作,采用asp+fso开发. 2.可上传文件,可修改删除文件. 3.同时提了其他俩个程序(大家可自行测试).本地下载

  • 使用FSO修改文件夹的名称实现文件转移防盗链

    那天突然的一个灵感,是针对防盗链的 正常上传的文件,若被人盗链则增加了自己服务器的负担,上次164.cc就因此被挂 然后想想对策,目前各类防盗链程序也不少,不过使用也并不简单,还有就是不能免费-- 所以,只有自己先想办法.那么,现在看看标题,再想想防盗链,或许就有些眉目了 我可以不定时的修改上传文件所在的文件夹名称,而本站程序是动态获得文件夹名称,这样原先盗用本站文件的站点会因路径的错误而找不到文件,从而也就实现了防盗链. 那么,如何使用FSO修改文件夹的名称呢? 一个简单的函数: 复制代码 代

  • ASP FSO文件操作函数代码(复制文件、重命名文件、删除文件、替换字符串)

    FSO文件(File)对象属性 DateCreated 返回该文件夹的创建日期和时间 DateLastAccessed 返回最后一次访问该文件的日期和时间 DateLastModified 返回最后一次修改该文件的日期和时间 Drive 返回该文件所在的驱动器的Drive对象 Name 设定或返回文件的名字 ParentFolder 返回该文件的父文件夹的Folder对象 Path 返回文件的绝对路径,可使用长文件名 ShortName 返回DOS风格的8.3形式的文件名 ShortPath 返

  • asp结合fso实现文件或文件夹创建删除等操作的函数

    '////////////////////////////////////////////////FSO操作///////////////////////////////////// '判断文件夹是否存在 Function FolderExits(Folder) Folder=Server.Mappath(Folder) Set FSO= Server.CreateObject("Scripting.FileSystemObject") IF FSO.FolderExists(Fold

  • ASP中FSO的神奇功能 - 文件读取

    作 者 : 甘冀平 现在已经有了一些用户信息保存在文件中,就像一个简单的数据库.假设有一个用户想了解所有的访问者,就要从登 记的信息中分离出相关部分,因为没有象数据库一样拥有结构化的列. 我们知道,在所创建的文件中,第1行是用户名,第2行是他们的主页,第3行是他们的电子邮件地址.随后登记的用 户也是按照这样的结构存储他们的信息,所以每3行将包含一个用户的登记信息.知道了这些,就可以编写下面的代码来显 示信息: < % ' create the fso object set fso = Serve

  • Java 客户端操作 FastDFS 实现文件上传下载替换删除功能

    FastDFS 的作者余庆先生已经为我们开发好了 Java 对应的 SDK.这里需要解释一下:作者余庆并没有及时更新最新的 Java SDK 至 Maven 中央仓库,目前中央仓库最新版仍旧是 1.27 版.所以我们需要通过 Github:https://github.com/happyfish100/fastdfs-client-java 下载项目源码,再通过命令 mvn clean install 编译打包导入 Maven 仓库使用即可. 接下来我们通过 Java API 操作 FastDF

  • asp修改文件和文件夹的名字的代码

    修改文件的名字 使用"FileSystemObject(文件系统对象)"的GetFile函数得到一个"文件对象",然后修改这个"文件对象"的name属性 复制代码 代码如下: set fso=Server.CreateObject("Scripting.FileSystemObject") set file=fso.GetFile(Server.MapPath("/folder/old_name.asp")

  • ASP+FSO生成的网页文件默认编码格式以及转换成UTF-8编码方法

    具体特征如下: 1.通过模板实现俄文正常. 2.通过后台数据库生成的静态俄文信息,后台显示正常, 前台乱码. 3.英文正常. 和该主题相关的类似或不同表达 FSO写UTF-8编码文件 FSO怎么才能生成utf-8编码的文件 FSO生成的文件默认是什么编码格式 如何转换成UTF-8编码 FSO生成静态网页的问题 ASP中用FSO生成文件代码如下 复制代码 代码如下: function createfile(sfilename,scontent) set fso=server.CreateObjec

  • ASP.NET Core中的wwwroot文件夹

    ASP.NET Core中wwwroot文件夹 默认情况下,ASP.NET Core应用程序中的wwwroot文件夹被视为webroot文件夹,并且该文件夹或目录应位于根项目文件夹中. 在ASP.NET Core应用程序中,静态文件可以存储在webroot文件夹下的任何文件夹中,并且可以使用指向该根目录的相对路径进行访问. 添加wwwroot(webroot)文件夹 当使用Web和MVC模板创建ASP.NET Core Web应用程序时,默认情况下,该文件夹(wwwroot)在根项目文件夹中创建

  • ASP.NET 上传文件到共享文件夹的示例

    目录 上传文件代码 web.config 工具方法 常量 具体上传文件代码 创建共享文件夹参考资料 上传文件代码 web.config <!--上传文件配置,UploadPath值一定是服务器ip,内网ip最好--> <add key="UploadPath" value="\\172.21.0.10\File" /> <add key="DownloadPath" value="http://x.x.x.

  • ASP.NET设计网络硬盘之文件夹实现

    在介绍"网络硬盘"概念时已经提到,每个用户在"网络硬盘"上都有自己的一块空间.在下面程序设计中是这样处理的:为用户提供一个固定的文件夹,在这个文件夹下用户可以自己增加/删除新的文件夹或文件.如图1所示,首次打开网页时将列出该文件夹下的所有内容(包括文件和文件夹).如果想进入下一级文件夹,可以选中该文件夹,单击"打开"按钮进入.下面将就查看文件夹内容功能的实现分步骤进行说明. 图1 用户主界面 1. 页面加载 由于程序所提供的用户目录是固定的,如c

  • asp下利用xml打包网站文件

    这个方法可以把整个文件夹打包到xml文件中,把这个xml文件文件和解包文件放在一起后,运行解包文件就可以把原来的文件释放出来,这样我们就可以把网站打包上传到虚拟主机,再运行解包文件就可以了.我在本地测试之选择了少部分文件,不知在文件很多的情况执行效率如何.     其实实现的思路也很简单,主要利用的是xml文件可以存放二进制数据的原理.有兴趣的朋友可以下载下面的附件研究下!! 解包文件 复制代码 代码如下: <%@LANGUAGE="VBSCRIPT" CODEPAGE=&quo

  • 用XML+FSO+JS实现服务器端文件的选择效果

    <%'written by Linzhang Chen ,2003-4-20 ' 转载请注明出处和保留此版权信息 response.write "<?xml version=""1.0"" encoding=""GB2312""?>"&chr(13)response.write "<mediafile>"&chr(13)folders=req

随机推荐