Has anyone come up with a macro or method to save dats other then selecting them in each directory and saving?

sorry dragon commands saved as dat files.

There are a few old posts on forum mentioning some macros to automate saving commands but they dont seem to work, but posts are old.

KnowBrainer Speech Recognition Forums - What's the best way to backup my Dragon Commands without backing up my entire user profile?

Alternatively, only if you want to export all your commands (.dat format only) you can use the following cool script created by Lindsay Adam. It's a huge timesaver!

I named it: 

Export Now

Sub Main

Dim eng As New DgnEngineControl

commandsFileLocation = eng.SpeakerDirectory & eng.Speaker & "\Current\MyCmds.dat"

newCommandsFile = " " & Format (Now, "mm-dd-yyyy") & ".dat"

FileCopy commandsFileLocation, "E:\Dragon Commands\" + newCommandsFile

End Sub

E:\Dragon Commands is my file save location. You can replace it with your own path.

The produced file (only takes a second) will be named the current date i.e 09-17-2020

Option Explicit

Sub Main

Dim fso, commandsFileLocation, newCommandsFile

Dim eng As New DgnEngineControl

Set fso = CreateObject("Scripting.FileSystemObject")

    If fso.FolderExists("H:\Documents\Dragon\") Then

        commandsFileLocation = eng.SpeakerDirectory & eng.Speaker & "\Current\MyCmds.dat"

        newCommandsFile = "My Commands Backup " & Format (Now, "dd-mm-yyyy") & ".dat"

        FileCopy commandsFileLocation, "H:\Documents\Dragon\" + newCommandsFile

        'Messagebox courtesy of pgInfoBox (C) 2013 PG Service

        pgInfoBox("Your commands are backed up.",1) ' if num = 0, no auto-dismiss

    Else

        fso.CreateFolder("H:\Documents\Dragon\")

        commandsFileLocation = eng.SpeakerDirectory & eng.Speaker & "\Current\MyCmds.dat"

        newCommandsFile = "My Commands Backup " & Format (Now, "dd-mm-yyyy") & ".dat"

        FileCopy commandsFileLocation, "H:\Documents\Dragon\" + newCommandsFile

        pgInfoBox("The folder has been created and your commands backed up",1) ' if num = 0, no auto-dismiss

    End If

End Sub

Function pgInfoBox(dispText As String, dispTime As Integer)

     ' An auto-dismissing MsgBox (courtesy of MS Windows Scripting Host)

     ' Reference: Popup Method at http://msdn.microsoft.com/en-us/library/x83z1d9f(v=vs.84).aspx

     Dim ib

     Set ib = CreateObject("WScript.Shell")

     pgInfoBox = ib.Popup(dispText & vbCrLf & " " & vbCrLf _

          & "Click OK (or just wait . . .)", 4, _

          "Dragon Commands Backup Message", 0)

     Set ib = Nothing

End Function

I just tried Lindsay's first example, and it worked. Here's how to do it:

1. Open the Command Browser.
2. Click on "Script" mode.
3. Click "New"
4. In the "MyCommand" field, type "Export Now" (or another unique name that's easy to say and easy to remember)
5. In the "Command Type" drop down, choose "Advanced Scripting"
6. In the "Script" box, delete everything.
7. Paste the following into the Script box. (Note: I made a minor change to Lindsay's script.)


Sub Main
Dim eng As New DgnEngineControl
commandsFileLocation = eng.SpeakerDirectory & eng.Speaker & "\Current\MyCmds.dat"
newCommandsFile = " " & Format (Now, "mm-dd-yyyy-hh-mm-ss") & ".dat"
FileCopy commandsFileLocation, "E:\Dragon Commands\" + newCommandsFile
End Sub

8. Edit this part of the script:

"E:\Dragon Commands\"

You must change it to the folder where you want your backup files to go. For example:

"C:\Users\Charlie\Dragon Backups\"

Make sure that the backup folder exists.

9. Click "Save"

10. Test your command by saying the command you typed in Step 4.

11. Go to the folder to check that the file has been created.