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