ASP FSO 检测 创建 删除 文件 文件夹
来源:互联网 发布:数组写法 编辑:程序博客网 时间:2024/05/18 00:10
'////////////////////////////////////////////////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
'判断文件夹是否存在
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
- ASP FSO 检测 创建 删除 文件 文件夹
- asp和fso实现删除文件或文件夹
- 用FSO删除文件夹
- asp 建立文件夹 FSO
- FSO创建文件夹
- 在代理中创建、删除文件夹(FSO)
- ASP,删除文件夹,文件.
- FSO删除文件
- Asp技巧:删除文件夹、创建文件夹代码
- ASP FSO文件操作
- ASP FSO文件操作
- java创建文件夹,文件;删除文件夹,文件
- java创建文件夹,文件;删除文件夹,文件
- java创建文件夹,文件;删除文件夹,文件
- asp删除文件夹中的文件
- 【C#】创建文件夹,删除文件夹,创建文件,删除文件
- Linux文件夹文件创建、删除
- Linux文件夹文件创建、删除
- JADE与JBoss联合开发
- Winsock错误代码一览表
- 落后的return与前卫的finally
- 测试用例设计步骤
- ajax异步
- ASP FSO 检测 创建 删除 文件 文件夹
- 音频、视频格式大全
- Grid的改造--有关必要性的思考
- ASP.NET 2.0 中 Web 事件
- Google Adsense 赚钱源代码
- How do I love thee? Let me count the ways
- vfp求助
- oracle10g Data Guard新特性:物理备库也可以read/write
- 自定义blog皮肤