[VB5] Gestire il salvataggio di immagini JPEG con controllo di sovrascrittura

[vr-claudio]

Ciao ragazzi
vi chiedo aiuto in merito ad un problema che sicuramente a voi sembrerà banale...
Tramite un CommonDialog1, una Text1 e una Image1 io salvo delle Immagini.jpg in una cartella, per fare tutto questo utilizzo il suddetto Code:

Private Sub cmdSaveImg_Click()
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
CommonDialog1.Flags = cdlOFNHideReadOnly
CommonDialog1.Filter = "Solo File JPEG (*.jpg*)|*.jpg*"
CommonDialog1.FilterIndex = 2
CommonDialog1.ShowOpen
Image1.Picture = LoadPicture(CommonDialog1.filename)
Text1.Text = CommonDialog1.FileTitle
SavePicture Cielo, ("C:\...\DB_IMG\" & Text1.Text & ".jpg")
MsgBox "La nuova immagine è stata salvata con successo!", vbInformation, "Info Img"
Text1.Text = ""
Exit Sub
ErrHandler:
Exit Sub
End Sub

E fin qui tutto bene, quello che io vorrei fare è poter decidere le eventuali Immagini con
lo stesso nome. Cioè, se dovessi salvare un'immagine.jpg che ha lo stesso nome di una Img che si trova nella cartella DB_Img, tramite un MsgBox avvertirmi di cosa fare!
Spero di essere stato chiaro!

Grazie mille, anticipatamente!

vrclaudio

[LMondi]

Ciao vr-claudio,
la cosa è abbastanza semplice, basta inserire il flag cdlOFNOverwritePrompt che:
"La finestra di dialogo Salva con nome visualizza una finestra di messaggio se il file selezionato esiste già. L'utente deve specificare se sovrascrivere o meno il file."
Quindi:
CommonDialog1.Flags = cdlOFNHideReadOnly Or cdlOFNOverwritePrompt

PS: naturalmente il comando della CD è CommonDialog1.ShowSave

[vr-claudio]

Ciao LMondi
ti ringrazio per la tua gentilissima risposta, ma dato che non sono espertissimo
potresti farmi un esempio con i codici in ordine, perchè purtroppo ho provato
e funziona ma la finestra di dialogo mi si apre due volte prima di dirmi che il file esiste già.

Scusami tantissimo e grazie mille per la pazienza
vrclaudio

[LMondi]

Ciao Claudio,
ho predisposto il sotto riportato codice che salva l'immagine con la CD; è un pò ridondante, ma ho preferito inserire alcune possibilità che potrebbero servirti in altre occasioni, e ciò a scapito della sintesi.

Option Explicit
Dim blErrAnn As Boolean
'----------------------------------------
Private Sub Command1_Click()
        
        'Dim FileNum As Integer
        Dim FileName As String
        Dim FileTitle As String

    With Form1.CommonDialog1
            ' Imposta CancelError su True:
            .CancelError = True
        On Error GoTo ErrHandler
            .DialogTitle = "Selezionare la destinazione del file"
            .Flags = cdlOFNNoChangeDir Or cdlOFNHideReadOnly _
                Or cdlOFNPathMustExist Or cdlOFNOverwritePrompt _
                Or cdlOFNNoReadOnlyReturn
            .Filter = "File di programma (*.jpg)|*.jpg|Altro (*.bmp)|"
            .FilterIndex = 1
            .DefaultExt = "jpg"
            .InitDir = App.Path & "\" & "Immagini\"
            .ShowSave
            .FileName = .FileName
            FileName = Form1.CommonDialog1.FileName
            FileTitle = Form1.CommonDialog1.FileTitle
            
ErrHandler:
        ' é stato scelto Annulla:
            If Err.Number = 32755 Then
                ' Variabile Boolean eventualmente da utilizzare
                ' in altra parte del programma:
                blErrAnn = True
                Exit Sub
            End If
          'in qusto caso non serve:
            'FileNum = FreeFile()
            If Len(.FileName) = 0 Then
                Exit Sub
            End If
        End With
' Salva l'immagine inserita nel controllo Picture1:
        SavePicture Form1.Picture1, (FileName)
        MsgBox "L'immagine" & Space(1) & FileTitle & Space(1) & "è stata salvata con successo!", vbInformation, "Info Img"
End Sub

[vr-claudio]

INFINITAMENTE GRAZIE...

L'HO PROVATO E FUNZIONA ALLA GRANDE!!!!!

GRAZIE ANCORA

VRCLAUDIO