I just made a backup copy of my user folder (the one located at C:\ProgramData\Nuance\NaturallySpeaking15\Users\username) and it's huge! Almost 2 gb. 

 

Is there a single file somewhere in there that has *only* my DNS commands? I'm less concerned about backing up vocabulary and voice training, which I am assuming is taking up most of the hard disc space.

 

My commands would not only be more inconvenient to lose, but I also might want to share them around with other people or transport between computers.

-------------------------

Dragon Professional Individual v15.6. Windows 10. Knowbrainer 2017.

In the "Manage" tab of the Command Browser, you will find options for selecting groups of commands, and exporting them in a file.

(If you're not in the habit of assigning custom commands to groups, this would be a good time to start. It makes the export process much simpler.)

You have the option of exporting Dragon commands as .dat or as .xml files. I suggest exporting them as .xml files because you will be able to open and look at the files in applications other than Dragon.

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

-------------------------

https://speechproductivity.eu

Turbocharge your Dragon® productivity with 40 Power Addons

Thanks, I would like to use this script. I'm having trouble running it though.

Do you just add this script to your Dragon commands? I tried the script in both my Dragon commands and in Knowbrainer, but it says there is an error on line number two.

 

"Dim eng As New DgnEngineControl"

 

It says it's expecting an integer. See screenshot. Any advice?

 

Thanks

-------------------------

Dragon Professional Individual v15.6. Windows 10. Knowbrainer 2017.

interestingly, it is working just fine for me right now in DPI 15.6. But I've had it in my commands for a long time, so maybe that makes a difference? I don't know why it would,

Strange. Are you sure it does not work if you create a new Advanced Scripting command in Dragon (or double-click any existing Advanced Scripting command in your Dragon Command Browser and click "Create New") and paste the code?

 

I can confirm however that the error on line two does occur in KnowBrainer. 

-------------------------

https://speechproductivity.eu

Turbocharge your Dragon® productivity with 40 Power Addons

I have been using this PG Services version of the command for along time now. 

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

-------------------------

 

 

Steve 

Same for me too.

-------------------------

Jomark

 

DPI 15.61, KB2017, SpeechStart+, MS Office 2019 Professional, Windows 10 Pro

It seemed to eventually work for me as I found the file but not in the location that I specified in the command

-------------------------

Jomark

 

DPI 15.61, KB2017, SpeechStart+, MS Office 2019 Professional, Windows 10 Pro

The DPI 15.3 user command file is located at was %PROGRAMDATA%\Nuance\NaturallySpeaking15\Users\[your username]\current\MyCmds.dat. Ver. 15.6 moved your user profile to %LOCALAPPDATA%\Nuance\NS15\Users\[your username]\current\MyCmds.dat 

-------------------------

Change "No" to "Know" w/KnowBrainer 2020
Trial Downloads
Dragon/Sales@KnowBrainer.com 
(615) 884-4558 ex 1