Access SQL   ›   ACCESS SORULARI VE ÖRNEK UYGULAMALARI   ›   ACCESS SORULARI   ›   [VBA] Birden çok dosyayı birbirinden farklı klasörlere kopyalama

[VBA] Birden çok dosyayı birbirinden farklı klasörlere kopyalama
spawnss
Aktif Üye 40-100

*
Kayıt Tarihi: 15.01.2011
Toplam 10 konu açtı.
Toplam 48 yorum yaptı.
Toplam 0 puanı bulunmakta.
Beğeniler: 0 / 0
#1
02-02-2012, 14:42
Merhaba,

Elimde 15.000'e yakında dosya var ve bunların farklı farklı klasörlere kopyalanması gerekiyor. Access'deki tablomda dosya isimleri, kaynak klasör ve hedef klasör bilgidi mevcut. Aşağıdaki kodu kullanarak kopyalamaya çalıştığımda bütün dosyaları sadece tablodaki birinci hedef klasörün içine kopyalıyor. Nerede hata yapıyorum?

Not: Hedef klasörler oluşturulmuş durumda.

Visual Basic
  1. Set rst = CurrentDb.OpenRecordset("tbl_FileList")
  2.  
  3.    If rst.RecordCount = 0 Then
  4.        MsgBox "No File Found"
  5.    Else
  6.        strSourcePath = rst(2)
  7.        strTargetPath = rst(5) & "\"
  8.        With rst
  9.            .MoveFirst
  10.            Do While Not .EOF
  11.                strfilename = ![RFName]
  12.                strtrgtfilename = ![FName]
  13.                FileCopy strSourcePath & strfilename, strTargetPath & strtrgtfilename
  14.            .MoveNext
  15.            Loop
  16.        End With
  17.        rst.Close
  18.        Set rst = Nothing
  19. End If





  Bul
  Alıntı
Bu mesajı beğenenler:
Taruz
Forum Yöneticisi

*
Kayıt Tarihi: 04.03.2008
Toplam 371 konu açtı.
Toplam 7.540 yorum yaptı.
Toplam 236 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010, Office 2019,
Beğeniler: 55 / 56
#2
02-02-2012, 14:58
Merhaba..

İki alandaki veriyi döngü dışında tutmuşsunuz.. Dolayısıyla her döngü hareketinde bu değerler ilk kayıttakileri içerdiğinden sabit kalıyor..

Prosedürünüzü bu şekilde değiştiriniz..:

Visual Basic
  1. Set rst = CurrentDb.OpenRecordset("tbl_FileList")
  2.  
  3.    If rst.RecordCount = 0 Then
  4.        MsgBox "No File Found"
  5.    Else
  6.  
  7.        With rst
  8.           .MoveFirst
  9.            Do While Not .EOF
  10.                strSourcePath = rst(2) 'bu
  11.                strTargetPath = rst(5) & "\" 've bu
  12.                strfilename = ![RFName]
  13.                strtrgtfilename = ![FName]
  14.                FileCopy strSourcePath & strfilename, strTargetPath & strtrgtfilename
  15.            .MoveNext
  16.            Loop
  17.        End With
  18.        rst.Close
  19.        Set rst = Nothing
  20. End If


Bulunamayan yerleri bulmak için önce kaybolmak gerekir.
Kaptan Hector Barbossa


SORU SORMA KILAVUZU
Giriş | Sormadan Önce | İlgili Forumu dikkatlice seçin | Anlamlı ve duruma uygun konu başlıkları kullanın | Anlamsız soru cümleleri kurmayın | Açık, dilbilgisi kurallarına uygun ve sözdizimlerine dikkate ederek yazın | Sorunuz sizin için çok acil olsa bile, çok acil diye yazmayın | Sorununuz hakkında tam ve aydınlatıcı iletiler yazın | Amacınızı belirtin | Problemin belirtilerini tanımlayın, kendi tahminlerinizi değil | Sorunuz hakkında açık olun | Nezaket asla yaralamaz ve bazen oldukça yararlıdır | Boyut her şey değildir! | Kabalıkla ilgilenmek | Cevabı E-Posta ile istemeyin | İnsanlardan özel mesajla cevap vermelerini istemeyin | Eğer cevabı anlamadıysanız | Şayet bir cevap alamazsanız | Sorununuz çözüldükten sonra küçük bir not ile bildirin | Sorulmaması gereken türde sorular | İyi ve kötü sorular

Sorulara nasıl doğru düzgün cevap verilir



  Website   Bul
  Alıntı
Bu mesajı beğenenler:
spawnss
Aktif Üye 40-100

