批次刪除檔案與空目錄

1     作業流程

1.1 先取得欲刪除檔案集的相關資訊，並輸入5個參數值

1.2 依照取得的參數值，執行欲刪除的檔案   

1.3檔案刪除執行後，若目錄為空，則執行刪除該空目錄       

2     作業說明  

2.1  欲刪除檔案之的相關內容，使用者指定輸入，並設定如下5個參數

 PAR1--- 來源資料夾位址，  例D:\BACKUP

 PAR2 --- 幾天前檔案欲刪除，例 -30 or -2023/12/31 default=0

 PAR3--- 欲刪除檔案之名稱與副檔名 ，例TW*.txt or *高雄*  default=*.*

      PAR4--- 執行後出力檔案之存放路徑，例D:\BK   default=D:\DESTINATION

      PAR5--- 刪除作業之判斷，當輸入D 時，執行檔案刪除；

                    輸入非D 時，不會刪除檔案，只提供確認參考

輸入非D 時，如set PAR5=h ， 則不會刪除，只會出力符合條件的file

結果txt出力如下:

**---The below parameters you want to process ---    週五 2024/07/05 15:04:47.59---

**1 Source path     :D:\TEST_BK

**2 Date or days    :-2024/10/1

**3 Sring of files  :*.pptx

**4 Destination path:D:\DESTINATION

ECHO is on.

 [ Inquired file list ] 

"D:\TEST_BK\新增 Microsoft PowerPoint 簡報.pptx"

**-------------------------------------- Finished at 週五 2024/07/05 15:04:47.66---

其他 參數 設定參考:

       set PAR1=D:\TEST_BK        

       set PAR2=-90      

       set PAR3=*.mp4*       

       set PAR4=D:\DESTINATION        

       set PAR5=D

2.2 刪除作業 

* 指定之來源資料夾(PAR1)目錄下包含子目錄下的檔案，若符合就刪除       

* 若刪除執行發生錯誤時，仍會繼續不會中斷，且將錯誤訊息出力至txt file供參考        

2.3 刪除空目錄作業， 即執行CALL  RD_EMPTY_fix-par.cmd   

2.3.1 來源目錄下每個目錄，每次執行都會查看是否存在檔案，若該目錄下０個檔案，則執行刪除該目錄

2.3.2 空目錄被刪除後，出力至txt檔案，記錄該目錄名稱

3     實例說明

3.1 來源目錄之指定

　本例設定為   set PAR1= D:\TEST_BK

3.2出力檔案名 : Inquiry_error_result.txt

<1>刪檔案錯誤場合

       若不能刪除檔案 會列出原因 (因權限關係，無法讀取)

<2>正常刪檔案場合

       刪除檔案正常時，txt列出訊息如下:

 **---The below parameters you want to process ---    週五 2024/07/05 15:15:20.94---

**1 Source path     :D:\TEST_BK

**2 Date or days    :-2024/7/31

**3 Sring of files  :*.*

**4 Destination path:D:\DESTINATION

ECHO is on.

 

 [ Cannot DEL file ] 

**-------------------------------------- Finished at 週五 2024/07/05 15:15:21.12---

<3>找無對象檔案場合，

   因為選取日期 +2025/1/1 ，故找無檔案，執行結果出力於 Inquiry_error_result.txt 內容如下:

 **---The below parameters you want to process ---    週五 2024/07/05 14:34:47.43---

**1 Source path     :D:\TEST_BK

**2 Date or days    :+2025/1/1

**3 Sring of files  :*.*

**4 Destination path:D:\DESTINATION

ECHO is on.

 

 [ Cannot DEL file ] 

  ERROR: No files found with the specified search criteria. 

**-------------------------------------- Finished at 週五 2024/07/05 14:34:47.56---

3.3 空目錄被刪除後，作業結果訊息出力至txt，empFOLDER_RD.txt內記錄兩個空目錄被刪除，參考如下:

[ Empty folder rased ] ----- on 週五 2024/07/05 14:34:47.57 

  "D:\TEST_BK\LDPlayer"   

  "D:\TEST_BK\YunGameDownload\leidian\Plugins"   

 

4     運用效果

4.1定期執行自動刪除作業bat，可節省硬體空間

4.2將bat設定自動排程，刪除檔案之作業，省下人力工時，提升工作效率

5     將來運用  

5.1 個人電腦內各個硬碟槽或伺服器公用槽內資料夾，均可比照運用  

5.2 各應用系統內各種平日交易檔案，歷史紀錄log檔等，均可比照運用，否則老舊過期檔案一直增加，將使硬碟容量龐大，影響系統效能或致系統異常當機。       

6     設計撰寫 :        

6.1刪除檔案之 Bat :DelF+RD.bat 

rem echo off
CHCP 65001
rem ----本檔案需保存為 UTF-8 ,CHCP 65001 為了顯示特殊字元(漢字日文) 。big5 ,CHCP 950
rem 入力檔目錄需先輸入，出力檔案名 Inquiry_error_result.txt
D:
cd D:\LINCT_material\PC\cmd-bat\cmd\Manipulate_file\Del99

rem ---[Noted] 不可用I槽   set PAR1=I:\99.暫存資料 ，因 schedule task 無法認得 ---- 
set PAR1=D:\TEST_BK

set PAR2=-2024/7/31
set PAR3=*.*
set PAR4=D:\DESTINATION
set PAR5=D

set PAR_ERR=N

IF NOT EXIST "%PAR1%"  (echo ###ERROR : %PAR1% is not exist  & set PAR_ERR=Y & goto END  )
IF NOT EXIST %PAR4%  ( md %PAR4%  )
rem  pause chk par1:%PAR1%   par4:%PAR4% -----

echo **---The below parameters you want to process ---    %DATE% %TIME%---> %PAR4%\Inquiry_error_result.txt
echo **1 Source path     :%PAR1% >> %PAR4%\Inquiry_error_result.txt
echo **2 Date or days    :%PAR2% >> %PAR4%\Inquiry_error_result.txt
echo **3 Sring of files  :%PAR3% >> %PAR4%\Inquiry_error_result.txt
echo **4 Destination path:%PAR4% >> %PAR4%\Inquiry_error_result.txt
echo >> %PAR4%\Inquiry_error_result.txt

echo *** Files 執行中...for "%PAR1%" %PAR2% %PAR3% %PAR4% %PAR5% 
IF %PAR5% == D ( CALL :DELFile ) else ( CALL :FIND )

:END
:: ---Noted "%PAR1%" 需有" " ，因資料夾名有()，致IF 指令語法錯誤 ---
IF %PAR_ERR% == Y  ( 
   echo *** Job ABEND 異常中止 for "%PAR1%" or %PAR4% is not exist--- 
   echo *** Job ABEND 異常中止 for "%PAR1%" or %PAR4% is not exist---> %PAR4%\Inquiry_error_result.txt         
 ) ELSE (
   echo *** Files 執行完了 for "%PAR1%" %PAR2% %PAR3% %PAR4% %PAR5% 
   echo *---Please check result file save in  %PAR4%\Inquiry_error_result.txt )
echo **-------------------------------------- Finished at %DATE% %TIME%--->> %PAR4%\Inquiry_error_result.txt
rem pause del end chk??

CALL  RD_EMPTY_fix-par.cmd 

rem pause job final  end
EXIT

:DELFile 
:: ---- del file 若成功del 無訊息印出, 只有錯誤有發生時，才會印出 ----
echo.  >> %PAR4%\Inquiry_error_result.txt
echo  [ Cannot DEL file ]  >> %PAR4%\Inquiry_error_result.txt

For /f "tokens=* delims=?"  %%A in ( 'forfiles /P "%PAR1%" /S  /D %PAR2%   /M "%PAR3%" /c "cmd /c del /F /Q /A @path" 2^>^&1 ' ) do ( echo   %%A >> %PAR4%\Inquiry_error_result.txt ) 
exit /b

:FIND
echo.  >> %PAR4%\Inquiry_error_result.txt
echo  [ Inquired file list ]  >> %PAR4%\Inquiry_error_result.txt
:: ---- echo inquiry all file list out, 包括存取被拒的file 也會印出 ----  
forfiles /P "%PAR1%" /S /D %PAR2%  /M "%PAR3%" /c "cmd /c echo @path ">>%PAR4%\Inquiry_error_result.txt 2^>^&1
exit /b

6.2刪除空目錄之cmd : RD_EMPTY_fix-par.cmd

rem ----本檔案需保存為 UTF-8 ,CHCP 65001 為了顯示特殊字元(漢字日文) -----
rem ---檢查目錄下含子目錄，若為空，則只刪除該下之空目錄  ，並出力 D:\DESTINATION\empFOLDER_RD.txt----
rem @echo on
@echo off
rem CHCP 65001
rem ---注意本for只找出目錄(含子目錄)，沒找出file，
rem echo [ Empty folder rased ] ----- on %DATE:~0,4%/%DATE:~5,2%/%DATE:~8,2%  >D:\DESTINATION\empFOLDER_RD.txt
echo [ Empty folder rased ] ----- on %DATE% %TIME%  >D:\DESTINATION\empFOLDER_RD.txt

echo.   >>D:\DESTINATION\empFOLDER_RD.txt
set /a n=0
set n_p1=N

::  ----PAR1 FIX 取得 -------
:Enter_par1

IF NOT EXIST "%PAR1%" ( echo ###ERROR : %PAR1% path is not exist  &  goto EOF ) 

for /f "delims="  %%i in ('dir "%PAR1%" /ad /b /s') do CALL :AAA   "%%i"  
if %n_p1%==N ( CALL :RD_Process  "%PAR1%"  )
echo --- To check RD result in  D:\DESTINATION\empFOLDER_RD.txt-----
exit /b
rem  goto EOF

rem ---找出的目錄內 存有的目錄與檔案共有幾個file，若0個，即是為空目錄，則 rase dir ---------
rem ---需有"delims=" 又 參數 %%i必須加" ", 這樣目錄名/檔名有空白，才可完整取出 ----  
:AAA
set n_p1=Y
set /a n=0

for /f "delims="  %%j in ('dir %1   /a /b ' )  do ( set /a n=n+1 )
if %n%==0 ( CALL :RD_Process   %1  )
exit /b        

:RD_Process
RD  %1
echo   %1 >>D:\DESTINATION\empFOLDER_RD.txt   
echo ====== To check dir=%1 , file cnt=%n% , PAR1_ALL_emp=%n_p1%
exit /b 

:EOF
rem pause --- job is normal end  

6.3   bat檔案需保存為 UTF-8 ,cmd 追加CHCP 65001 為了能正常顯示特殊字元漢字或日文　

------by linct-------