Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Getdir() across Network
Message
 
À
25/05/2001 05:33:01
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:
00511457
Vues:
19
>>>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,

You can do away with the API call there. The hwnd parameter, while not optional, can be zero.
George

Ubi caritas et amor, deus ibi est
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform