標題: [發問] 請問刪除資料夾內的所有*.xls [打印本頁]

---

作者: HSIEN6001    時間: 2012-4-20 11:09     標題: 請問刪除資料夾內的所有*.xls

請問刪除指定資料夾內的所有*.xls 之VBA語法

---

作者: HSIEN6001    時間: 2012-4-20 12:22

題意不明?! 我找到一個
DeleteFile(mPath+mFile);      //刪除Excel檔

DeleteFile("c:/test/123456.txt") ；
但執行出現沒有定義DeleteFile 的Sub 或 Function
好像是C++語法

VBA可以做?!

---

作者: GBKEE    時間: 2012-4-20 13:00

回復 2# HSIEN6001

1. Option Explicit
   
2. Sub Ex()
   
3.     Kill "D:\*.xls"
   
4. End Sub
   
5. Sub Ex1()
   
6.     Dim Fs As Object, xPath As String, xFile As String
   
7.     Set Fs = CreateObject("Scripting.FileSystemObject")
   
8.     xPath = "D:\"
   
9.     xFile = Dir(xPath & "*.xls")
   
10.     Do
    
11.         If xFile <> "" Then
    
12.         Fs.DeleteFile xPath & xFile
    
13.         xFile = Dir
    
14.         End If
    
15.     Loop While xFile <> ""
    
16. End Sub

複製代碼

---

作者: HSIEN6001    時間: 2012-4-20 13:18

回復 3# GBKEE


兩個都可以用!太感謝了~^o^~y
可以來ㄑ吃飯啦!

不會語法粉痛苦~幾近變態中~^^!!

再次感謝!!
TKS!

---

作者: freeffly    時間: 2012-4-20 13:28

回復 3# GBKEE


    板主想問一下
   第一個比較簡單容易理解
   第二個跟第一個的作用有哪裡不一樣嗎

---

作者: GBKEE    時間: 2012-4-20 13:40

回復 5# freeffly
是一樣的 Ex1可簡化 如 Ex

1. Option Explicit
   
2. Sub Ex()
   
3.     On Error Resume Next    '有錯誤時不理會它, 繼續下一行程式碼
   
4.     Kill "D:\*.xls"                      '找不到檔案時會有錯誤
   
5. End Sub
   
6. Sub Ex1()
   
7.     Dim Fs As Object, xFile As String
   
8.     On Error Resume Next    '有錯誤時不理會它, 繼續下一行程式碼
   
9.     Set Fs = CreateObject("Scripting.FileSystemObject")
   
10.     xFile = "D:\*.xls"
    
11.     Fs.DeleteFile xFile     '找不到檔案時會有錯誤
    
12. End Sub

複製代碼

---

作者: freeffly    時間: 2012-4-20 14:40

回復 6# GBKEE


    謝謝板主解說

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)