Include "MapBasic.def"

Declare Sub Main

Sub Main
Dim path_to_temp_tables As String
path_to_temp_tables = "F:\002_Contours\Working\junk\"

'Run the Dos Command
'dir *.tab /b /w  > List.txt
Run program "Cmd.exe /c dir """+path_to_temp_tables+".tab"" /b /w  > """+path_to_temp_tables+"List.txt"""

End Sub