繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > asp下利用fso实现文件夹或文件移动改名等操作函数
- ASP
- ASP实例:读取xml文件的程序
- asp实现rar压缩和解压缩源代码
- 关于ASP中脚本执行顺序的讲解
- 用asp程序读取网站的alexa世界排名
- 初学ASP编程易犯的一个错误要注意
- ASP实现SQL语句日期格式的加减运算
- 通过启动脚本来感受ASP的力量
- ASP SCRIPT: 计数器(使用GrapShot组件)
- 学以致用 驳“ASP低能论”
- ASP分页显示Recordset数据
- ASP编程代码：隐藏图片的真实地址
- ASP网站Server object error的解决办法
- 用ASP对网页进行限制性的访问
- 把网页中的电话号码生成图片的ASP程序
- ASP实现文件直接下载
- 用ASP显示ACCESS数据库的的GIF图象
- ASP分页和日期格式化为RFC822格式的办法
- 实例：ASP与ACCESS链接
- ASP程序直接连接MYSQL数据库
- ASP连接MSSQL的错误: 拒绝访问
ASP 中的 asp下利用fso实现文件夹或文件移动改名等操作函数
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-13 浏览: 109 ::
收藏到网摘: 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
