返回列表 上一主題 發帖

刪除資料夾內的檔案

刪除資料夾內的檔案

請教各位老師們,如何以vbs檔,製作出刪除d:\內 (特定的資料夾裡頭所有的檔案),請老師們指教,謝謝!

Dim fso
Set fso = CreateObject("scripting.filesystemobject")
fso.DeleteFile "D:\aa\*"

TOP

放在vba中一樣通用

TOP

回復 1# man65boy
Kill "d:\*.xls"
Ps : Kill 來刪除一個已開啟的檔案,則會產生錯誤

TOP

回復 2# oobird


    感謝oobird大大的解題,成功了!
也謝謝GBKEE大大的建言,小弟會注意,感謝。

TOP

回復  man65boy
Kill "d:\*.xls"
Ps : Kill 來刪除一個已開啟的檔案,則會產生錯誤
GBKEE 發表於 2012-6-14 06:23



    印象中vbs好像不支持kill~還是我記錯了?

TOP

回復 6# oobird
2003版是可以的,其他版我不知道 .

TOP

回復 4# GBKEE

大大好:
要刪除D:磁槽裡面的"練習-1"、"練習-2"、"練習-3".....
或者是C:磁槽裡面的"練習-1"、"練習-2"、"練習-3".....   

條件是知道檔案的前面名稱,後面序號卻很多個,而且也忘記存放在哪個資料夾
只想把電腦裡面所有檔名為"練習" or "練習-1"等序號全部刪除
檔案類型都是Excel、Word可以分別進行刪除嗎?
開心學習,學習很開心

TOP

回復 8# linsurvey2005
小心使用, 可刪除一般資料夾中所指定的檔名.
  1. Option Explicit
  2. Dim xlDelName As String
  3. Dim xF As Object
  4. Sub Ex()
  5.     Dim FS As Object, d As Object, e As Object
  6.     xlDelName = "\*練習*"
  7.     On Error GoTo rr   '2003 繁體中:如目錄有簡體字會有錯誤
  8.     For Each d In CreateObject("Scripting.FileSystemObject").Drives  '磁碟機
  9.         If d.IsReady Then  '磁碟機已準備好
  10.             Set FS = CreateObject("Scripting.FileSystemObject").GetFolder(d.Path) '主目錄
  11.             If Dir(FS.Path & xlDelName) <> "" Then Kill FS.Path & xlDelName
  12.             For Each e In FS.SubFolders
  13.                 If e.Attributes = 16 Then 子目錄 e.Path
  14.                 'e.Attributes = 16 => 一般資料夾
  15.             Next
  16.         End If
  17.     Next
  18.     MsgBox "刪除完畢"
  19.     Exit Sub
  20. rr:
  21. MsgBox xF.Path, , "資料夾為簡體字"
  22. End Sub
  23. Sub 子目錄(xlfolder As String)  '子目錄
  24.     Dim e
  25.     Set xF = CreateObject("Scripting.FileSystemObject").GetFolder(xlfolder)
  26.     If Dir(xF.Path & xlDelName) <> "" Then Kill xF.Path & xlDelName
  27.     For Each e In xF.SubFolders
  28.         If e.Attributes = 16 Then 子目錄 e.Path
  29.     Next
  30. End Sub
複製代碼

TOP

回復  linsurvey2005
小心使用, 可刪除一般資料夾中所指定的檔名.
GBKEE 發表於 2012-10-25 14:22



   
請問 這個有辦法先備份後 在動作嗎??
如 d 槽內執行此指令 但先將資料copy 到c槽..

  多做多想多學習,少看少錯少迷途

  多做=多多練習,多多編寫。
  多想=想想為什麼人家程式要那樣寫,如果換成自己,又會怎寫。
  多學習=學習人家的發問並解答,學習人家的寫法

  少看=只看不做也枉然

TOP

        靜思自在 : 為自己找藉口的人永遠不會進步。
返回列表 上一主題