ASP FSO 检测 创建 删除 文件 文件夹
2006-11-29 15:52
543 查看
'////////////////////////////////////////////////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实现文件或文件夹创建删除等操作的函数
- asp.net创建、删除、移动文件夹 文件
- asp.net 文件夹和文件的创建、删除
- ASP.NET对文件的操作,创建文件,判断文件是否存在,判断文件是否存在删除文件夹
- asp.net上传文件并创建文件夹和删除文件
- asp 创建与删除文件与文件夹
- asp和fso实现删除文件或文件夹
- asp.net ftp 上传,下载,删除文件,创建文件夹,删除文夹,重命名类
- asp下利用fso实现文件夹或文件移动改名等操作函数
- Linux之创建、删除文件和文件夹命令
- 创建、删除文件和文件夹命令
- 创建、删除文件及文件夹,文件及文件夹的复制、剪切、重命名。
- php文件及文件夹操作(创建、删除、移动、复制)
- ubuntu创建、删除文件及文件夹,强制清空回收站方法
- ubuntu创建、删除文件及文件夹,强制清空回收站方法
- 文件/文件夹创建、复制与删除
- Linux创建、删除 文件和文件夹
- 批处理bat文件实现复制、删除、创建文件夹、执行程序、打开文件
- ubuntu创建、删除文件及文件夹,强制清空回收站方法