Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
GetDir does not allow the selction of a Network dir
Message
De
20/12/2001 08:11:18
Cetin Basoz
Engineerica Inc.
Izmir, Turquie
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
00596598
Message ID:
00596683
Vues:
29
>Any workaround to select a network dir similar to the way GetDir() works?

Russel,
In VFP7 this is built-in to getdir as a parameter. Prior to VFP7 :
#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,'\\server\share')
* 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,'\\server\share')
if type('oFolder.Items.Item')='O'
  ? oFolder.Items.Item.Path
else
  ? 'Cancelled'
endif
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