[Yardım]  Klasördeki dosya adlarını toplu değiştirme

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Klasördeki dosya adlarını toplu değiştirme

İleti#1)  maakbulut » 26 Kas 2019 16:35

Merhaba,

Sol sütundaki belirli bir klasör içerisinde yer alan dosyaların adlarını sağdaki sutundaki gibi değiştirmek istiyorum. Bu şekilde 100K üzerinde satır ve adı değiştirilecek dosya var. Fakat soldaki sütunda dosya adlarının bazıları birden fazla yazıyor, bu dokümanları da kopyalatarak sağdaki sütundaki ismini verdirebilir miyiz?


Mevcut Doküman Adı Yeni Doküman adı
A000001.pdf ABCD0001.pdf
A000001.pdf ACFD0005.pdf
A000001.pdf AZZA2565.pdf
DD00011.pdf GGG22565.pdf
DD00011.pdf EWE22565.pdf
TT33341RR.pdf 4556DDDD.pdf
.....
.....
.....
Kullanıcı avatarı
maakbulut
Yeni Başlamış
 
Adı Soyadı:M.Akif Akbulut
Kayıt: 29 Ekm 2010 13:45
İleti: 11
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Istanbul/Sancaktepe

Cevap: Klasördeki dosya adlarını toplu değiştirme

İleti#2)  Ali ÖZ » 27 Kas 2019 08:09

Merhaba,
Mevcut Dosya isimlerinin sütununda,yeni isimlerin b sütununda olduğunu varsayarak hazırladım.

Kod: Tümünü seç
  Set klasor = CreateObject("shell.application").BrowseForFolder(0, "Kaynak Klas?r? Se?in", 50, &H0)
  If klasor Is Nothing Then
     MsgBox "L?tfen Kaynak Klas?r Se?in !", vbInformation, "B?LG?"
     Exit Sub
  End If
 
yol = klasor.self.Path
For i = 2 To Cells(Rows.Count, "a").End(3).Row
   Name yol & Application.PathSeparator & Range("A" & i) As yol & Application.PathSeparator & Range("B" & i)
Next
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 10:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 38
İleti: 9969
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: Cevap: Klasördeki dosya adlarını toplu değiştirme

İleti#3)  maakbulut » 27 Kas 2019 15:04

Ali ÖZ yazdı:Merhaba,
Mevcut Dosya isimlerinin sütununda,yeni isimlerin b sütununda olduğunu varsayarak hazırladım.

Kod: Tümünü seç
  Set klasor = CreateObject("shell.application").BrowseForFolder(0, "Kaynak Klas?r? Se?in", 50, &H0)
  If klasor Is Nothing Then
     MsgBox "L?tfen Kaynak Klas?r Se?in !", vbInformation, "B?LG?"
     Exit Sub
  End If
 
yol = klasor.self.Path
For i = 2 To Cells(Rows.Count, "a").End(3).Row
   Name yol & Application.PathSeparator & Range("A" & i) As yol & Application.PathSeparator & Range("B" & i)
Next


Hocam bir nüans farkı var. A sütunundaki tüm dosya adları unique olduğunda problemsiz çalışıyor. Fakat A sütununda mükerrer dosya adı olursa bu dosyayı kopyalamıyor. İlk karşılaştığı dosya adını değiştirdikten sonra tekrar aynı dosya adı karşısına gelince klasörde bu isimli dosyayı bulamadığı için hata veriyor. Benim ihtiyacım, A sütunundaki dosya adı unique ise değiştirsin, mükerrer ise kaç tane varsa kopyalasın ve karşılıklarına B sütunundakileri yazsın. :)

Mümkünse...
Kullanıcı avatarı
maakbulut
Yeni Başlamış
 
Adı Soyadı:M.Akif Akbulut
Kayıt: 29 Ekm 2010 13:45
İleti: 11
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Istanbul/Sancaktepe

Cevap: Klasördeki dosya adlarını toplu değiştirme

İleti#4)  Bülent » 28 Kas 2019 07:26

Akif Bey,
Aynı isimdeki dosyaları aynı klasöre nasıl koyabildiniz?
Kullanıcı avatarı
Bülent
Yönetim Kurulu
 
Adı Soyadı:Bülent ÖZTÜRK
Kayıt: 15 Haz 2008 00:08
Meslek: Bilgi Sistemleri
Yaş: 43
İleti: 3657
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İst/Çekmeköy

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Klasördeki dosya adlarını toplu değiştirme

İleti#5)  d_artagnan » 28 Kas 2019 13:19

Ektedir.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
d_artagnan
Yeni Başlamış
 
Kayıt: 30 Nis 2019 08:13
Meslek: uzman
Yaş: 34
İleti: 56
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ankara

Cevap: Cevap: Klasördeki dosya adlarını toplu değiştirme

İleti#6)  maakbulut » 01 Arl 2019 11:19

Bülent yazdı:Akif Bey,
Aynı isimdeki dosyaları aynı klasöre nasıl koyabildiniz?


Bülent Bey, aynı klasörde aynı isimde dosya yer alamadığı için kopya oluşturularak sağdaki sütundaki isimlerin verilmesi gerekiyor.

Teşekkürler,
Kullanıcı avatarı
maakbulut
Yeni Başlamış
 
Adı Soyadı:M.Akif Akbulut
Kayıt: 29 Ekm 2010 13:45
İleti: 11
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Istanbul/Sancaktepe

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Cevap: Klasördeki dosya adlarını toplu değiştirme

İleti#7)  maakbulut » 01 Arl 2019 11:23

d_artagnan yazdı:Ektedir.


Hocam eline sağlık. Çok pratik olmuş. Fakat sol sütunda aynı isim birden fazla geçtiğinde olmuyor. Sol sütunda aynı isimde birden fazla isim yer aldığında bu ismili dosyanın kopyalarını oluşturarak sağ sütundaki isimleri verdirtebilir miyiz?

Teşekkürler,
Kullanıcı avatarı
maakbulut
Yeni Başlamış
 
Adı Soyadı:M.Akif Akbulut
Kayıt: 29 Ekm 2010 13:45
İleti: 11
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Istanbul/Sancaktepe


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Google [Bot], Yandex[Bot] ve 0 misafir

Bumerang - Yazarkafe