删除指定位置的文件

时　间:2017-10-24 09:27:21
作　者:杨雪   ID：42182  城市：南京
摘　要:文件的操作：Kill 关键字
正　文:

如果需要删除指定位置的文件，可使用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