Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
GetDir does not allow the selction of a Network dir
Message
From
20/12/2001 08:11:18
Cetin Basoz
Engineerica Inc.
Izmir, Turkey
 
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
00596598
Message ID:
00596683
Views:
24
>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
Previous
Reply
Map
View

Click here to load this message in the networking platform