繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > asp下利用fso实现文件夹或文件移动改名等操作函数
- ASP
- 利用ASP将HTML格式数据传输给Excel 的技巧
- 用ASP CSS实现随机背景
- 用ASP实现在线文章翻译的功能
- 动态网页爱好者来看：Asp过滤HTML的函数
- 自动去除字符中含有html代码的几个ASP函数
- 用ASP对网页进行简单的保护
- ASP网页开发过程中的几个小技巧
- ASP动态网页制作中使用SQL语句的方法
- ASP开发中存储过程应用全接触
- 入门：初学ASP动态网页制作常用错误处理
- ASP动态网页下UTF-8页面乱码的解决方法
- 小技巧：解决ASP脚本运行超时的方法
- 动态网页制作技术ASP开发中的常见问题
- 动态网页技术ASP日期和时间函数示例
- ASP程序实现保存参数值的分页功能
- 用ASP寻找到真实IP地址的方法
- ASP中文显示解决技巧及创建对象方法
- ASP实例：Asp 防止网页频繁刷新一法
- 将ASP动态网页转换成HTM静态页面的方法
- 技巧：得到刚刚插入的记录的自动编号值一例
ASP 中的 asp下利用fso实现文件夹或文件移动改名等操作函数
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-13 浏览: 36 ::
收藏到网摘: 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
