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****
vetaltan 16-11-2009 tarihinden beri AccessTr.neT üyesidir.