ExportBitmap with not rewrite file

[FaneDuru]

Is it a way in case of ExportBitmap automation to receive a warning in case of a file with the same name already exists?

I mean for the next piece of code is it a way to stop export in case that a file with the same name already exists in the export folder...

Set Filter = d.ExportBitmap(strFile, cdrJPEG, cdrCurrentPage, _
    cdrRGBColorImage, 1000, 1000, 300, 300)
  With Filter
    .Compression = 80
    .Optimized = True
    .Smoothing = 10
    .SubFormat = 1
    .Progressive = False
    .Finish 'is there a way to stop this part for the same file name in export location folder...
  End With

[shark]

you can use the standard function FileAttr to see whether a file exists:

If CorelScriptTools.FileAttr(strFile) <> 0 Then
    If MsgBox("Rewrite " + strFile + " ?", vbYesNo + vbQuestion, _
            "File exist") = vbNo Then
         ' set new name for strFile
    else
         ' rewrite file
    end if
end if

'your code...
Set Filter = d.ExportBitmap(strFile, cdrJPEG, cdrCurrentPage, _
      cdrRGBColorImage, 1000, 1000, 300, 300)

[FaneDuru]

Thanks!
I found a similar workaround:

Inceput:
'Code using GetFileBox to select the name but seeing the pictures there, returning strFile...

Director = Left(strFile, InStrRev(strFile, "\"))
NumeDublu = Right(strFile, Len(strFile) - InStrRev(strFile, "\"))
  
  Fisier = Dir$(Director)
  Do While Len(Fisier) <> 0
    Fisier = Dir$: If Fisier = NumeDublu Then GoTo Nasol
  Loop
  Filter.Finish 

  'Some other code here...

   GoTo Sfarsit
Nasol:
  Dim Rasp As VbMsgBoxResult
   Rasp = MsgBox("The file named """ & NumeDublu & """ already exists in the export location." & vbCrLf & _
                 "  Would you like to rewrite it?" & vbCrLf & vbCrLf & _
                 "  If yes, please choose ""Yes""..." & vbCrLf & _
                 "  For renaming choose ""Cancel"".", vbYesNoCancel, "Existing name")
        If Rasp = vbYes Then
            Filter.Finish

            'some code here...

            GoTo Sfarsit
        End If
        If Rasp = vbCancel Then GoTo Inceput
Sfarsit: