'////////////////////////////////////////////////FSO操作/////////////////////////////////////

'判断文件夹是否存在

FunctionFolderExits(Folder)

Folder=Server.Mappath(Folder)

SetFSO=Server.CreateObject("Scripting.FileSystemObject")

IFFSO.FolderExists(Folder)Then

FolderExits=true

Else

FolderExits=false

EndIF

EndFunction

'判断文件是否存在

FunctionFileExits(FileName)

FileName=Server.Mappath(FileName)

SetFSO=Server.CreateObject("Scripting.FileSystemObject")

IFFSO.FileExists(FileName)Then

FileExits=true

Else

FileExits=false

EndIF

EndFunction

'创建文件夹

FunctionCreateFolder(Folder)

onerrorresumenext

Folder=Server.Mappath(Folder)

SetFSO=Server.CreateObject("Scripting.FileSystemObject")

FSO.CreateFolder(Folder)

iferr>0then

err.clear

CreateFolder=False

else

CreateFolder=True

endif

Endfunction

'创建文件

FunctionCreateFile(FileName,Content)

onerrorresumenext

FileName=Server.Mappath(FileName)

SetFSO=Server.CreateObject("Scripting.FileSystemObject")

setfd=FSO.createtextfile(FileName,true)

fd.writelineContent

iferr>0then

err.clear

CreateFile=False

else

CreateFile=True

endif

Endfunction

'删除文件

functionDeleteFile(FileName)

onerrorresumenext

SetFSO=Server.CreateObject("Scripting.FileSystemObject")

ifFSO.FileExists(FileName)then

FSO.DeleteFileFileName,true

endif

iferr>0then

err.clear

DeleteFile=False

else

DeleteFile=True

endif

endfunction

'删除文件夹

functionDeleteFolder(Folder)

onerrorresumenext

Folder=server.MapPath(Folder)

SetFSO=Server.CreateObject("Scripting.FileSystemObject")

ifFSO.FolderExists(Folder)then

FSO.DeletefolderFolder,true

endif

iferr>0then

err.clear

Deletefolder=False

else

Deletefolder=True

endif

endfunction