繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > asp下利用fso实现文件夹或文件移动改名等操作函数
- ASP
- asp生成三维饼图的函数
- ASP下的简洁的多重查询的方法与函数 真不错
- 发一个ASP的ADODB类代码
- A利用ASP小偷和Google实现在线翻译功能的代码
- ASP类型网站结合动网论坛会员的方法
- Asp下实现多表单域无组件文件上传的实例
- asp制作中常用到的函数库集合
- 易心asp分页类 v1.0
- asp中xmlhttp组件发包
- 检测是否为数字类型的asp代码
- 可以获得文件的文件名的asp函数
- 用asp实现访问远程计算机上MDB access数据库文件的方法
- 用ASP实现写IIS日志的代码
- asp在IE浏览器中下载服务端上的各类文件的实现方法
- asp汉字中文图片验证码的实现代码
- asp WAP获取手机终端信息的一段代码
- asp取得数组中的最大值的方法
- 用asp实现的截取指定格式字符串的代码
- asp jmail发邮件 详细解析
- ASP编程中连接数据库和数据库操作的常用代码
ASP 中的 asp下利用fso实现文件夹或文件移动改名等操作函数
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-13 浏览: 33 ::
收藏到网摘: 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
