刪除資料夾內的檔案

man65boy

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

oobird

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

oobird

放在vba中一樣通用

GBKEE

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

man65boy

回復 2# oobird


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

oobird

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

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

GBKEE

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

linsurvey2005

回復 4# GBKEE

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

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

GBKEE

回復 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

複製代碼

mark15jill

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

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