最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
fso创建删除文件和文件夹函数
时间:2008-08-28 编辑:简简单单 来源:一聚教程网
sub delfile(FileName) '这是一个用于删除文件的过程,如未指定文件名,将删除该目录下所有文件
On Error Resume Next
set fs=createobject("scrip"&"ting.filesys"&"temob"&"ject")
if instr(filename,":")<>0 then
path=filename
else
path=server.MapPath(FileName)
end if
' Response.Write path
fs.deletefile path,TRUE
set ts=nothing
end sub
sub rd(mName) '这是一个用于删除文件的过程,如未指定文件名,将删除该目录下所有文件
set fs=createobject("scrip"&"ting.filesys"&"temob"&"ject")
if instr(filename,":")<>0 then
path=mName
else
path=server.MapPath(mName)
end if
' Response.Write path&"
"
On Error Resume Next
fs.deletefolder path,TRUE
set ts=nothing
end sub
function tesfold(foname) '用来检测指定的目录是否存在
set fs=createobject("scrip"&"ting.filesys"&"temob"&"ject")
if fs.folderexists(foname) then
tesfold=True
else
tesfold= False
end if
set fs=nothing
end function
sub createfold(foname) '用来建立一个目录
set fs=createobject("scrip"&"ting.filesys"&"temob"&"ject")
fs.createfolder(foname)
set fs=nothing
end sub
-
上一个: asp fso 文件重命名教程
-
下一个: asp 写alexa 排名查询系统教程一
相关文章
- VBS 批量Ping的项目讲解 09-19
- 如何封装一个Ajax函数介绍 09-16
- ASP实现加法验证码方法 09-16
- ASP错误捕获的几种常规处理方法介绍 09-16
- ajax实现城市三级联动的代码介绍 09-16
- asp中获取日期为星期几的技巧 09-14