DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
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
?? işaretler en fazla dosya uzunluğu yada daha fazlası olursa dosya isimlerinde kırpma olmaz.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
Bu dosya adlarını,Merhaba, CMD ekranında
ren *.pdf *-Tarama.pdf
tüm pdf'lerin sonuna "-Tarama" eklenir
Doğrudur. Bunu farkettim. En iyisi bat dosyası ile halletmek. Aradaki ".pdf-Tarama" leri silmek için: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.
for %%A in (*.pdf-Tarama.pdf) do for /F "eol=? delims=" %%B in ("%%~dpnA") do @ren "%%~fA" "%%~nB%%~xA"
SET "Str=-Tarama"
for %%a in (".\*.*") do ren "%%~a" "%%~Na%Str%%%~Xa