Pick Folders by OpenFileRequester

Share your advanced PureBasic knowledge/code with the community.
User avatar
oryaaaaa
Enthusiast
Enthusiast
Posts: 791
Joined: Mon Jan 12, 2004 11:40 pm
Location: Okazaki, JAPAN

Pick Folders by OpenFileRequester

Post by oryaaaaa »

If you have another technique, please reply to this topic.
Thank you.

Code: Select all

StandardFile$ = "select path"
Pattern$ = "folders|*.neverseenthisfile"
Pattern = 0
File$ = OpenFileRequester("Please choose pick folder", StandardFile$, Pattern$, Pattern)
If File$
  MessageRequester("Information", "You have selected following path:" + Chr(10) + GetPathPart(File$), 0)
Else
  MessageRequester("Information", "The requester was canceled.", 0) 
EndIf
Last edited by oryaaaaa on Wed Aug 14, 2019 9:04 am, edited 1 time in total.
Little John
Addict
Addict
Posts: 4519
Joined: Thu Jun 07, 2007 3:25 pm
Location: Berlin, Germany

Re: Pick Folder by OpenFileRequester

Post by Little John »

oryaaaaa wrote:If you have another technique, please reply to this topic.
For selecting a path, I use PureBasic's PathRequester().
dige
Addict
Addict
Posts: 1247
Joined: Wed Apr 30, 2003 8:15 am
Location: Germany
Contact:

Re: Pick Folder by OpenFileRequester

Post by dige »

What about PathRequester("Please choose pick folder", "")?
"Daddy, I'll run faster, then it is not so far..."
User avatar
oryaaaaa
Enthusiast
Enthusiast
Posts: 791
Joined: Mon Jan 12, 2004 11:40 pm
Location: Okazaki, JAPAN

Re: Pick Folders by OpenFileRequester

Post by oryaaaaa »

Many my users want to select Network drive.
Path requester is very difficult.
User avatar
ar-s
Enthusiast
Enthusiast
Posts: 340
Joined: Sat Oct 06, 2007 11:20 pm
Location: France

Re: Pick Folders by OpenFileRequester

Post by ar-s »

PathRequester is good to open lan folder too...

Code: Select all

 InitPath$ = "\\ComputerName"   ; here change to your Root Lan machine name
  Path$ = PathRequester("Choose a directory", InitPath$)
  If Path$
    MessageRequester("Information", "You choose  :"+Chr(10)+Path$, 0)
  Else
    MessageRequester("Information", "Canceled.", 0)
  EndIf
~Ar-S~
My Image Hoster for PB users
My webSite (french) with PB apps : LDVMULTIMEDIA
PB - 3.x / 5.7x / 6 - W11 x64 - Ryzen 7 3700x / #Rpi4

Code: Select all

r3p347 : 7ry : un71l d0n3 = 1
Post Reply