怎样用脚本批量删除失效快捷方式？

本文目录导读：

1. 方法一：使用 PowerShell 脚本（推荐）
2. 方法二：更高效的 PowerShell 脚本
3. 方法三：简单批处理脚本
4. 方法四：带确认的 PowerShell 脚本
5. 使用方法：
6. 注意事项：

使用 PowerShell 脚本（推荐）

# 批量删除失效快捷方式脚本
$directory = "C:\Users\$env:USERNAME\Desktop"  # 可以改为其他路径
# 递归查找所有.lnk文件
Get-ChildItem -Path $directory -Filter "*.lnk" -Recurse | ForEach-Object {
    try {
        $shell = New-Object -ComObject WScript.Shell
        $shortcut = $shell.CreateShortcut($_.FullName)
        # 检查目标路径是否存在
        if (-not (Test-Path $shortcut.TargetPath)) {
            Write-Host "删除失效快捷方式: $($_.FullName)"
            Remove-Item $_.FullName -Force
        }
    }
    catch {
        Write-Host "无法处理: $($_.FullName)" -ForegroundColor Red
    }
}

更高效的 PowerShell 脚本

# 批量删除多个位置的失效快捷方式
$paths = @(
    "$env:USERPROFILE\Desktop",
    "$env:USERPROFILE\Links",
    "$env:APPDATA\Microsoft\Internet Explorer\Quick Launch"
)
$shell = New-Object -ComObject WScript.Shell
foreach ($path in $paths) {
    if (Test-Path $path) {
        Get-ChildItem -Path $path -Filter "*.lnk" | ForEach-Object {
            try {
                $shortcut = $shell.CreateShortcut($_.FullName)
                if (-not (Test-Path $shortcut.TargetPath)) {
                    Write-Host "删除: $($_.FullName)"
                    Remove-Item $_.FullName -Force
                }
            }
            catch {
                # 跳过无法读取的快捷方式
            }
        }
    }
}

简单批处理脚本

保存为 clean_shortcuts.bat：

@echo off
echo 正在清理失效快捷方式...
echo.
:: 设置要检查的目录
set "DIRS=%USERPROFILE%\Desktop %USERPROFILE%\Links %APPDATA%\Microsoft\Internet Explorer\Quick Launch"
for %%d in (%DIRS%) do (
    if exist "%%d" (
        echo 检查: %%d
        for /r "%%d" %%f in (*.lnk) do (
            :: 使用dir命令检查快捷方式指向的文件是否存在
            dir "%%f" >nul 2>&1
            if errorlevel 1 (
                echo 删除: %%f
                del /q "%%f" 2>nul
            )
        )
    )
)
echo.
echo 清理完成！
pause

带确认的 PowerShell 脚本

# 交互式版本，会显示要删除的文件
$targetPath = Read-Host "请输入要扫描的目录路径（直接回车扫描桌面）"
if ([string]::IsNullOrEmpty($targetPath)) {
    $targetPath = "$env:USERPROFILE\Desktop"
}
Write-Host "正在扫描 $targetPath 中的失效快捷方式..." -ForegroundColor Yellow
$shell = New-Object -ComObject WScript.Shell
$brokenLinks = @()
Get-ChildItem -Path $targetPath -Filter "*.lnk" -Recurse | ForEach-Object {
    try {
        $shortcut = $shell.CreateShortcut($_.FullName)
        if (-not (Test-Path $shortcut.TargetPath)) {
            $brokenLinks += $_
        }
    }
    catch {}
}
if ($brokenLinks.Count -eq 0) {
    Write-Host "没有找到失效快捷方式" -ForegroundColor Green
    return
}
Write-Host "找到 $($brokenLinks.Count) 个失效快捷方式：" -ForegroundColor Red
$brokenLinks | ForEach-Object { Write-Host "  $($_.FullName)" }
$confirm = Read-Host "是否删除这些文件？(Y/N)"
if ($confirm -eq "Y" -or $confirm -eq "y") {
    $brokenLinks | ForEach-Object { Remove-Item $_.FullName -Force }
    Write-Host "已删除 $($brokenLinks.Count) 个失效快捷方式" -ForegroundColor Green
} else {
    Write-Host "已取消操作" -ForegroundColor Yellow
}

使用方法：

1. PowerShell 脚本：

   • 复制代码到记事本
   • 保存为 .ps1 文件
   • 右键点击 → "使用 PowerShell 运行"

2. 批处理脚本：

   • 复制代码到记事本
   • 保存为 .bat 文件
   • 双击运行

注意事项：

1. 备份重要数据：建议先备份重要的快捷方式
2. 调整路径：根据需要修改扫描的目录路径
3. 管理员权限：某些系统目录需要管理员权限
4. 测试运行：建议先用方法四的交互式版本预览

这些脚本会自动检查快捷方式指向的目标是否存在，如果目标文件已被移动或删除,就会删除对应的快捷方式。