引用:
|
作者Belldandy_1
這個簡單，把這些資料夾全部移入某個資料夾下........滑鼠右鍵..刪除..搞定收工。
|
這招比較厲害...
或是你吃飽太閒，用小程式copy也可以
---純文字檔改成123.vbs---
urfile = "c:\test" '上層目錄
Set FSO = CreateObject("Scripting.FileSystemObject")
Set WS = WScript.CreateObject("WScript.Shell")
Set p_fld = FSO.GetFolder(urfile)
Set c_fld = p_fld.Subfolders
For Each x_files in c_fld
srcfld = fso.GetAbsolutePathName(x_files)
WS.run "xcopy " & srcfld & " /e " & urfile
'FSO.Copyfile srcfld & "\*", urfile
Next
--