Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

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

karacahil
karacahil
Access Cevaplanmış Soruları
7
535

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

Çözüldü #1
karacahil
Üye
karacahil
Bul
Üye
Adı Soyadı: **....
Yaşı: 41
Konum: Kırgızistan
Ofis Versiyonu: Ofis 2003
Son Oturumu: 05/03/2020,20:17
Yorumları: 33
Konuları: 9
Kayıt Tarihi: 24/10/2019
Rep Puanı: 0
Mesleğiniz: işci
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
berduş
Berduş
berduş
Bul
Uzman
Adı Soyadı: ha....
Konum: -
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: Bugün,00:01
Yorumları: 5.872
Konuları: 97
Kayıt Tarihi: 30/07/2014
Rep Puanı: 731
Hangi evrak olursa olsun adi=1 mi olacak aynı klasöre başka evraklar da bu şekilde taşınırsa sorun olmaz mı?
Visual Basic Code 
Name eskiKonumvead As yenikonum & 1 & dosyaUzantisi
şeklinde dener misiniz?
Cevapla
#3
karacahil
Üye
karacahil
Bul
Üye
Adı Soyadı: **....
Yaşı: 41
Konum: Kırgızistan
Ofis Versiyonu: Ofis 2003
Son Oturumu: 05/03/2020,20:17
Yorumları: 33
Konuları: 9
Kayıt Tarihi: 24/10/2019
Rep Puanı: 0
Mesleğiniz: işci
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
berduş
Berduş
berduş
Bul
Uzman
Adı Soyadı: ha....
Konum: -
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: Bugün,00:01
Yorumları: 5.872
Konuları: 97
Kayıt Tarihi: 30/07/2014
Rep Puanı: 731
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?
Visual Basic Code 
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
karacahil
Üye
karacahil
Bul
Üye
Adı Soyadı: **....
Yaşı: 41
Konum: Kırgızistan
Ofis Versiyonu: Ofis 2003
Son Oturumu: 05/03/2020,20:17
Yorumları: 33
Konuları: 9
Kayıt Tarihi: 24/10/2019
Rep Puanı: 0
Mesleğiniz: işci
sn hocam,  10806
işlem tamam,
teşekkürler
Cevapla
#6
berduş
Berduş
berduş
Bul
Uzman
Adı Soyadı: ha....
Konum: -
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: Bugün,00:01
Yorumları: 5.872
Konuları: 97
Kayıt Tarihi: 30/07/2014
Rep Puanı: 731
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
Task