Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Getdir() across Network
Message
De
25/05/2001 05:33:01
Cetin Basoz
Engineerica Inc.
Izmir, Turquie
 
 
À
25/05/2001 05:11:09
Cetin Basoz
Engineerica Inc.
Izmir, Turquie
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
00511371
Message ID:
00511383
Vues:
21
This message has been marked as the solution to the initial question of the thread.
>>Hi
>>
>>I know that GETDIR() allows users to select a directory, but it seems restricted to drive letters, whether local or mapped.
>>
>>Is there a way of selecting a directory across a network (as in Explorer or Network Neighborhood) within VFP6 SP4 / Win 98SE code without mapping the location first?
>>
>>Thanks
>>
>>Mike
>
>Mike,
>
Declare integer GetActiveWindow in WIN32API
>oShell = createobject("Shell.Application")
>oFolder = oShell.BrowseForFolder(GetActiveWindow(), "Please Select folder", 0 )
>oFolderItems = oFolder.Items
>oFolderItem = oFolderItems.Item[0]
>? oFolderItem.Path
Cetin

Mike,
Correction. Above would return first item's path in selected folder.
What you want would be :
Declare integer GetActiveWindow in WIN32API
oShell = createobject("Shell.Application")
oFolder = oShell.BrowseForFolder(GetActiveWindow(), "Please Select folder", 0 )
? oFolder.Items.Item.Path
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
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform