【PowerShell】今いるフォルダのファイル名を一覧表示する（最下層まで含む）

param(
    [string]$Path = ""
)

# --- 開始パスの設定 ---
if ([string]::IsNullOrWhiteSpace($Path)) {
    $StartingPath = (Get-Location).Path
    Write-Host "Starting path not specified. Using current directory: $StartingPath" -ForegroundColor DarkGray
} else {
    $StartingPath = Resolve-Path -Path $Path
    Write-Host "Starting path specified: $StartingPath" -ForegroundColor DarkGray
}

# --- ファイルとフォルダーを取得 ---
$items = Get-ChildItem -Path $StartingPath -Recurse -Force |
          Select-Object FullName, Name, LastWriteTime

# --- ディレクトリ単位でグループ化 ---
$List = foreach ($item in $items) {
    $ParentPath = Split-Path -Path $item.FullName -Parent
    [PSCustomObject]@{
        Directory    = $ParentPath
        File         = $item.Name
        LastWriteTime = $item.LastWriteTime
    }
}

$List |
    Group-Object Directory |
    Sort-Object Name |
    ForEach-Object {
        $dir = $_.Name
        if ([string]::IsNullOrWhiteSpace($dir)) { $dir = '.' }
        Write-Host "Directory: $dir" -ForegroundColor Cyan

        $files = $_.Group | Where-Object { $_.File }
        if ($files.Count -eq 0) {
            Write-Host "(no files)" -ForegroundColor DarkGray
        } else {
            foreach ($f in $files | Sort-Object File) {
                $time = $f.LastWriteTime.ToString("yyyy/MM/dd HH:mm")
                Write-Host "$($f.File)  ($time)"
            }
        }
        Write-Host ""
    }

# --- 削除確認処理 ---
Write-Host "空行で区切ります"
Write-Host ""
Write-Host "注意: PowerShellスクリプトファイル(.ps1)は除外されます。" -ForegroundColor Yellow

$filesToDelete = $items | Where-Object { $_.Extension -ne ".ps1" }

Write-Host "対象外を除いた削除候補ファイル数: $($filesToDelete.Count)" -ForegroundColor DarkYellow
$confirmation = Read-Host "削除を実行しますか？ (Yes/No)"

if ($confirmation -eq "yes") {
    Write-Host "削除を実行しています..." -ForegroundColor Green
    $filesToDelete | Remove-Item -Force
    Write-Host "削除が完了しました。" -ForegroundColor Green
} else {
    Write-Host "削除をスキップしました。" -ForegroundColor DarkYellow
}