herkese kolay gelsin arkadaşlar

eklediğim örnekte taşınacak olan dosyayı seçiyorum
taşıyacağım klasörüde belirliyorum

evrakı taşı butonuna tıklayınca evrakı belirlediğim klasöre evrakın adını değiştirerek (evrak adını: 1 yazarak taşımasını istiyorum)

iyi çalışmalar arkadaşlar

Hangi evrak olursa olsun adi=1 mi olacak aynı klasöre başka evraklar da bu şekilde taşınırsa sorun olmaz mı?

Name eskiKonumvead As yenikonum & 1 & dosyaUzantisi

şeklinde dener misiniz?

Name Me.tasinacak_evrak As Me.klasorsec & "\" & 1 & ".png"
bu şekilde yazdım olmadı ama,

(taşınacak tüm evrakın adı aslında 1 olmayacak, bu kısmı sonra düzenleyceğim,)

Hata falan mi verdi?
Normal ad değiştirmeden taşıyabiliyor musunuz?
Eğer biliyorsanız kodu yazar mısınız?
Aşağıdaki kodu dener mısınız?

Dim fso As Object 

Dim kaynakDosya As String 

Dim HedefDosya As String 

Set fso = CreateObject("Scripting.FileSystemObject") 

kaynakDosya = KaynakDosyaAdresiveAdi 

HedefDosya = hedefKlasor & "\"  & yeniad & ".png"

fso.MoveFile kaynakDosya, HedefDosya 

Set fso = Nothing

sn hocam, 
işlem tamam,
teşekkürler

Yalniz dikkat ederseniz kontrol kodları ve eski dosyayı silme kodları yok
"Tasimak istediginize emin misiniz?" diye onay isteme de yok.