'////////////////////////////////////////////////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
【asp结合fso实现文件或文件夹创建删除等操作的函数】相关文章：
★ 在asp中通过getrows实现数据库记录分页的一段代码