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.PathCetin
Declare integer GetActiveWindow in WIN32API oShell = createobject("Shell.Application") oFolder = oShell.BrowseForFolder(GetActiveWindow(), "Please Select folder", 0 ) ? oFolder.Items.Item.PathCetin