Board logo

標題: [發問] 請問刪除資料夾內的所有*.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/)