*
Kayıt Tarihi: 15.01.2011
Toplam 10 konu açtı.
Toplam 48 yorum yaptı.
Toplam 0 puanı bulunmakta.
Beğeniler: 0 / 0
#3
05-02-2012, 06:54
Çok teşekkürler.



  Bul
  Alıntı
Bu mesajı beğenenler:
spawnss
Aktif Üye 40-100

*
Kayıt Tarihi: 15.01.2011
Toplam 10 konu açtı.
Toplam 48 yorum yaptı.
Toplam 0 puanı bulunmakta.
Beğeniler: 0 / 0
#4
07-02-2012, 14:40
Selamlar,

Yukarıdakı kodumu çalıştırdığımda dosyalar kopyalanıyor ancak kopyalama işlemi geri planda oluyor ve kullanıcı, işlemin ne kadar zaman alacağını göremiyor.

Acaba bu koda nasıl progressbar ekleyebilirim?

Not: Shell.Object kullanarak copyhere fonksiyonunu kullandığımda Windows'un kendi dosya kopyalama progressbar'ı çıkıyor ancak tablodaki mevcut farklı kaynaklarda olan birden çok dosya ile yapmaya uygun değil.



  Bul
  Alıntı
Bu mesajı beğenenler:
Zeki Gürsoy
Kıdemli Üye 400-1000

*
Kayıt Tarihi: 12.03.2008
Toplam 80 konu açtı.
Toplam 635 yorum yaptı.
Toplam 75 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2016 TR,
Beğeniler: 1 / 4
#5
07-02-2012, 15:44
- Kopyalamaya başlamadan önce recordsetteki kaynak dosyaların boyutu öğrenilip toplanır,
- Her kopyalanan byte, toplanan bu boyuta oranlanarak gösterilebilir.

Görsel durum için aşağıdaki başlıktaki gibi yol izlemeniz gerekir.
Bir kez çalışacaksa uğraşmaya değer mi? değmez mi? ayrı bir konu...

Dosya kopyalama (Yapay Progressbar)



  Website   Bul
  Alıntı
Bu mesajı beğenenler:
burhanb
Aktif Üye 40-100

*
Kayıt Tarihi: 27.03.2012
Toplam 20 konu açtı.
Toplam 58 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2016,
Beğeniler: 1 / 0
#6
27-04-2017, 10:13
merhabalar.

benimde network devamlı güncellenmesi gereken bazı dosyalarım var.
yukarıdaki örneği inceledim fakat anlamadım.

networkte "j\kaynak" klasörü içinde bulunan bulunan değişken miktardaki *.doc doayalarını networkte faklı bir sürücüde bulunan "x:\hedef" klasörüne atmak istiyorum.

işem bittikten sonra dakaynak klasöründeki dosyalar silinecek.
fakat hedef klasöre kullanıcı adı ve şifre ile giriş yapılabiliyor.

böyle bir konuyla karşılaşan bir arkadaşımız varsa yardım edebilirse çok sevininrim

teşekkürler.




  Bul
  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [SORGU] Birden Fazla Sorguyu Tek Ekranda Görebilme MERAK 1 266 03-11-2025, 08:27
Son Mesaj: dsezgin
  [VBA] Birden çok Seçenek Seçili Alandaki Verileri Kopyalama evidi 9 636 26-02-2025, 17:36
Son Mesaj: evidi
  Sorguda Birden Fazla Ifadeli Sütunu Toplatma halil.tefci 8 742 03-12-2024, 15:01
Son Mesaj: dsezgin
access-sql-4 Dili Farklı Olan Barkod Okuyucudan Okutunca Farklı Sonuçlar Alıyorum gundogdu42 1 334 27-09-2024, 07:58
Son Mesaj: dsezgin
  [TABLO] Ada Ve Parsel Bilgisini Farklı Bir Kolonda Birleştirme mmisildar 4 458 04-09-2024, 13:37
Son Mesaj: mmisildar
  [SORGU] çarpraz Sorguda Sütun Değeri Olarak Birden çok Alan Seçebilir Miyiz? abkbek 2 410 13-08-2024, 21:18
Son Mesaj: abkbek
  [SORGU] Farklı Sütunlardaki Aynı Verileri Saymak TheREDROSE 11 797 31-07-2024, 16:15
Son Mesaj: TheREDROSE
access-sql-18 [RAPOR] Kayıt Içerisindeki Miktar Alanındaki Sayı Kadar Rapora Ilgili Kaydı Rapora Kopyalama gurolk 12 936 29-07-2024, 12:01
Son Mesaj: dsezgin

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi