(10-27-2024, 12:10 AM)Pete Wrote: _OpenFileDialog$()

So let's say I use this beat new addition to qb. It opens my local directory (c:\QB64pe), but now I use that dialog box to go to a different folder: c:\Pete's Tremendous-Steve's-Just-Amazing and I open a file from that location. So what do I query to get that non-local directory into a string variable like dir$ in my code?

Pete

target$ = _OpenFileDialog$("Pick a folder and a file.", "")

dir$ = Mid$(target$, 1, _InStrRev(target$, "\"))

file$ = Mid$(target$, Len(dir$) + 1)

Print dir$

Print file$

find$ = _OpenFileDialog$("Look, here's your file!", file$)

Shell _DontWait "explorer /select, " + dir$ + file$

(10-27-2024, 12:54 AM)Pete Wrote: Neat! +1

Code: (Select All)

target$ = _OpenFileDialog$("Pick a folder and a file.", "")

dir$ = Mid$(target$, 1, _InStrRev(target$, "\"))

file$ = Mid$(target$, Len(dir$) + 1)

Print dir$

Print file$

find$ = _OpenFileDialog$("Look, here's your file!", file$)

Shell _DontWait "explorer /select, " + dir$ + file$

So now I see I can get the file info and use it locate itself, similar to how we used to do it in the SHELL example, with one exception, it does not highlight the file in the menu, instead it places the file name in the dialog open box.

Thanks!

Pete

Oh, BTW: I stared programming in BASIC in 1981. TI 4A. When 4K was all anybody would ever need!

(10-27-2024, 01:31 AM)ahenry3068 Wrote:

(10-27-2024, 12:54 AM)Pete Wrote: Neat! +1

Code: (Select All)

target$ = _OpenFileDialog$("Pick a folder and a file.", "")

dir$ = Mid$(target$, 1, _InStrRev(target$, "\"))

file$ = Mid$(target$, Len(dir$) + 1)

Print dir$

Print file$

find$ = _OpenFileDialog$("Look, here's your file!", file$)

Shell _DontWait "explorer /select, " + dir$ + file$

So now I see I can get the file info and use it locate itself, similar to how we used to do it in the SHELL example, with one exception, it does not highlight the file in the menu, instead it places the file name in the dialog open box.

Thanks!

Pete

Oh, BTW: I stared programming in BASIC in 1981. TI 4A. When 4K was all anybody would ever need!

   I started programming BASIC in 1985 but on 'Big Iron'.     I had 1mb of user Ram & 1.6gb's of Hard drive space available to me.     (I'll let you guess how much those  '4' storage devices weighed).       And I had all the colors in the World I needed as long as they were Black or Green.      (The 'Big Iron' was a Harris Systems mini computer running 'Virtual Operating System V' )      I didn't own my own system until about 3 years later when I bought a Tandy 1000 TX (and Maxed out a brand new Radio Shack credit card for that) ...