Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.
objShell=ObjectOpen("Shell.Application") path = "c:\" objFolder=objShell.BrowseForFolder(0, "Select Drive/Folder", 0, path) if objFolder==0 Message("CANCEL","User cancelled out of dialog") exit endif title = objFolder.title objParentFolder = objFolder.ParentFolder if objParentFolder != 0 objParentFolderItems = objParentFolder.Items count = objParentFolderItems.count -1 for xx = 0 to count objItem = objParentFolderItems.Item(xx) if objItem.IsFolder objGetFolder = objItem.GetFolder if objGetFolder.Title == title path = objItem.Path break endif ObjectClose(objGetFolder) endif ObjectClose(objItem) next ObjectClose(objParentFolderItems) else path=ShortcutDir(path,0,0) endif Message("Path chosen",path) if objParentFolder != 0 then ObjectClose(objParentFolder) ObjectClose(objFolder) ObjectClose(objShell) exit
Article ID: W16162
File Created: 2004:03:30:15:43:00
Last Updated: 2004:03:30:15:43:00