asp Deltextfile删除指定文件夹下的指定文件实例教程asp
文件夹pic_1下有1.xls和1.xls
清空文件夹：
<%
dim path
Sub EmptyFolder(filespec)
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFolder(filespec)&nbs...
文件夹pic_1下有1.xls和1.xls
清空文件夹：
<%
dim path
Sub EmptyFolder(filespec)
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFolder(filespec)
fso.CreateFolder(filespec)
End Sub
path=server.MapPath("/pic_1")
Emptyfolder(path)
%>
删除文件:
1、创建删除文件函数：
'删除文件（适合所有文件）
Function Deltextfile(fileurl)'参数为相对路径
Set objFSO = CreateObject("Scripting.FileSystemObject")
fileurl = Server.MapPath(fileurl)
if objFSO.FileExists(fileurl) then '检查文件是否存在
objFSO.DeleteFile(fileurl)
end if
Set objFSO = nothing
End Function
2、调用删除文件函数：
'删除网站根目录下的a.txt文件
Deltextfile "\a.txt"
清空文件夹：
<%
dim path
Sub EmptyFolder(filespec)
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFolder(filespec)
fso.CreateFolder(filespec)
End Sub
path=server.MapPath("/pic_1")
Emptyfolder(path)
%>
删除文件:
1、创建删除文件函数：
'删除文件（适合所有文件）
Function Deltextfile(fileurl)'参数为相对路径
Set objFSO = CreateObject("Scripting.FileSystemObject")
fileurl = Server.MapPath(fileurl)
if objFSO.FileExists(fileurl) then '检查文件是否存在
objFSO.DeleteFile(fileurl)
end if
Set objFSO = nothing
End Function
2、调用删除文件函数：
'删除网站根目录下的a.txt文件
Deltextfile "\a.txt"
上一篇：asp遍历数据库中的表
下一篇：ASP连接SQLite数据库
我要评论