Skip to main content

AccessTr.neT


Evrakı Belirlenen Klasöre Adını Değiştirerek Taşı

Evrakı Belirlenen Klasöre Adını Değiştirerek Taşı

Çözüldü #1
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


[Resim: do.php?img=9334]
.rar Evraktasi.rar (Dosya Boyutu: 28,24 KB | İndirme Sayısı: 3)
Son Düzenleme: 28/11/2019, 23:49, Düzenleyen: karacahil.
Cevapla
#2
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?
Cevapla
#3
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,)
Son Düzenleme: 29/11/2019, 00:08, Düzenleyen: karacahil.
Cevapla
#4
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
Cevapla
#5
sn hocam,  10806
işlem tamam,
teşekkürler
Cevapla
#6
Yalniz dikkat ederseniz kontrol kodları ve eski dosyayı silme kodları yok
"Tasimak istediginize emin misiniz?" diye onay isteme de yok.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da