'////////////////////////////////////////////////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