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 

（编辑：银川站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!