+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Evrakı Belirlenen Klasöre Adını Değiştirerek Taşı (/konu-evraki-belirlenen-klasore-adini-degistirerek-tasi.html)
Sayfalar:
1
2
Evrakı Belirlenen Klasöre Adını Değiştirerek Taşı - karacahil - 28/11/2019
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
Cvp: Evrakı Belirlenen Klasöre Adını Değiştirerek Taşı - berduş - 28/11/2019
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 & dosyaUzantisiCvp: Evrakı Belirlenen Klasöre Adını Değiştirerek Taşı - karacahil - 29/11/2019
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,)
Cvp: Evrakı Belirlenen Klasöre Adını Değiştirerek Taşı - berduş - 29/11/2019
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 = NothingCvp: Evrakı Belirlenen Klasöre Adını Değiştirerek Taşı - karacahil - 29/11/2019
sn hocam,
işlem tamam,
teşekkürler
Cvp: Evrakı Belirlenen Klasöre Adını Değiştirerek Taşı - berduş - 29/11/2019
Yalniz dikkat ederseniz kontrol kodları ve eski dosyayı silme kodları yok
"Tasimak istediginize emin misiniz?" diye onay isteme de yok.