请问如何在asp中删除文件，请高手指教，解决了给分！

[wtf577]

我在帮一个客户做文件上传，已经解决了！可是怎么删除文件呢？请指教！谢谢！

[chinesun]

Dim MyFSO,MyFile
MyFile="文件名.jpg"//这里写上要删除的文件
Set MyFSO = Server.CreateObject("Scripting.FileSystemObject")
MyFSO.DeleteFile(Server.MapPath(MyFile))

必须支持FSO

[awaysrain]

DeleteFile 方法
请参阅
CopyFile 方法 | CreateTextFile 方法 | Delete 方法 | DeleteFolder 方法 | MoveFile 方法
应用于：FileSystemObject 对象
语言
JScript

VBScript

显示所有语言
删除指定文件。

object.DeleteFile ( filespec[, force] );
参数
object
必选项。应为 FileSystemObject 的名称。
filespec
必选项。要删除的文件的名称。filespec 可以在最后的路径成分中包含通配字符。
force
可选项。Boolean 值，如果要删除设置了只读属性的文件，则为 true ；如果不删除则为 false （默认）。
说明
如果找不到匹配的文件则出错。DeleteFile 方法在遇到第一个错误时终止。出错后不试图回滚或撤消出错前做的修改。

下面的例子说明了 DeleteFile 方法的用法。

[JScript]
function DeleteFile(filespec)
{
var fso;
fso = new ActiveXObject("Scripting.FileSystemObject");
fso.DeleteFile(filespec);
}
[VBScript]
Sub DeleteAFile(filespec)
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFile(filespec)
End Sub
请参阅
CopyFile 方法 | CreateTextFile 方法 | Delete 方法 | DeleteFolder 方法 | MoveFile 方法
应用于：FileSystemObject 对象



--------------------------------------------------------------------------------

© 2001 Microsoft Corporation. 保留所有权利。

[lions911]

用FSO删除，十分简单。

[liuzxit]

<% set fso=server.createobject("scripting.filesystemobject")
strFile=server.MapPath("abc.doc")
if fso.fileExists(strFile) then fso.deletefile strFile
set fso=nothing %>

[fcxj]

dim delfile
set delfile = server.CreateObject("scripting.filesystemobject")
delfile.deletefile(server.MapPath("filename"))//这样就可以，但是前提是要文件存在，否则出错。你可以将其扩展开来

[aBoris]

Set FSO = Server.CreateObject("Scripting.FileSystemObject")
FSO.DeleteFile(Server.MapPath("c:\text.txt"))

[allserver]

文件夹要设置everyone可以写

[coolboy0000love]

直接用kill 文件路径

[lovehwq21]

给你个函数，直接调用就可以解决你的问题了

'删除指定图片，传入参数 sPathPicture 图片的完整存放路径名称，比如：c:\test.txt
Function DelPicture(sPathPicture)
Dim ObjPicture
Set ObjPicture = Server.CreateObject("Scripting.FileSystemObject")
If ObjPicture.FileExists(sPathPicture) Then
ObjPicture.DeleteFile(sPathPicture)
End If
Set ObjPicture = Nothing
End Function

[1871]

FSO有安全漏洞~~尤其是FTP服务也开启的情况下~~可以执行恶意ASP文件删除系统文件！

[online]

Sub CleanUpGIF(GIFpath)
Dim objFS
Dim objFolder
Dim gif
set objFS = Server.CreateObject("Scripting.FileSystemObject")
set objFolder = objFS.GetFolder(GIFpath)
for each gif in objFolder.Files
if instr(gif.Name, ".gif") > 0 and DateDiff("n", gif.DateLastModified, now) > 10 then
objFS.DeleteFile GIFpath & "\" & gif.Name, True
end if
next
set objFolder = nothing
set objFS = nothing
End Sub