繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > asp结合fso实现文件或文件夹创建删除等操作的函数
- ASP
- ASP应用 用GetString来提高ASP的速度
- ASP怎样可以获得代码中第一张图片地址
- ASP开发经验谈 ASP开发10条经验总结
- 如何用ASP来获取客户端真实IP的地址？
- 用ASP实现就MP3曲目信息的操作全攻略
- ASP中连接数据库的错误解决新解决办法
- ASP后门之终极伪装
- ASP生成静态htm页面基本代码
- session在验证管理登陆时的使用方法
- asp当中判断函数一览
- IIS6.0 ASP 错误解析
- ASP与JSP的区别和联系
- 几种打开记录集方式的比较
- cookie和session机制之间的区别与联系
- ASP的含义、功能和选择
- ASP中巧用Response属性 -- contenttype
- ASP内置对象Request和Response的详解
- ASP错误大全
- 人文的ASP开发基础入门之简介
- ASP 3.0高级编程（十二）
ASP 中的 asp结合fso实现文件或文件夹创建删除等操作的函数
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-13 浏览: 76 ::
收藏到网摘: n/a
sp+fso实现文件或文件夹检测是否存在，创建，删除的函数 '////////////////////////////////////////////////FSO操作/////////////////////////////////////
'判断文件夹是否存在
Function FolderExits(Folder)
Folder=Server.Mappath(Folder)
Set FSO= Server.CreateObject("Scripting.FileSystemObject")
IF FSO.FolderExists(Folder) Then
FolderExits=true
Else
FolderExits=false
End IF
End Function
'判断文件是否存在
Function FileExits(FileName)
FileName=Server.Mappath(FileName)
Set FSO= Server.CreateObject("Scripting.FileSystemObject")
IF FSO.FileExists(FileName) Then
FileExits=true
Else
FileExits=false
End IF
End Function
'创建文件夹
Function CreateFolder(Folder)
on error resume next
Folder=Server.Mappath(Folder)
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
FSO.CreateFolder(Folder)
if err>0 then
err.clear
CreateFolder=False
else
CreateFolder=True
end if
End function
'创建文件
Function CreateFile(FileName,Content)
on error resume next
FileName=Server.Mappath(FileName)
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
set fd=FSO.createtextfile(FileName,true)
fd.writeline Content
if err>0 then
err.clear
CreateFile=False
else
CreateFile=True
end if
End function
'删除文件
function DeleteFile(FileName)
on error resume next
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
if FSO.FileExists(FileName) then
FSO.DeleteFile FileName,true
end if
if err>0 then
err.clear
DeleteFile=False
else
DeleteFile=True
end if
end function
'删除文件夹
function DeleteFolder(Folder)
on error resume next
Folder=server.MapPath(Folder)
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
if FSO.FolderExists(Folder) then
FSO.Deletefolder Folder,true
end if
if err>0 then
err.clear
Deletefolder=False
else
Deletefolder=True
end if
end function
评论 (0) All
