Anasayfa » Forum

klasör içersindeki ...
 

klasör içersindeki isimleri değiştirme ve listeleme  

  RSS
Samet KUŞ
(@sametkus)
Üye

merhabalar,

klasör içerisinde birden fazla yer alan "jpg" uzantılı resimlerin isimlerini kendi belirleyecegim rakamdan başlıyacak şekilde ;

sırası ile adını değiştirmek ve değişen adların excelde a2 hücresinden , aşağıya doğru listelenmesini istiyorum.

 

aşağıdaki şöyle bir kod var ama bu tam olarak işimi görmüyor;

Sub isimdegistir()
Dim Klasor As Object, Folder As Object, Dosyalar As Object, Dosya As Object
Set Klasor = Interaction.CreateObject("Scripting.FileSystemObject")
Set Folder = Klasor.GetFolder(ThisWorkbook.Path)
Set Dosyalar = Folder.Files
i = 0
For Each Dosya In Dosyalar
If Dosya.Name < ThisWorkbook.Name Then
i = i + 1
Dosya.Name = Replace(Dosya.Name, Dosya.Name, i & ".jpg")
End If: Next Dosya
Set Dosya = Nothing: Set Dosyalar = Nothing: Set Folder = Nothing: Set Klasor = Nothing
End Sub

Alıntı
Gönderildi : 31/05/2019 17:08
Samet KUŞ
(@sametkus)
Üye

Var mıdır bir bilgisi yardımcı olabilecek

 

CevapAlıntı
Gönderildi : 11/06/2019 18:22
Paylaş:

Lütfen Giriş yap yada Kayıt ol