İmage nesnesine çağrılan resmin farklı isimle kaydedilmesi

[Kenantu]

Merhaba Dostlarım

Spor salonuna yeni kayıt yaptıran öğrencilerin kayıt işlemleri için hazırladığım programımda kayıt işlemini bir UserForm aracılığı ile yapıyorum. Kayıt esnasında öğrencinin resmini çekip bilgisayara atıyorum attığım klasör C:\KAYIT\ klasörüdür. Daha sonra öğrencinin tüm bilgilerini UserForma giriyorum ve en sonda bu öğrencinin resmini bu klasörden seçmek için bir CommanButton a basıyorum ama resmi şeçmek için gerekli klasörü bir türlü açamıyorum ilk sorunum bu , ikinci sorunum ise resmi seçtikten sonra bu öğrencinin kayıt işlemlerini bitirmek üzere kaydet düğmesine basıyorum gerekli tüm kayıt işlemlerini yaptırıyorum ama sonda seçmiş olduğum resmin C:\SALON\RESİMLER\ klasörünün içine öğrencinin ismini yazdığım TextBox ın değerine göre kaydetmesini istiyorum hepinize şimdiden teşekkür eder çalışmalarınızda başarılar dilerim.

Kenan TUNÇAY

 

[Kenantu]

Sevgili dostlarım ilk sorunumu aşağıdaki kotlar ile hallettim ama ikinci sorun devam ediyor

Private Sub CommandButton1_Click()
ChDir ("C:\SENJUTSU DOJO\YENİ RESİM")
Dim baslik As String
Dim dosyaFilter, resdosya
dosyaFilter = "Gif Dosyaları (*.gif),*.gif,Jpeg Dosyaları (*.jpg)," _
& "*.jpg,Bit İşlem Resmi (*.bmp),*.bmp,Tüm Dosyalar (*.*),*.*"
baslik = "Lütfen Bir Resim Dosyası Seçiniz"
resdosya = Application.GetOpenFilename(dosyaFilter, 2, baslik)
If resdosya = Empty Then Exit Sub
Image1.Picture = LoadPicture(resdosya)
End Sub

 

[Kenantu]

Arkadaşlar bu konu ile ilgili bilgisi olan yokmu gerçekten çok uğraştığım bir program için lazım eğer bu problemimide aşarsaö mutlaka siteden de sizlerle paylaşacağım. En azından bir akıl verseniz gerisini hallederim.