File save with date

[grzjanik]

Hallo members.

How do I add the date to file name?

I'm using CorelDraw v12.

Sub ExportSelectionToDesktop()

    Dim OrigSelection As ShapeRange, expflt As ExportFilter

    Set OrigSelection = ActiveSelectionRange

        Set expflt = ActiveDocument.ExportBitmap( _
            "c:\Users\xxx\Desktop\" & ActiveDocument.Name & "HOW TO INSERT THE CURRENT DATE" & ".jpg", _
            cdrJPEG, cdrSelection, cdrRGBColorImage, , , 300, 300, cdrSupersampling, , , UseColorProfile:=True)

    With expflt
        .Progressive = True
        .Optimized = True
        .SubFormat = 0
        .Compression = 0
        .Smoothing = 0
        .Finish
    End With

End Sub

Thanks in advance.

Regards.

~GrzJanik

[runflacruiser]

Hi.
Version 12 should have it. It's a VBA function.

Private Sub ExportSelectionToDesktop()


    MsgBox VBA.CStr(VBA.Replace(VBA.Date, "/", "-"))
    
    Dim OrigSelection As ShapeRange, expflt As ExportFilter

    Set OrigSelection = ActiveSelectionRange

        Set expflt = ActiveDocument.ExportBitmap( _
            "c:\Users\xxx\Desktop\" & ActiveDocument.Name & VBA.CStr(VBA.Replace(VBA.Date, "/", "-")) & ".jpg", _
            cdrJPEG, cdrSelection, cdrRGBColorImage, , , 300, 300, cdrSupersampling, , , UseColorProfile:=True)

    With expflt
        .Progressive = True
        .Optimized = True
        .SubFormat = 0
        .Compression = 0
        .Smoothing = 0
        .Finish
    End With

End Sub

~John

[grzjanik]

Thanks John.

It works very well in Corel v.12.

How to write for the date format was day_month_year?
(TestFile_11_07_2012.jpg)

Thanks & regards.
~GrzJanik

[runflacruiser]

Hi.
Cool. Give this one a shot:

Private Sub ExportSelectionToDesktop()

    Dim strD$
    strD = CStr(Format(VBA.Date, "dd-mm-yyyy"))
    MsgBox strD 'for testing
    Dim OrigSelection As ShapeRange, expflt As ExportFilter

    Set OrigSelection = ActiveSelectionRange

        Set expflt = ActiveDocument.ExportBitmap( _
            "c:\Users\xxx\Desktop\" & ActiveDocument.Name & strD & ".jpg", _
            cdrJPEG, cdrSelection, cdrRGBColorImage, , , 300, 300, cdrSupersampling, , , UseColorProfile:=True)

    With expflt
        .Progressive = True
        .Optimized = True
        .SubFormat = 0
        .Compression = 0
        .Smoothing = 0
        .Finish
    End With

End Sub

~John

[grzjanik]

Thanks John.

Perfect work.
This is exactly what I need.

Thank you. Regards.

~GrzJanik