繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > asp下利用fso实现文件夹或文件移动改名等操作函数
- ASP
- asp搜索两个以上的词的原理
- 如何使用花生壳?
- asp汉字转换成汉语拼音代码
- asp程序实现伪静态的代码
- asp处理xml数据的发送、接收类
- ASP中使用jmail发送邮件的函数
- asp中获取字符串中的时间字符串
- ASP按照字数限制自动截取标题内容
- asp中将内容生成word文档的函数
- 用ASP自动清空IE缓存里的内容
- asp检测conn.execute是否执行成功的函数
- 自动获取当前页面URL的ASP函数
- ASP采集中获取网页内所需的html代码
- asp图片采集并且本地重命名保存的函数
- 如何使用asp去字符串中的超链接
- asp网站通过限制请求防止被采集的函数
- asp利用正则去掉字符串中所有html内容
- 用ASP取出HTML里面的图片地址的函数
- fso实现整个文件夹内容的复制到另一个文件夹中
- 适合所有表的添加、删除、修改的函数
ASP 中的 asp下利用fso实现文件夹或文件移动改名等操作函数
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-13 浏览: 157 ::
收藏到网摘: n/a
以后利用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)) then
fso.copyfolder server.mappath(sFolder),server.mappath(dFolder)
movefiles = true
else
movefiles = false
set fso = nothing
call alertbox("系统没有找到指定的路径[" & sFolder & "]!",2)
end if
set fso = nothing
end function
asp修改文件夹名称
function renamefolder(sFolder,dFolder)
on error resume next
dim fso
set fso = server.createobject("scripting.filesystemobject")
if fso.folderexists(server.mappath(sFolder)) then
fso.movefolder server.mappath(sFolder),server.mappath(dFolder)
renamefolder = true
else
renamefolder = false
set fso = nothing
call alertbox("系统没有找到指定的路径[" & sFolder & "]!",2)
end if
set fso = nothing
end function
asp检查文件夹是否存在
function checkfolder(sPATH)
on error resume next
dim fso
set fso = server.createobject("scripting.filesystemobject")
if fso.folderexists(server.mappath(sPATH)) then
checkfolder = true
else
checkfolder = false
end if
set fso = nothing
end function
asp检查文件是否存在
function checkfile(sPATH)
on error resume next
dim fso
set fso = server.createobject("scripting.filesystemobject")
if fso.fileexists(server.mappath(sPATH)) then
checkfile = true
else
checkfile = false
end if
set fso = nothing
end function
asp创建文件夹
function createdir(sPATH)
dim fso,pathArr,i,path_Level,pathTmp,cPATH
on error resume next
sPATH = replace(sPATH,"\","/")
set fso = server.createobject("scripting.filesystemobject")
pathArr = split(sPATH,"/")
path_Level = ubound(pathArr)
for i = 0 to path_Level
if i = 0 then pathTmp = pathArr(0) & "/" else pathTmp = pathTmp&pathArr(i) & "/"
cPATH = left(pathTmp,len(pathTmp)-1)
if not fso.folderexists(cPATH) then fso.createfolder(cPATH)
next
set fso = nothing
if err.number <> 0 then
err.clear
createdir = false
else
createdir = true
end if
end function
删除文件夹，这里是删除系统中栏目的文件夹
function delclassfolder(sPATH)
on error resume next
dim fso
set fso = server.createobject("scripting.filesystemobject")
if fso.folderexists(server.mappath(sPATH)) then
fso.deletefolder(server.mappath(sPATH))
end if
set fso = nothing
end function
删除新闻内容文件
function delnewsfile(sPATH,filename)
on error resume next
dim fso,tempArr,cPATH,ePATH,i:i = 0
set fso = server.createobject("scripting.filesystemobject")
sPATH = sPATH & filename & site_extname
if fso.fileexists(server.mappath(sPATH)) then
fso.deletefile(server.mappath(sPATH))
while(i <> -1)
i = i + 1
ePATH = replace(sPATH,filename & ".",filename & "_" & i + 1 & ".")
if fso.fileexists(server.mappath(ePATH)) then
fso.deletefile(server.mappath(ePATH))
else
i = -1
end if
wend
end if
end function
评论 (0) All
