linux删除指定文件_删除指定文件

很多人对VBA有自己的见解，我对VBA的定义：VBA是利用Office实现个人小型办公自动化的有效手段（工具）。确实VBA可以提高自己的工作效率，给自己的工作带来轻松，如果大家对VBA感兴趣，如果你认为VBA可以给自己的工作带来帮助，可以系统的学习，最好能成为我的学员，汲取我的经验。我以传递我多年实际经验为宗旨，授人以渔。目前我只能满足对学员答疑，辅导，非学员朋友还望见谅。

今日推出常用“积木”过程案例分享第328期: 如何删除指定文件。这些专辑就是我多年实际利用VBA的经验记录，来源于我多年的实践经验。目前我已经将所有代码修正为适合64位和32位两种系统，大家要把这些代码块作为一块块的积木对待，平时要多积累，建立自己的“积木库”，需要时拿来可以修正、组合。这就是我的“积木编程”的思想。最近代码是出自我的第一套教程”VBA代码解决方案”。如以提高自己能力为目的可以We!C!h a t两个对象: VBA6337（或者NZ9668），两个对象是都是可以的。

====================== ① ======================

Sub mynz_44()

Dim Filename As Variant

Dim mymsg As Integer

Dim i As Integer

Filename = Application.GetOpenFilename(Title:="删除文件", MultiSelect:=True)

If IsArray(Filename) Then

mymsg = MsgBox("是否删除你所选文件?", vbYesNo, "提示")

If mymsg = vbYes Then

For i = 1 To UBound(Filename)

Kill Filename(i)

Next

End If

End If

End Sub

================②=====================

代码解读：

mynz_44()过程使用GetOpenFilename方法显示标准的内置“打开”对话框，获取用户选定文件的文件名后使用Kill语句删除。

a) 第5行代码显示标准的“打开”对话框，将对话框的标题设置为“删除文件”，将MultiSelect参数设置为True，允许选定多个文件。

b) 第6行代码，获得返回值。当用户选定文件后，返回的是选定的文件名或用户输入的文件名。因为MultiSelect参数已设置为True，所以返回值将是一个包含所有选定文件名的数组（即使仅选定了一个文件名）。如果用户取消了对话框，则该值为False。

c) 第8行到第12行代码，经询问用户后使用Kill语句从磁盘中删除用户选定的文件。

运行mynz_44过程，显示标准的内置“打开”对话框，删除用户选定的文件.

• 特别提示2： VBA中数组下界默认从0开始，但使用GetOpenFilename方法选择多个文件时返回的包含选定文件名的数组下界是从1开始。

各套教程的介绍：

第1套（初级）：VBA代码解决方案

第2套(中级+)：VBA数据库解决方案

第3套(中级-)：VBA数组与字典解决方案

第4套(初级)：VBA代码解决方案之视频

第5套(高级)：VBA中类的解读和利用

第6套(高级)：VBA信息获取与处理

学习顺序：13265或者43265。其中第四套是对第一套的视频讲解，所以第一和第四只选其一即可。

分享成果，随喜正能量