çok uğraşmamama rağmen bir türlü yapamadığım birden fazla dosya yükleme olayı.
Ekli örnekte resim yükleme ile ilgili hazırladığım formda birden fazla resmi aynı anda yüklemek istiyorum. 
Eğer mümkün ise isimleri değiştirerek taşımak daha güzel olacaktır.
Mümkün olmuyor ise orjinal isimleri ile taşınmasında sakınca yok.
masaüstüne rar dan çıkartırsanız sorunsuz çalışacaktır.

yapılan değişiklikler
1 - GetDesktop fonksiyonu eklendi böylece kullanıcıdan bağımsız olarak masaüstü konumunu buluyor




2 - "C:\Users\Serdem\Desktop..."  içeren tüm kodlar GetDesktop & " ile değiştirildi
3 - çoklu dosya seçebilmek için "Fotoğraf Yükle - komut4" kodları değişti
ama şöyle bir sorun var tasarımınız - Arsivekaydet ve arsivleme prosedürleri- tek dosya taşımaya yönelik olduğu için her dosya için tek tek
değiştirilsin mi? silinsin mi? vs vs sorularını defalarca soruyor
bu prosedürler başka nerelerde kullanılıyor yada kullanılacak bilemediğim için değiştirmedim
4 - çoklu dosya seçebilmek için kullanılan "FileDialog" kodunun çalışa bilmesi için referanslara
Microsoft Office xx.x Object Library <-- eklendi
dilerim işinize yarar 
iyi çalışmalar
  ÖrnekResim_hy.rar (Boyut: 60,29 KB / İndirilme: 108)

(02-10-2019, 13:13)halily demiş ki: yapılan değişiklikler
1 - GetDesktop fonksiyonu eklendi böylece kullanıcıdan bağımsız olarak masaüstü konumunu buluyor

Visual Basic

Function GetDesktop() As String
    Dim oWSHShell As Object
    Set oWSHShell = CreateObject("WScript.Shell")
    GetDesktop = oWSHShell.SpecialFolders("Desktop")
    Set oWSHShell = Nothing
End Function

2 - "C:\Users\Serdem\Desktop..."  içeren tüm kodlar GetDesktop & " ile değiştirildi
3 - çoklu dosya seçebilmek için "Fotoğraf Yükle - komut4" kodları değişti
ama şöyle bir sorun var tasarımınız - Arsivekaydet ve arsivleme prosedürleri- tek dosya taşımaya yönelik olduğu için her dosya için tek tek
değiştirilsin mi? silinsin mi? vs vs sorularını defalarca soruyor
bu prosedürler başka nerelerde kullanılıyor yada kullanılacak bilemediğim için değiştirmedim
4 - çoklu dosya seçebilmek için kullanılan "FileDialog" kodunun çalışa bilmesi için referanslara
Microsoft Office xx.x Object Library <-- eklendi
dilerim işinize yarar 
iyi çalışmalar

çalışıyor yalnız şöyle bir sorun var.
Arşivlenecek ve silinsinmi sorularını kaldırdım. onları sormadan geçiyor.

isimleri verirken veritabanındaki kayıtları sayıp sahte bir sıra üretip son sıra noyu isim olarak kullandırmıştım tek tek yüklemede. 
bu haliyle yüklemede her fotoyu son no kaç ise aynı isimi veriyor ve arşivinizde aynı dosyadan var değiştirilsin mi? sorusunu soruyur. 
yani yenileme yapmadığı için aynı ismi veriyor. Sahtesıra değişirse yeni isim veriyor. 
Evet dersem dosyayı değiştiriyor. hayır dersem taşıma işlemini durduruyor.

siz "Fotoğraf Yükle - komut4" düğmesine basıldığında neler yapılması gerektiğini ayrıntılı olarak basamak basamak yazın durumu inceleyip çözmeye çalışırız. Ama dediğim gibi her adımı muhakkak belirtin
mesela "Fotoğraf Yükle " düğmesine basınca
1 - istediğim klasörü seçebileceğim bir pencere açsın
2 - birden çok dosyayı seçeyim
3 - seçtiğim dosyayı şu klasöre  şu adla taşısın taşıdığı yeri adı şuraya kaydetsin
4 - şunları sorsun
vs vs
sorununuzu ne kadar iyi tanımlarsanız çözüm o kadar iyi olur ve sürekli yeni sorunlarla boğuşmak zorunda kalmazsınız
iyi çalışmalar

(02-10-2019, 15:40)halily demiş ki: siz "Fotoğraf Yükle - komut4" düğmesine basıldığında neler yapılması gerektiğini ayrıntılı olarak basamak basamak yazın durumu inceleyip çözmeye çalışırız. Ama dediğim gibi her adımı muhakkak belirtin
mesela "Fotoğraf Yükle " düğmesine basınca
1 - istediğim klasörü seçebileceğim bir pencere açsın
2 - birden çok dosyayı seçeyim
3 - seçtiğim dosyayı şu klasöre  şu adla taşısın taşıdığı yeri adı şuraya kaydetsin
4 - şunları sorsun
vs vs
sorununuzu ne kadar iyi tanımlarsanız çözüm o kadar iyi olur ve sürekli yeni sorunlarla boğuşmak zorunda kalmazsınız
iyi çalışmalar

1-fotoğraf yükle
2-seçilebilir resim dosyalarının tümünü seçme
3-d sürücüsünde dosya deposu klasöründe [yılı] metin kutusuna göre klasör oluşturması, eğer var ise onu kullanması,
4-yılı klasörü içinde [klasörYolu] metin kutusuna göre klasör oluşturması eğer var ise onu kullanması,
5-yılı\klasöryolu\ içinde İskanResim isminde klasör oluşturması,
6-tamam denilince tüm resim dosyalarını benim belirlediğim bir klasörün içine ("D:\dosyadeposu\" & [Yılı] & "\" & [KlasörYolu] & "\" & "İskanResim" & "\") belirlediğim bir isim (& İmarAdı & Me.Uzantı) taşıması, (Örneğin 2017-18 iskan resim-1, 2017-18 iskan resim-2, 2017-18 iskan resim-3 ............ gibi) (2017-18=[İmarAdı]) sonrasında 
7- taşıdığı tüm dosyaları tabloya sıra ile tabloda DAdı sütununa dosya adı ve uzantısını, Dyolu sütununa yeni dosya yolunu yazmasını,
8-asıl dosyaları tek bir kez "asıl dosyalar silinsin mi?" diye sorup evet denilmesi halinde tüm dosyaları silmesini
istiyorum aslında

8-asıl dosyaları tek bir kez "asıl dosyalar silinsin mi?" diye sorup evet denilmesi halinde tüm dosyaları silmesini ya hayır denilirse ne olacak eklenmeyecek mi yoksa yeniden mi adlandırılacak?