dosya adı değişimi

[11hakan11]

merhabalar elimde pdf ler var benim bunların sonuna tarama yazmam gerekiyor

ÖRNEĞİN

AHMET MEHMET TARAMA şeklinde olacak

 

[Harun_Y]

Bunu CMD içinden de yapabilirsiniz. Dosyalarınızın güvenliği açısından C ye veya Usb ye bir klasör oluşturun dosyalarınızı içine kopyalayın Başlat çalıştıra cmd yazın. CMD den Klasörünüzün içine girin aşağıda yazdığımı yapıştırın Ahmet-tarama mehmet-tarama vs olacak.

ren *.pdf ???????????????????-Tarama.pdf

 

[Necdet]

Merhaba,

Seçenek olsun.
Klasor adını kod içinde değiştirin.

Not : Dizinin kopyasını alın, kodları üst üste çalıştırmayın.

Sub DosyaAdDegistir()

'Referanslardan Microsoft Scripting Runtime Seçili olmalı

Dim fso As Scripting.FileSystemObject
Dim Klasor As Scripting.Folder
Dim Dosya As Scripting.File
Dim KlasorAdi As String
Dim Adet As Long

Set fso = New Scripting.FileSystemObject

KlasorAdi = "C:\Z1"

Set Klasor = fso.GetFolder(KlasorAdi)

For Each Dosya In Klasor.Files
    If fso.GetExtensionName(Dosya.Name) = "pdf" Then
        Adet = Adet + 1
        fso.GetFile(Dosya.Path).Name = fso.GetBaseName(Dosya.Path) & " TARAMA.pdf"
    End If
Next Dosya

If Adet > 0 Then MsgBox Adet & " Adet Dosya Adı Değiştirilmiştir...."

End Sub

 

[Asri]

Bunu CMD içinden de yapabilirsiniz. Dosyalarınızın güvenliği açısından C ye veya Usb ye bir klasör oluşturun dosyalarınızı içine kopyalayın Başlat çalıştıra cmd yazın. CMD den Klasörünüzün içine girin aşağıda yazdığımı yapıştırın Ahmet-tarama mehmet-tarama vs olacak.

ren *.pdf ???????????????????-Tarama.pdf

?? işaretler en fazla dosya uzunluğu yada daha fazlası olursa dosya isimlerinde kırpma olmaz.

 

[necati]

Merhaba, CMD ekranında
ren *.pdf *-Tarama.pdf
tüm pdf'lerin sonuna "-Tarama" eklenir

 

[Asri]

Merhaba, CMD ekranında
ren *.pdf *-Tarama.pdf
tüm pdf'lerin sonuna "-Tarama" eklenir

Bu dosya adlarını,
1 dsasadsadsadsd fsdfsdfdYeni Me2.pdf
1ad adsfsd fsdfsdfs sd sadas dasd asd asdas2.pdf

Bu şekilde değiştiriyor. Arada uzantısı kalıyor.
1 dsasadsadsadsd fsdfsdfdYeni Me2.pdf-Tarama.pdf
1ad adsfsd fsdfsdfs sd sadas dasd asd asdas2.pdf-Tarama.pdf

Bende, bunu denedim ama bende bu şekilde olunca çoklu ?? önerdim.
Sizde nasıl bir sonuç veriyor.

 

[necati]

Bu dosya adlarını,
1 dsasadsadsadsd fsdfsdfdYeni Me2.pdf
1ad adsfsd fsdfsdfs sd sadas dasd asd asdas2.pdf

Bu şekilde değiştiriyor. Arada uzantısı kalıyor.

Doğrudur. Bunu farkettim. En iyisi bat dosyası ile halletmek. Aradaki ".pdf-Tarama" leri silmek için:

for %%A in (*.pdf-Tarama.pdf) do for /F "eol=? delims=" %%B in ("%%~dpnA") do @ren "%%~fA" "%%~nB%%~xA"

Sonra da uzantı hariç -tarama eklemek için:

SET "Str=-Tarama"
for %%a in (".\*.*") do ren "%%~a" "%%~Na%Str%%%~Xa

 

[11hakan11]

herkese teşekkürler