Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Folder Treeview that can be showwn on a form...
Message
De
30/11/2001 04:05:30
Cetin Basoz
Engineerica Inc.
Izmir, Turquie
 
 
À
30/11/2001 03:52:12
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
00587873
Message ID:
00587877
Vues:
22
This message has been marked as the solution to the initial question of the thread.
>Hi!
>rather than reinvent the wheel I am looking for some code or an Active X
>that will allow me to browse the folder structure and select a folder
>both on the network and all disks. This could for example be a treeview
>on the left hand side or a drop down list from which I can select a folder
>Is there any such code around on the UT?
>
>Thanks

Of course there is Tim :)
If you want to do treeview directory listing-selecting check UT magazine June issue. Code is there in zip.
If you want browseforfolder like shell open does :
#define BIF_BROWSEFORCOMPUTER  0x1000
#define BIF_BROWSEFORPRINTER   0x2000
#define BIF_BROWSEINCLUDEFILES 0x4000 

oShell = createobject("Shell.Application")
* Get directory
oFolder = oShell.BrowseForFolder(0, "Please Select folder", 0 )
* Get directory specifying \\server\share as root
*oFolder = oShell.BrowseForFolder(0, "Please Select folder", 0,'\\poseidon\public')
* Get directory or file
*oFolder = oShell.BrowseForFolder(0, "Please Select folder or file", BIF_BROWSEINCLUDEFILES)
* Get directory or file specifying \\server\share as root
*oFolder = oShell.BrowseForFolder(0, "Please Select folder or file", BIF_BROWSEINCLUDEFILES,'\\poseidon\public')
if type('oFolder')='O'
	? oFolder.Items.Item.Path
else
	? 'Cancelled'
endif
return
Cetin
Çetin Basöz

The way to Go
Flutter - For mobile, web and desktop.
World's most advanced open source relational database.
.Net for foxheads - Blog (main)
FoxSharp - Blog (mirror)
Welcome to FoxyClasses

LinqPad - C#,VB,F#,SQL,eSQL ... scratchpad
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform