WinBatch Tech Support Home

Database Search

If you can't find the information using the categories below, post a question over in our WinBatch Tech Support Forum.

TechHome

Samples from Users

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

Directory Browse Dialog Created Using OLE Shell Functions


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