12
返回列表 上一主題 發帖

刪除資料夾內的檔案

man65boy

帖子
169 
主題
39 
精華
0 
積分
252 
點名
0  
作業系統
XP 
軟體版本
2003 
閱讀權限
20 
註冊時間
2011-4-17 
最後登錄
2020-7-17 

2012龍年全勤獎章2011兔年全勤獎章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-6-13 23:16 | 只看該作者

刪除資料夾內的檔案

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

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
2#
發表於 2012-6-13 23:54 | 只看該作者
Dim fso
Set fso = CreateObject("scripting.filesystemobject")
fso.DeleteFile "D:\aa\*"

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
3#
發表於 2012-6-13 23:56 | 只看該作者
放在vba中一樣通用

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
4#
發表於 2012-6-14 06:23 | 只看該作者
回復 1# man65boy
Kill "d:\*.xls"
Ps : Kill 來刪除一個已開啟的檔案，則會產生錯誤

TOP

man65boy

帖子
169 
主題
39 
精華
0 
積分
252 
點名
0  
作業系統
XP 
軟體版本
2003 
閱讀權限
20 
註冊時間
2011-4-17 
最後登錄
2020-7-17 

2012龍年全勤獎章2011兔年全勤獎章
5#
發表於 2012-6-14 06:49 | 只看該作者
回復 2# oobird


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

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
6#
發表於 2012-6-14 10:00 | 只看該作者
回復  man65boy
Kill "d:\*.xls"
Ps : Kill 來刪除一個已開啟的檔案，則會產生錯誤
GBKEE 發表於 2012-6-14 06:23



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

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
7#
發表於 2012-6-14 10:15 | 只看該作者
回復 6# oobird
2003版是可以的,其他版我不知道 .

TOP

linsurvey2005

帖子
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

帖子
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
小心使用, 可刪除一般資料夾中所指定的檔名.
  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

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

高中生Rank: 3Rank: 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

        靜思自在 : 道德是提昇自我的明燈，不該是呵斥別人的鞭子。
12
返回列表 上一主題