[發問] 如何用CMD刪除資料夾呢

v60i

請問大大
如果我有一大堆資料夾
AAAAA
AAA01
AAASFGV
ADCVVB
VGBVB
DGGBDF
類似這些亂數的檔名資料夾
我只要刪除開頭AA資料夾全部就可以
該怎麼寫呢?

downling

1. del AA*.*
   
2. rd AA*.

複製代碼

windows XP/7可用

v60i

回復 2# downling

大大不行哦
你的方法不能用

downling

那個地方不行?
出現什麼資訊?

v60i

回復 4# downling


    大大 你自己有先行試看看嗎?

他說 檔案名稱、目錄名稱或磁碟區標籤語法錯誤。

downling

回復 5# v60i

忘了rd不吃萬用字元
你可以去抓98的deltree.exe來用
或是網路上有人貼出來的一篇
你可以自己試一下

1. Option Explicit
   
2. 
   
3. Dim objFSO, objTempFolder, strTempFolder
   
4. 
   
5. Const TEMP_FOLDER = 2
   
6. 
   
7. Set objFSO        = CreateObject( "Scripting.FileSystemObject" )
   
8. Set objTempFolder = objFSO.GetSpecialFolder( TEMP_FOLDER )
   
9. strTempFolder     = objTempFolder.Path
   
10. 
    
11. DelTree strTempFolder, True
    
12. 
    
13. 
    
14. Sub DelTree( myFolder, blnKeepRoot )
    
15. ' With this subroutine you can delete folders and their content,
    
16. ' including subfolders.
    
17. '
    
18. ' You can specify if you only want to empty the folder, and thus
    
19. ' keep the folder itself, or to delete the folder itself as well.
    
20. ' Root directories and some (not all) vital system folders are
    
21. ' protected: if you try to delete them you'll get a message that
    
22. ' deleting these folders is not allowed.
    
23. '
    
24. ' Use: Deltree.vbs <Path to delete>, True (false)
    
25. '
    
26. ' Arguments:
    
27. ' myFolder     [string]   the folder to be emptied or deleted
    
28. ' blnKeepRoot  [boolean]  if True, the folder is emptied only,
    
29. '                         otherwise it will be deleted itself too
    
30. '
    
31. '
    
32.     Dim arrSpecialFolders(3)
    
33.     Dim objMyFSO, objMyFile, objMyFolder, objMyShell
    
34.     Dim objPrgFolder, objPrgFolderItem, objSubFolder, wshMyShell
    
35.     Dim strPath, strSpecialFolder
    
36. 
    
37.     Const WINDOWS_FOLDER =  0
    
38.     Const SYSTEM_FOLDER  =  1
    
39.     Const PROGRAM_FILES  = 38
    
40. 
    
41.     ' Use custom error handling
    
42.     On Error Resume Next
    
43. 
    
44.     ' List the paths of system folders that should NOT be deleted
    
45.     Set wshMyShell       = CreateObject( "WScript.Shell" )
    
46.     Set objMyFSO         = CreateObject( "Scripting.FileSystemObject" )
    
47.     Set objMyShell       = CreateObject( "Shell.Application" )
    
48.     Set objPrgFolder     = objMyShell.Namespace( PROGRAM_FILES )
    
49.     Set objPrgFolderItem = objPrgFolder.Self
    
50. 
    
51.     arrSpecialFolders(0) = wshMyShell.SpecialFolders( "MyDocuments" )
    
52.     arrSpecialFolders(1) = objPrgFolderItem.Path
    
53.     arrSpecialFolders(2) = objMyFSO.GetSpecialFolder( SYSTEM_FOLDER  ).Path
    
54.     arrSpecialFolders(3) = objMyFSO.GetSpecialFolder( WINDOWS_FOLDER ).Path
    
55. 
    
56.     Set objPrgFolderItem = Nothing
    
57.     Set objPrgFolder     = Nothing
    
58.     Set objMyShell       = Nothing
    
59.     Set wshMyShell       = Nothing
    
60. 
    
61.     ' Check if a valid folder was specified
    
62.     If Not objMyFSO.FolderExists( myFolder ) Then
    
63.         WScript.Echo "Error: path not found (" & myFolder & ")"
    
64.         WScript.Quit 1
    
65.     End If
    
66.     Set objMyFolder = objMyFSO.GetFolder( myFolder )
    
67. 
    
68.     ' Protect vital system folders and root directories from being deleted
    
69.     For Each strSpecialFolder In arrSpecialFolders
    
70.         If UCase( strSpecialFolder ) = UCase( objMyFolder.Path ) Then
    
71.             WScript.Echo "Error: deleting """ _
    
72.                        & objMyFolder.Path & """ is not allowed"
    
73.             WScript.Quit 1
    
74.         End If
    
75.     Next
    
76. 
    
77.     ' Protect root directories from being deleted
    
78.     If Len( objMyFolder.Path ) < 4 Then
    
79.         WScript.Echo "Error: deleting root directories is not allowed"
    
80.         WScript.Quit 1
    
81.     End If
    
82. 
    
83.     ' First delete the files in the directory specified
    
84.     For Each objMyFile In objMyFolder.Files
    
85.         strPath = objMyFile.Path
    
86.         objMyFSO.DeleteFile strPath, True
    
87. 
    
88.     Next
    
89. 
    
90.     ' Next recurse through the subfolders
    
91.     For Each objSubFolder In objMyFolder.SubFolders
    
92.         DelTree objSubFolder, False
    
93.     Next
    
94. 
    
95.     ' Finally, remove the "root" directory unless it should be preserved
    
96.     If Not blnKeepRoot Then
    
97.         strPath = objMyFolder.Path
    
98.         objMyFSO.DeleteFolder strPath, True
    
99. 
    
100.     End If
     
101. 
     
102.     ' Clean-up after thyself
     
103.     On Error Goto 0
     
104.     Set objMyFolder = Nothing
     
105.     Set objMyFSO    = Nothing
     
106. End Sub

複製代碼

v60i

回復 6# downling


   大大
請問這是vb還是cmd??

downling

引用原文

If you wanted to delete the contents of the directory c:\Temp, but not remove the TEMP directory, usage would be:

DELTREE.vbs c:\Temp, TRUE

If you wish to delete the contents of c:\Temp, AND the directory c:\temp...

DELTREE.vbs c:\Temp, FALSE

代碼就是上面po的

Note: Just copy the code above, paste it into notepad, and save it as DELTREE.vbs (or whatever you wish to name it). Run it from a command prompt. You may have to use a fully qualified path depending on where you save it.

v60i

回復 8# downling


    s@@ 看來真的只能用vb囉

groover

需要用 vb 嗎?? 直接在 cmd 下用 dir >1.txt 將所有檔案寫成 1.txt 後, 再進 Excel 中把不要的檔, 前面加一欄, 那欄中加上 del, 再將 Excel 的檔copy 或 寫成文字檔, 變成 .bat 檔即可, 不到 10 分鐘搞定.