|
FILEDIALOG "My Title", "C:\My\Initial\Directory\*.ext", returnvar$
|
|
|
|
FILEDIALOG "Test", ".\*.bas", returnVar$
|
|
|
|
|
|
|
gosub [OpenStandards] gettrim #stan, SettingsNum close #stan if lastcsvfolder$<>"" then StartPath$ = lastcsvfolder$;"*.csv" else StartPath$ = GetSpecialfolder$(5);"*.csv" end if filedialog "Select CSV file name and save location", StartPath$, CSVfile$ if CSVfile$<>"" then l=len(CSVfile$) temp$=CSVfile$ while right$(temp$,1)<>"\" l=l-1 temp$=left$(temp$,l) wend gosub [OpenStandards] lastcsvfolder$=temp$ put #stan, SettingsNum close #stan end if
|
|
|