asp融合fso实现文件或文件夹创建删除等操作的函数

发布时间：2023-05-24 13:54:51 所属栏目：Asp教程来源：

导读：asp+fso实现文件或文件夹检测是否存在，创建，删除的函数

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

'判断文件夹是否存在

Function Fol

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

（编辑：聊城站长网）

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