macro to export cgm to users pictures folder

If I understand, you want the following line to vary depending on who is running the macro. Correct?

     final="C:\users\username\pictures\" + stripext(activedoc.name) + ".cgm"

If I'm understanding, I do not believe there is a way to capture the user name. There is a 'system' type command.

Try this as an alternative. Hopefully the comments all make sense.

Macro myExports

    #Define variables.

    Define JPGLocal as string

    Define CGMLocal as string

    Define fileName as string

    Define CMDLocal as string

    Define tempLocal as string

    Define tempCGM as string

    #Define cmd.exe.

    CMDLocal = "C:\WINDOWS\system32\cmd.exe"

    #Define local temp Local.

    tempLocal = "C:\temp\"

    #Turn off possible error/warning prompts during export.

    app.interaction=false

    #Save file to current Local.

    Save

    #Define variable for file name

    fileName = stripext(activedoc.name)

    #Set export Local for jpg.

    JPGLocal="X:\Photos\" + fileName + ".jpg"

    #Export jpg.

        Export JPGLocal "JPEG"

        #Set temp CGM export path.

        tempCGM = tempLocal + filename + ".cgm"

        #Set final cgm Local using cmd format (%variables%).

    CGMLocal = "%userprofile%\pictures\" + stripext(activedoc.name) + ".cgm"

    #Export CGM to temporary location.

        Export tempCGM "CGM"

        #Calls a cmd window and runs a move command to move the file to the final location.

        Launch CMDLocal "/c move /Y " + tempCGM + " " + CGMLocal

        #Turns prompts on.

        app.interaction=true

End Macro