Window 如何整理並刪除無用的電腦文件 --不錯的

 重復文件查找：https://download.csdn.net/download/rerere__rereredd/9745723   Duplicate Cleaner Pro 4.0.4中英文多語言 注冊版

 

 

1.FilelistCreator --- 導出某個盤的文件，導出成excel表格，工具下載：https://www.cnblogs.com/onelikeone/p/11965279.html

 

2.針對路徑，添加引號，添加引號方法參考：https://www.cnblogs.com/onelikeone/p/11965914.html

 

3.excel表格篩選要刪除的文件，標注顏色，復制路徑 到bat腳本

 刪除指定文件.bat

@echo off
chcp 65001


DEL /F/S/Q      "D:\workspace\項目收集【】\AndroidCode原包名\鬧鍾\readme.txt"
DEL /F/S/Q      "D:\workspace\項目收集【】\AndroidCode原包名\鬧鍾\ZZDeskClock\ZZDeskClock\.classpath"

 

4.最后刪除空文件夾

最后刪除空文件夾.bat

@echo off
@REM https://blog.csdn.net/XavierDarkness/article/details/84785482

color 0A

for /f "delims=" %%a in ('dir . /b /ad /s ^|sort /r' ) do rd /q "%%a" 2>nul

pause

 改進版：

 中文亂碼問題參考：https://www.cnblogs.com/onelikeone/p/11965839.html

@echo off
@REM 刪除空目錄

color 0A

for /f "delims=" %%a in ('dir . /b /ad /s ^|sort /r') do (
  rd /q "%%a" 2>nul && echo 空目錄"%%a" 成功刪除！>>log
)
pause

 

 

---

 

 

VBA腳本：

 

 

路徑是否存在，是否應該添加判斷？ 如果路徑有空格，是否需要添加引號？

Option Explicit
Option Compare Text
Sub 根據文件路徑刪除文件()
    '聲明語句
    Dim i As Integer
    Dim j As Integer
    Dim sLength As Integer '源工作表總行數
    Dim sSheet As Worksheet '源工作表
    Dim sValue As String
    Dim sPath As String
    Dim MyFile As Object

    '賦值語句
    Set sSheet = Worksheets("Sheet2") '第一個工作表

    '獲取工作表總行數
    sLength = sSheet.Cells(Rows.Count, "A").End(xlUp).Row

    '打印總行數
    Debug.Print "source sheet length:" & sLength
    For i = 2 To sLength '第一行是標題行
        sValue = sSheet.Cells(i, "A").Value
        
        On Error Resume Next
        Set MyFile = CreateObject("Scripting.FileSystemObject")
        '判斷文件是否存在，若存在則刪除
        If MyFile.fileExists(sValue) = True Then
            Debug.Print "刪除:"; sValue
            '后面true,表示強制刪除,包括只讀文件
            MyFile.DeleteFile sValue, True
            Set MyFile = Nothing
        End If
    Next i

    Debug.Print "完成！！！"
End Sub