刪除資料夾內的檔案

PJChen

　暱稱: PJ

大學生 Rank: 4

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

11^# 跳轉到 »

發表於 2012-10-25 16:19 | 只看該作者

回復 2# oobird

請教大大,

這個程式可以刪除所有的檔案,但非檔案(如:資料夾)就刪不掉,可以怎麼修改程式,讓它全都刪除?

TOP

mark15jill

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

10^#

發表於 2012-10-25 16:14 | 只看該作者

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

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

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

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

  少看=只看不做也枉然

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

9^#

發表於 2012-10-25 14:22 | 只看該作者

回復 8# linsurvey2005
小心使用, 可刪除一般資料夾中所指定的檔名.

Option Explicit
Dim xlDelName As String
Dim xF As Object
Sub Ex()
Dim FS As Object, d As Object, e As Object
xlDelName = "\*練習*"
On Error GoTo rr '2003 繁體中:如目錄有簡體字會有錯誤
For Each d In CreateObject("Scripting.FileSystemObject").Drives '磁碟機
If d.IsReady Then '磁碟機已準備好
Set FS = CreateObject("Scripting.FileSystemObject").GetFolder(d.Path) '主目錄
If Dir(FS.Path & xlDelName) <> "" Then Kill FS.Path & xlDelName
For Each e In FS.SubFolders
If e.Attributes = 16 Then 子目錄 e.Path
'e.Attributes = 16 => 一般資料夾
Next
End If
Next
MsgBox "刪除完畢"
Exit Sub
rr:
MsgBox xF.Path, , "資料夾為簡體字"
End Sub
Sub 子目錄(xlfolder As String) '子目錄
Dim e
Set xF = CreateObject("Scripting.FileSystemObject").GetFolder(xlfolder)
If Dir(xF.Path & xlDelName) <> "" Then Kill xF.Path & xlDelName
For Each e In xF.SubFolders
If e.Attributes = 16 Then 子目錄 e.Path
Next
End Sub

複製代碼

TOP

linsurvey2005

中學生 Rank: 2

帖子: 84
主題: 15
精華: 0
積分: 123
點名: 0
作業系統: Windows 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: 台南市
註冊時間: 2011-5-16
最後登錄: 2022-9-17

8^#

發表於 2012-10-25 09:13 | 只看該作者

回復 4# GBKEE

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

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

開心學習,學習很開心

TOP

GBKEE