利用asp进行的文件夹和文件的创造性毁灭的方法判定

在asp程序中，程序员经常对文件出现创建、删除等的操作，今天错新技术频道小编就为大家整理了asp之实现文件或文件夹的创建删除的操作的判断方法，希望对你学习有帮助！

'判断文件夹是否存在

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 

上述是技术频道整理的asp之实现文件或文件夹的创建删除的操作的判断方法，更多的技术知识尽在错新技术频道哦，大家赶快收藏起来吧！

（编辑：银川站长网）

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