在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之實現文件或文件夾的創建刪除的操作的判斷方法,更多的技術知識盡在錯新技術頻道哦,大家趕快收藏起來吧!
新聞熱點
疑難解答