asp之实现文件或文件夹的构建删除的操作的判断方法

发布时间：2023-08-21 14:38:20 所属栏目：Asp教程来源：

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

'判断文件夹是否存在

Function Fo

在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

（编辑：聊城站长网）

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