Kod: Tümünü seç

function Process-Files {
    param([array]$files)
    foreach ($file in $files) {
        ...
    }
}

Kod: Tümünü seç

Add-Type -AssemblyName System.Windows.Forms

Write-Host "=== PowerShell Dosya/Klasör Akıllı Numaralandırıcı ==="
Write-Host ""

# Ana Menü
Write-Host "1) Sadece dosyaları"
Write-Host "2) Sadece klasörleri"
Write-Host "3) Dosya ve klasörler"
Write-Host "4) Önizleme modu (sadece göster)"
$mode = Read-Host "Lütfen işlem tipini seçiniz (1-4)"
Write-Host ""

$previewMode = $mode -eq "4"
$renamedList = @()

# --- Ana dizin seçimi ---
$fbd = New-Object System.Windows.Forms.FolderBrowserDialog
$fbd.Description = "İşlem yapılacak ana dizini seçin"
if ($fbd.ShowDialog() -eq [System.Windows.Forms.DialogResult]::OK) {
    $rootPath = $fbd.SelectedPath
} else {
    Write-Host "Dizin seçilmedi, çıkılıyor..."
    [void][System.Console]::ReadLine()
    exit
}

# Önizleme alt menüsü
if ($previewMode) {
    Write-Host "Önizleme modu seçimi:"
    Write-Host "A) Sadece dosyalar"
    Write-Host "B) Sadece dizinler"
    Write-Host "C) Dosya ve dizinler"
    $subMode = Read-Host "Seçiminizi yapın (A/B/C)"
    switch ($subMode.ToUpper()) {
        "A" { $subModeNum = 1 }
        "B" { $subModeNum = 2 }
        "C" { $subModeNum = 3 }
        default { Write-Host "Geçersiz seçim, çıkılıyor..."; exit }
    }
} else {
    $subModeNum = $mode
}

# --- Dosya ve klasörleri recursive al ---
$allFiles = Get-ChildItem -Path $rootPath -File -Recurse | Sort-Object FullName
$allDirs  = Get-ChildItem -Path $rootPath -Directory -Recurse | Sort-Object FullName

$extensionCounter = @{}

# --- Ana dizin işlemi (sadece klasör içeren modlar) ---
if ($subModeNum -eq 2 -or $subModeNum -eq 3) {
    $rootDir = Get-Item -LiteralPath $rootPath
    Write-Host ""
    Write-Host "Ana dizin adı: $($rootDir.Name)"
    $rootNewName = Read-Host "Ana dizin için yeni isim (benzersiz, alt tire eklemeye gerek yok)"
    $parentDir = Split-Path -Path $rootDir.FullName -Parent
    $newRootFullPath = Join-Path -Path $parentDir -ChildPath $rootNewName

    if (-not $previewMode) {
        Rename-Item -Path $rootDir.FullName -NewName $rootNewName -ErrorAction Stop
        $renamedList += "$($rootDir.FullName) -> $newRootFullPath"
    }
    $rootPath = $newRootFullPath

    # --- Alt dizinler ---
    $altDirs = Get-ChildItem -Path $rootPath -Directory -Recurse | Sort-Object FullName
    if ($altDirs.Count -gt 0) {
        Write-Host ""
        Write-Host "Tüm alt dizinler için kullanılacak tek isim girin:"
        $altBaseName = Read-Host "Alt dizinler için isim"
        $counter = 1
        foreach ($dir in $altDirs) {
            $newName = "$altBaseName" + "-$counter"
            $newFullPath = Join-Path -Path $dir.Parent.FullName -ChildPath $newName
            if ($previewMode) {
                Write-Host "[ONİZLEME-KLASÖR] $($dir.FullName) -> $newFullPath"
            } else {
                try {
                    Rename-Item -Path $dir.FullName -NewName $newName -ErrorAction Stop
                    $renamedList += "$($dir.FullName) -> $newFullPath"
                } catch {
                    Write-Host "HATA: $($dir.FullName) yeniden adlandırılamadı. $_"
                }
            }
            $counter++
        }
    }
}

# --- Dosya işleme fonksiyonu ---
function Process-Files {
    param([array]$files)
    foreach ($file in $files) {
        $ext = $file.Extension.ToLower()
        if (-not $extensionCounter.ContainsKey($ext)) {
            Write-Host ""
            Write-Host "Mevcut dosya adı: $($file.Name)"
            $userBase = Read-Host "Yeni isim (sadece base name, numara başa/sona eklenebilir)"
            $extensionCounter[$ext] = @{"BaseName" = $userBase; "Counter" = 1}
        } else {
            $extensionCounter[$ext]["Counter"]++
            $userBase = $extensionCounter[$ext]["BaseName"]
        }
        $number = $extensionCounter[$ext]["Counter"]
        $newName = "$userBase" + "_$number" + $ext
        $newFullPath = Join-Path -Path $file.DirectoryName -ChildPath $newName

        if ($previewMode) {
            Write-Host "[ONİZLEME-DOSYA] $($file.FullName) -> $newFullPath"
        } else {
            try {
                Rename-Item -Path $file.FullName -NewName $newName -ErrorAction Stop
                $renamedList += "$($file.FullName) -> $newFullPath"
            } catch {
                Write-Host "HATA: $($file.FullName) yeniden adlandırılamadı. $_"
            }
        }
    }
}

# --- Ana işlem ---
switch ($subModeNum) {
    1 { Process-Files -files $allFiles } # Sadece dosyalar
    2 {} # Klasörler zaten işlendi
    3 { Process-Files -files $allFiles } # Dosya ve klasörler
}

# --- Değişiklikleri Listele ---
Write-Host ""
Write-Host "=== YAPILAN DEĞİŞİKLİKLER ==="
if ($renamedList.Count -eq 0) {
    Write-Host "Hiçbir değişiklik yapılmadı."
} else {
    $renamedList | ForEach-Object { Write-Host $_ }
}

# --- Kapanış onayı ---
Write-Host ""
$exitConfirm = Read-Host "Betik kendini kapatabilir, onaylıyor musunuz? (E/H)"
if ($exitConfirm.ToUpper() -eq "E") {
    Write-Host "Betik kapanıyor..."
    exit
} else {
    Write-Host "Betik açık kalacak, manuel olarak kapatabilirsiniz."
    [void][System.Console]::ReadLine()
}

Kod: Tümünü seç

C:\Users\TRWE_2012
│
├─ DOSYALAR
│   ├─ resim.jpg
│   ├─ RESİM.jpg
│   └─ not.txt
│
└─ KLASORLER
    ├─ TÜRKİYE
    ├─ DENEME-1
    └─ DENEME-2

Kod: Tümünü seç

=== PowerShell Dosya/Klasör Akıllı Numaralandırıcı ===

1) Sadece dosyaları
2) Sadece klasörleri
3) Dosya ve klasörler
4) Önizleme modu (sadece göster)
Lütfen işlem tipini seçiniz (1-4): 3

Kod: Tümünü seç

İşlem yapılacak ana dizini seçin: C:\Users\TRWE_2012 (Kullanıcıya pencere ile seçtiriliyor)

Kod: Tümünü seç

Ana dizin adı: TRWE_2012
Ana dizin için yeni isim (benzersiz, alt tire eklemeye gerek yok): PROJE_YENİ

Kod: Tümünü seç

Tüm alt dizinler için kullanılacak tek isim girin: ALT_DIZIN
[ONİZLEME-KLASÖR] C:\Users\TRWE_2012\TÜRKİYE -> C:\Users\TRWE_2012\ALT_DIZIN-1
[ONİZLEME-KLASÖR] C:\Users\TRWE_2012\DENEME-1 -> C:\Users\TRWE_2012\ALT_DIZIN-2
[ONİZLEME-KLASÖR] C:\Users\TRWE_2012\DENEME-2 -> C:\Users\TRWE_2012\ALT_DIZIN-3

Kod: Tümünü seç

Mevcut dosya adı: resim.jpg
Yeni isim (sadece base name, numara başa/sona eklenebilir): BENIM_RESIMLERIM
[ONİZLEME-DOSYA] C:\Users\TRWE_2012\DOSYALAR\resim.jpg -> C:\Users\TRWE_2012\DOSYALAR\BENIM_RESIMLERIM_1.jpg

Mevcut dosya adı: RESİM.jpg
[ONİZLEME-DOSYA] C:\Users\TRWE_2012\DOSYALAR\RESİM.jpg -> C:\Users\TRWE_2012\DOSYALAR\BENIM_RESIMLERIM_2.jpg

Mevcut dosya adı: not.txt
Yeni isim (sadece base name, numara başa/sona eklenebilir): NOTLAR
[ONİZLEME-DOSYA] C:\Users\TRWE_2012\DOSYALAR\not.txt -> C:\Users\TRWE_2012\DOSYALAR\NOTLAR_1.txt

Kod: Tümünü seç

=== YAPILAN DEĞİŞİKLİKLER ===
C:\Users\TRWE_2012\DOSYALAR\resim.jpg -> C:\Users\TRWE_2012\DOSYALAR\BENIM_RESIMLERIM_1.jpg
C:\Users\TRWE_2012\DOSYALAR\RESİM.jpg -> C:\Users\TRWE_2012\DOSYALAR\BENIM_RESIMLERIM_2.jpg
C:\Users\TRWE_2012\DOSYALAR\not.txt -> C:\Users\TRWE_2012\DOSYALAR\NOTLAR_1.txt
C:\Users\TRWE_2012\TÜRKİYE -> C:\Users\TRWE_2012\ALT_DIZIN-1
C:\Users\TRWE_2012\DENEME-1 -> C:\Users\TRWE_2012\ALT_DIZIN-2
C:\Users\TRWE_2012\DENEME-2 -> C:\Users\TRWE_2012\ALT_DIZIN-3

Kod: Tümünü seç

Betik kendini kapatabilir, onaylıyor musunuz? (E/H): E
Betik kapanıyor...