今天要和大家分享的是：Vba設(shè)置批量刪除指定文件夾下的所有文件？

1、首先新建一個(gè)excel文件并雙擊打開，打開后，按快捷鍵F12進(jìn)行另存為，注意另存的格式要選擇啟用宏的工作簿，如下圖所示：

2、接著找到左上角的文件按鈕，選擇選項(xiàng)按鈕，如下圖所示：

3、在彈出的對(duì)話框中選擇信任中心，并選擇信任中心設(shè)置，接著選擇隱私選項(xiàng)，并把保存時(shí)刪除個(gè)人信息的對(duì)號(hào)去掉，整體設(shè)置完成，按快捷鍵ALT+F11,打開VBA編輯界面，并插入一個(gè)模塊，如下圖所示：

4、插入后將如下代碼復(fù)制到模塊中，Sub 刪除指定文件夾下的所有文件()

For i% = 1 To Range("A1048576").End(xlUp).Row

Kill Cells(i, 1) & "/*.*”

Next

End Sub

如下圖所示：

5、接著我們看到新建文件夾的路徑里有很多excel文件，這就是我們需要?jiǎng)h除的文件，如下圖所示：

6、而且上一個(gè)文件夾又有很多新建文件夾的副本，這里也有很多excel，都是我們需要?jiǎng)h除的，如下圖所示：

7、然后找到批量提取文件名和修改文件名的宏文件，如下圖所示：

8、打開后找到視圖中的查看宏命令，并找到提取文件名的宏命令，單擊執(zhí)行，此時(shí)需要在彈出的對(duì)話框中找到我們對(duì)應(yīng)的文件路徑，注意需要找到要?jiǎng)h除文件的文件夾的上一級(jí)路徑，如下圖所示：

9、找到后即可看到所有的文件路徑已經(jīng)生成，此時(shí)需要用&公式將完整路徑進(jìn)行合并，如下圖所示：