Arkadaşlar
hazırlamış olduğum programda bilgisayar içinde herhangi bir klasöre daha önce kaydedilmiş, *.jpg formatında olan resimlerden birini seçerek ona otomatik isim vererek istediğim herhangi bir klasöre ?.bmp formatına çevirerek kaydetmek istiyorum.
forumlardan okuduğum kadarıyla save as dialoguyla yapılabiliyor.

bu konuda bilgisi olan yardımcı olabilecek biri varmı acaba

not;filecopy yöntemiyle resmin ismini değiştirebildim ancak uzantısını değiştiremedim.
aşağıdaki kodlarla uzantıları değiştiremedim
uzantılar aynı kalırsa çalışıyor ama bmp yerine jpg yazdığım zaman bozuluyor,kayıt yapıyor ancak *.jpg.bmp şeklinde kaydediyor
Private Sub RESIM_DblClick(Cancel As Integer)



Dim ekocan As String
Dim altan As String
Dim bute As String
Dim help
Dim r

altan = StrReverse(CurrentDb.Name)
bute = Trim(Mid(altan, 13))
help = "help.file" '?
If RESIM.Picture = StrReverse(bute) & "a\resim\" & Form_resimekle.no.Value & ".BMP" Then


ekocan = "C:\Program Files\IrfanView\i_view32.exe " & StrReverse(bute) & "a\resim\" & Form_resimekle.no.Value & ".BMP"
Call Shell(ekocan, 1)
Exit Sub
Else

r = MsgBox("Çalışan Resmi Kayıtlarımızda Bulunmamaktadır" & Chr(13) & "Eklemek İstermisiniz!", 32 + vbYesNo, "Access Bilgilendirme!")


If r = vbYes Then

Dim Kaynak, Hedef
Kaynak = GetOpenFile_CLT("C:\", "Access-Resim Seçiniz...")

Hedef = StrReverse(bute) & "a\resim\" & Form_resimekle.no.Value & ".jpg" 'burada jpg yapmaya izin vermiyor,
If Kaynak = "" Then
Exit Sub
Else
FileCopy Kaynak, Hedef
Me.Requery
End If


End If

End If
End Sub

***yöntemiyle başaramadım****