Hi Kevin,
So remember that your szOpenTable is a variable, sot to add an extension to
this your have to
add another text:
szOpenTable = szOpenTable + _trk
But if you do it in this way you'll add the extension at the end, after the
existing filetype:
szOpenTable = C:\Program
You could do it like this
'---code
include mapbasic.def
Declare Sub Main
Sub Main
Dim strFile As String
Dim origTableName As String
Dim newFileName As String
strFile = FileOpenDlg(,,TAB,Open TAble)
Open Table strFile
origTableName =
__
-Message d'origine-
De : Canfield, Andrew [mailto:[EMAIL PROTECTED]]
Envoyé : Tuesday, October 15, 2002 2:08 PM
À : 'Kevin Slover'; Directionsmag
Objet : RE: MI-L FileOpenDlg Question
You could do it like this
'---code
Thanks to everyone that has offered there suggestion for this problem. It was fairly
simple, as I have found out. I have basically used the code:
file_name = PathToTableName$(szOpenTable)
name = file_name + _trk.tab
I have found that this works, for the most part. Thankfully, this is
__
-Message d'origine-
De : Kevin Slover [mailto:[EMAIL PROTECTED]]
Envoyé : Tuesday, October 15, 2002 3:06 PM
À : Directionsmag
Objet : Re: MI-L FileOpenDlg Question
Thanks to everyone that has offered there suggestion for this problem. It was fairly
simple, as I have found