服务器之家:专注于服务器技术及软件下载分享
分类导航

PHP教程|ASP.NET教程|Java教程|ASP教程|编程技术|正则表达式|C/C++|IOS|C#|Swift|Android|JavaScript|易语言|

服务器之家 - 编程语言 - ASP教程 - asp结合fso实现文件或文件夹创建删除等操作的函数

asp结合fso实现文件或文件夹创建删除等操作的函数

2019-09-24 10:23asp代码网 ASP教程

asp+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 

延伸 · 阅读

精彩推荐