Dosya isimlerini değiştirme

[yasar8787]

sorunum şu ;

saygı değer hocalarım buradaki kodlar çok güzel ama bu kodlarda ufak bir değişiklik yapma şansımız yok mudur? A ile B arasında değişiklik oluyor bunu A(dosya isimleri), B(değişecek isimler), C(değişecek isimler), D(değişecek isimler) sutunları arasında olsa benim için daha faydalı olacaktır. YARDIMLARINIZI BEKLİYORUM.
KOD;

Sub isim_degistir()
Dim i As Long, say As Long
If MsgBox("D:\Deneme klasörü içersindeki dosyaların isimleirini değiştirmek istiyormusunuz..!!??", _
vbYesNo + vbQuestion, Application.UserName) = vnno Then Exit Sub
For i = 1 To Cells(65536, "A").End(xlUp).Row
If Dir("D:\Deneme\" & Cells(i, "A").Value) <> "" Then
Name ("D:\Deneme\" & Cells(i, "A").Value) As ("D:\Deneme\" & Cells(i, "B").Value)
say = say + 1
End If
Next i
MsgBox say & " dosya isimi değiştirildi..", vbOKOnly + vbInformation, Application.UserName

 

[yasar8787]

yardım eden olmadığı için öyle yazdım ama yine yardım eden yok

 

[yasar8787]

tam anlaşılmadı herhalde sorum biraz daha açık olarak sorayım bende 3 sütundan oluşan bir liste var öğrenci listesi numarası adı ve soy adı yazılı fotoğraf makinesi ile çektiğim resimlerde biliyorsunuzdur ki sadece İMG diye bir numara veriyor fotoğraf makinesi ben bu öğrenci fotoğraflarının dosya isimlerini değiştirmem lazım sağ olsun bir arkadaş bir kod paylaşmış A sütunundaki ismi B sütununla değiştirmek için işe yarıyor ama bendeki listede B sütunu haricinde C ve D sütunlarıda var diğer 2 sütunu da değiştirilen dosya ismine eklemek için verdiğim kodda değişiklik yapabilecek yada yardım edebilecek bir arkadaş arıyorum yana yana lütfen yarımlarınızı eksik etmeyin allaha emanet olunuz...

 

[Ömer]

Merhaba,

Sorunuz anlaşılmıyor.

A sütunundaki dosya isimleri B ile değişsin. Bu tamam.

C ve D sütunu ile ilgili ne işlem yapmak istiyorsunuz.

.

 

[yasar8787]

C ve D sütunlarıda B sütunlarının ardına eklenecek yani şöyle anlatmak gerekirse
A sütunu fotoğraf makinesinin verdiği isimler yazılı olacak B sütunu öğrencinin numarası C ve D adı soy adı fotoğraf makinesinin verdiği isimleri B,C ve D deki bölümler eklenecek yani dosya ismi 19 ayşe özmen gibi olacak

 

[Ömer]

Name ("D:\Deneme\" & Cells(i, "A").Value) As ("D:\Deneme\" & Cells(i, "B").Value)

yukarıdaki satırın yerine aşağıdakini yazın.

Name ("D:\Deneme\" & Cells(i, "A").Value) As ("D:\Deneme\" & Cells(i, "B").Value & "_" & Cells(i, "C").Value & "_" & Cells(i, "D").Value)

.

 

[yasar8787]

sıfır dosya ismi değiştirildi diye bir hata alıyorum ömer abi

 

[yasar8787]

bende ki liste böyle birşey bu İMG ile yazılan isimleri B C VE D sütunlarındaki leriyle değiştirecem

 

[Ömer]

bende ki liste böyle birşey bu İMG ile yazılan isimleri B C VE D sütunlarındaki leriyle değiştirecem

Sadece birleştirmeye bakmıştım. Dosya uzantılarını da yazmanız gerekiyor.

Kırmızı işaretli bölümlere ben .xls ( 3 ayrı bölümde var. ) yazdım. Siz dosya uzantınız ne ise onunla değiştirirsiniz.

Sub isim_degistir()
Dim i As Long, say As Long
If MsgBox("D:\Deneme klasörü içersindeki dosyaların isimleirini değiştirmek istiyormusunuz..!!??", _
vbYesNo + vbQuestion, Application.UserName) = vbNo Then Exit Sub
For i = 1 To Cells(65536, "A").End(xlUp).Row
    If Dir("D:\Deneme\" & Cells(i, "A").Value & "[COLOR=red].xls[/COLOR]") <> "" Then
        Name ("D:\Deneme\" & Cells(i, "A").Value & "[COLOR=red].xls[/COLOR]") As ("D:\Deneme\" & Cells(i, "B").Value & "_" & Cells(i, "C").Value & "_" & Cells(i, "D").Value & "[COLOR=red].xls[/COLOR]")
        say = say + 1
    End If
Next i
MsgBox say & " dosya isimi değiştirildi..", vbOKOnly + vbInformation, Application.UserName
End Sub

.

 

[yasar8787]

Sub isim_degistir()
Dim i As Long, say As Long
If MsgBox("D:\Deneme klasörü içersindeki dosyaların isimleirini değiştirmek istiyormusunuz..!!??", _
vbYesNo + vbQuestion, Application.UserName) = vbNo Then Exit Sub
For i = 2 To Cells(65536, "A").End(xlUp).Row
If Dir("D:\Deneme\" & Cells(i, "A").Value & ".jpg") <> "" Then
Name ("D:\Deneme\" & Cells(i, "A").Value & ".jpg") As ("D:\Deneme\" & Cells(i, "B").Value & " " & Cells(i, "C").Value & " " & Cells(i, "D").Value & ".jpg")
say = say + 1
End If
Next i
MsgBox say & " dosya isimi değiştirildi..", vbOKOnly + vbInformation, Application.UserName
End Sub

EVET ABİ BİRAZ KODLARLA UĞRAŞTIM BU KODU GİRİNCE DÜZELDİ YARDIMLARINIZ İÇİN ÇOK TEŞEKKÜR EDERİM HEPİNİZDEN ALLAH RAZI OLSUN...