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