Hi everyone. I'm new to Mappoint and have just added MP routing to an application I am developing. I have successfully created the ptm file but when I try to open it from my app, I get "The file does not exist in the specified location". I know the path is correct and that the file is there. I'm running the app from the VS.NET IDE. Here's the code that saves and opens the file:

If sPtmFile = "" Then
Randomize()
iTemp = Int((1000000 * Rnd()) + 1)
sPtmFile = Trim(Application.StartupPath) & "\TempMaps\TempMap" & CStr(iTemp) & ".ptm"
End If

If sOpenWith = "Mappoint" Then
oApp.ActiveMap.SaveAs(Filename:=sPtmFile)
oApp.ActiveMap.Saved = True
oApp.Quit()
SysProc.Start("Mappoint.exe", sPtmFile)
End If

The error occurs when the SysProc funtion attemps to start MP and open the file. I've checked the value of sPtmFile a hundred times and I know it's correct. I can also find the file in Windows Explorer and dblclick it to open it with MP, or open MP and do File->Open on it, so I know there's nothing wrong with the file. Any help you can give me I would appreciate.

Is it missing a backslash after TempMap?

sPtmFile = Trim(Application.StartupPath) & "\TempMaps\TempMap" & CStr(iTemp) & ".ptm"


sPtmFile = Trim(Application.StartupPath) & "\TempMaps\TempMap\" & CStr(iTemp) & ".ptm"

Thanks for responding John, but actually "Tempmap" is part of the filename, then I add a random number and the ptm extension. An example is:

c:\Program Files\MyApp\TempMaps\TempMap123456.ptm

where the "c:\Program Files\MyApp" would be the Application.StartupPath.

Why not open mappoint (if not already open) and use the open map method?

Here are the samples from the helpfile.

Code:

'Assume the MappointControl on your form is named "MappointControl1"

  Private Sub Form_Load()
    'Assume the file exists in the default directory
    MappointControl1.OpenMap "Clients.ptm"
  End Sub

Code:

Sub OpenSampleMap()

  Dim objApp As New MapPoint.Application

  'Set up application
  objApp.Visible = True
  objApp.UserControl = True

  'Open a sample map
  objApp.OpenMap objApp.Path + "\Samples\Clients.ptm"

  End Sub