如果需要删除指定位置的文件,可使用Kill关键字,其具体语法格式为:
Kill [文件路径]
通过Kill 关键字删除的文件与在系统中删除文件不同,不会将文件移动到回收站中,而是直接删除,删除后不能恢复。
'删除文件
Sub 删除()
On Error GoTo 结束
Dim F_Dlg As Office.FileDialog
Dim fileName As String
Dim YN As Integer
'引用文件对话框
Set F_Dlg = Application.FileDialog(msoFileDialogOpen)
'设置文件对话框属性
With F_Dlg
.Title = "选择想要删除的文件"
.AllowMultiSelect = False
.Show
End With
'获取要删除的文件的路径
fileName = F_Dlg.SelectedItems.Item(1)
'询问是否要删除选择的文件
YN = MsgBox("确定要删除选择文件吗?", vbYesNo, "删除")
If YN = vbYes Then
'删除文件
Kill fileName
Else
MsgBox "已取消删除文件!"
End If
结束: End Sub