ASP中的FSO（FileSystemObject）组件提供了丰富的文件系统操作能力，Delete方法是其中用于删除文件和文件夹的核心方法，开发者可以通过该方法实现服务器端的文件清理、临时文件删除等功能。
Delete方法基础语法
FSO的Delete方法分为文件删除和文件夹删除两种形式，分别对应File对象和Folder对象的Delete方法，基础语法如下：
<% ' 删除文件的基础语法 objFile.Delete [Force] ' 删除文件夹的基础语法 objFolder.Delete [Force] %>
其中Force为可选参数，布尔类型，默认值为False。当设置为True时，会强制删除只读属性的文件或文件夹，忽略只读限制。
删除文件完整操作步骤
使用FSO删除文件需要先创建FileSystemObject实例，再获取目标文件对象，最后调用Delete方法，完整步骤如下：
- 创建FSO实例
- 通过GetFile方法获取目标文件对象
- 调用文件对象的Delete方法执行删除
- 释放对象资源
下面是完整的删除单个文件的示例代码：
<%
On Error Resume Next ' 开启错误捕获，避免删除失败导致页面报错
Dim fso, targetFile
' 创建FSO实例
Set fso = Server.CreateObject("Scripting.FileSystemObject")
' 定义要删除的文件路径，注意路径需要是服务器绝对路径
Dim filePath
filePath = Server.MapPath("/upload/test.txt")
' 判断文件是否存在，存在再执行删除
If fso.FileExists(filePath) Then
Set targetFile = fso.GetFile(filePath)
' 强制删除只读文件，若不需要强制删除可省略参数或设为False
targetFile.Delete True
If Err.Number = 0 Then
Response.Write("文件删除成功")
Else
Response.Write("文件删除失败，错误描述：" & Err.Description)
End If
Else
Response.Write("目标文件不存在，无法删除")
End If
' 释放对象
Set targetFile = Nothing
Set fso = Nothing
%>
删除文件夹完整操作步骤
删除文件夹的逻辑与删除文件类似，但是需要先判断文件夹是否存在，同时需要注意文件夹内是否有文件，默认情况下Delete方法会删除文件夹及其内部所有内容。
完整删除文件夹的示例代码如下：
<%
On Error Resume Next
Dim fso, targetFolder
Set fso = Server.CreateObject("Scripting.FileSystemObject")
' 定义要删除的文件夹路径
Dim folderPath
folderPath = Server.MapPath("/upload/temp")
If fso.FolderExists(folderPath) Then
Set targetFolder = fso.GetFolder(folderPath)
' 删除文件夹，包含内部所有文件和子文件夹，强制删除只读内容
targetFolder.Delete True
If Err.Number = 0 Then
Response.Write("文件夹删除成功")
Else
Response.Write("文件夹删除失败，错误描述：" & Err.Description)
End If
Else
Response.Write("目标文件夹不存在，无法删除")
End If
Set targetFolder = Nothing
Set fso = Nothing
%>
Delete方法使用注意事项
- 删除操作不可逆，执行前一定要先校验路径和文件/文件夹是否存在，避免误删重要数据
- 服务器权限问题：运行ASP的IIS账户需要对目标文件或文件夹有写入/删除权限，否则会删除失败
- 如果删除正在被其他进程占用的文件，Delete方法会执行失败，需要先确保文件没有被锁定
- 建议始终开启错误捕获，对删除操作的结果做反馈，提升功能健壮性
常见问题解答
删除时提示权限不足怎么办
可以到服务器文件管理器中，找到目标文件或文件夹，右键属性，在安全选项卡中给IIS用户（通常是IUSR_开头或者IIS_IUSRS组）添加修改和写入权限。
删除只读文件失败怎么办
调用Delete方法时传入True参数，强制删除只读属性的文件或文件夹即可。
如何只删除文件夹内的文件不删除文件夹本身
可以先获取文件夹对象，遍历内部的Files集合逐个删除文件，再遍历SubFolders集合逐个删除子文件夹，示例代码如下：
<%
On Error Resume Next
Dim fso, folder, file, subFolder
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Dim folderPath
folderPath = Server.MapPath("/upload/temp")
If fso.FolderExists(folderPath) Then
Set folder = fso.GetFolder(folderPath)
' 删除所有文件
For Each file In folder.Files
file.Delete True
Next
' 删除所有子文件夹
For Each subFolder In folder.SubFolders
subFolder.Delete True
Next
Response.Write("文件夹内容清空完成")
End If
Set folder = Nothing
Set fso = Nothing
%>