40:
We're looking for a control to show files, just like the eXShellView, but than we would like to specify the files themselves. Is that possible using your control

OleObject oExShellView

oExShellView = ole_1.Object
oExShellView.ViewMode = 1
oExShellView.HeaderVisible = false
oExShellView.BrowseFiles = "C:\Program Files\Microsoft Visual Studio 9.0\Common7\IDE\devenv.exe|C:\Program Files\Microsoft Visual FoxPro 9\vfp9.exe"

39:
How do I prevent pressing the Backspace, or go up to the parent

/*begin event KeyDown(integer KeyCode,integer Shift) - Occurs when the user presses a key while an object has the focus.*/
/*
	oExShellView = ole_1.Object
	MessageBox("Information",string( "Set the KeyCode = 0, if the KeyCode is 8 " ))
	KeyCode = 0
*/
/*end event KeyDown*/

OleObject oExShellView

oExShellView = ole_1.Object
oExShellView.ViewMode = 4
oExShellView.BrowseFolder = "c:\Temp"
oExShellView.Refresh()

38:
How can I show grid lines around items

OleObject oExShellView

oExShellView = ole_1.Object
oExShellView.ViewMode = 4
oExShellView.DrawGridLines = true
oExShellView.Refresh()

37:
How can I prevent shwoing the overlay icons (shortcut icons have a small arrow in lower-left corner, shared folders have a hand that shows that folder is shared, etc. )

OleObject oExShellView

oExShellView = ole_1.Object
oExShellView.ViewMode = 1
oExShellView.OverlayIcons = false
oExShellView.Refresh()

36:
I need to provide my own context menu but I am not able to find RClick event. What can be done

/*begin event QueryContextMenu(string Items,string Separator) - Fired when the context menu is about to be active. You can supply new items to the context menu.*/
/*
	oExShellView = ole_1.Object
	MessageBox("Information",string( "Show here your popup/context menu" ))
*/
/*end event QueryContextMenu*/

OleObject oExShellView

oExShellView = ole_1.Object
oExShellView.DefaultMenuItems = false

35:
How can I provide my own context menu (RClick event is missing)

/*begin event InvokeMenuCommand(string Command) - Fired when the user selects an item context menu that has been added during QueryContextMenu event.*/
/*
	oExShellView = ole_1.Object
	MessageBox("Information",string( String(Command) ))
*/
/*end event InvokeMenuCommand*/

/*begin event QueryContextMenu(string Items,string Separator) - Fired when the context menu is about to be active. You can supply new items to the context menu.*/
/*
	oExShellView = ole_1.Object
	Separator = ","
	Items = "First,Second,Third"
*/
/*end event QueryContextMenu*/

OleObject oExShellView

oExShellView = ole_1.Object
oExShellView.DefaultMenuItems = false

34:
Is it possible to specify the "Extra Large Icons" view

OleObject oExShellView

oExShellView = ole_1.Object
oExShellView.ViewMode = 13

33:
Is it possible to specify the "Large Icons" view

OleObject oExShellView

oExShellView = ole_1.Object
oExShellView.ViewMode = 14

32:
Is it possible to specify the "Medium Icons" view

OleObject oExShellView

oExShellView = ole_1.Object
oExShellView.ViewMode = 15

31:
How can I hide the file names

OleObject oExShellView

oExShellView = ole_1.Object
oExShellView.HideFileNames = true
oExShellView.ViewMode = 5

30:
Is it possible to set the Auto Arrange and Align To Grid flags by code

OleObject oExShellView

oExShellView = ole_1.Object
oExShellView.AutoArrange = true
oExShellView.AlignToGrid = true
oExShellView.ViewMode = 5

29:
Is it possible to set the Auto Arrange flag by code

OleObject oExShellView

oExShellView = ole_1.Object
oExShellView.AutoArrange = true
oExShellView.ViewMode = 5

28:
How do I specify the current folder

OleObject oExShellView

oExShellView = ole_1.Object
oExShellView.CurrentFolder = "c:\windows"

27:
Is it possible to disable showing tooltips for files and folders

OleObject oExShellView

oExShellView = ole_1.Object
oExShellView.HideToolTips = true

26:
Is it possible to hide the control's header

OleObject oExShellView

oExShellView = ole_1.Object
oExShellView.HeaderVisible = false

25:
How can I get the name of file being double clicked

/*begin event ObjectSelect(oleobject Object) - Fired when the user selects a new object for browsing.*/
/*
	oExShellView = ole_1.Object
	oExShellView.CancelObjectSelect()
	MessageBox("Information",string( String(Object) ))
*/
/*end event ObjectSelect*/

OleObject oExShellView

oExShellView = ole_1.Object

24:
How can I prevent opening or selecting a folder or zip files when user double click it
/*begin event ObjectSelect(oleobject Object) - Fired when the user selects a new object for browsing.*/
/*
	oExShellView = ole_1.Object
	oExShellView.CancelObjectSelect()
*/
/*end event ObjectSelect*/

OleObject oExShellView

oExShellView = ole_1.Object

23:
Is it possible to list only files, no folders

OleObject oExShellView

oExShellView = ole_1.Object
oExShellView.ModifyFolderFlags(128,0)

22:
How can I enable multiple selection

OleObject oExShellView

oExShellView = ole_1.Object
oExShellView.ModifyFolderFlags(0,64)
oExShellView.Refresh()

21:
How can I select a file or a folder

OleObject oExShellView

oExShellView = ole_1.Object
oExShellView.Objects.Get(2)
oExShellView.Objects.Item(0).SelectItem(1)

20:
How can I get all files and folders as they are listed
OleObject oExShellView

oExShellView = ole_1.Object
oExShellView.Objects.Get(18 /*AsDisplayed | AllItems*/)
MessageBox("Information",string( String(oExShellView.Objects.Count) ))

19:
How can I get all files and folders being displayed
OleObject oExShellView

oExShellView = ole_1.Object
oExShellView.Objects.Get(2)
MessageBox("Information",string( String(oExShellView.Objects.Count) ))

18:
How do I get the selected files or folders as they are displayed
OleObject oExShellView

oExShellView = ole_1.Object
oExShellView.Objects.Get(17 /*AsDisplayed | SelectedItems*/)
MessageBox("Information",string( String(oExShellView.Objects.Count) ))

17:
How do I get the selected files or folders
OleObject oExShellView

oExShellView = ole_1.Object
oExShellView.Objects.Get(1)
MessageBox("Information",string( String(oExShellView.Objects.Count) ))

16:
How can I disable or enable the control's context menu

OleObject oExShellView

oExShellView = ole_1.Object
oExShellView.DefaultMenuItems = false

15:
How can I include only files that match a pattern

OleObject oExShellView

oExShellView = ole_1.Object
oExShellView.IncludeObjectType = 3
oExShellView.FilePattern = "*.exe *.lnk"

14:
How can I include only files that match a pattern

OleObject oExShellView

oExShellView = ole_1.Object
oExShellView.IncludeObjectType = 3
oExShellView.FilePattern = "*.bmp"

13:
How can I list only folders in the view

OleObject oExShellView

oExShellView = ole_1.Object
oExShellView.IncludeObjectType = 2

12:
How do I specify what objects files or folders should be included in the list

OleObject oExShellView

oExShellView = ole_1.Object
oExShellView.IncludeObjectType = 2

11:
How do I browse a special folder

OleObject oExShellView

oExShellView = ole_1.Object
oExShellView.BrowseFolder = oExShellView.ShellFolder(oExShellView.SpecialFolder(2))

10:
How can I go up to one level, so I can browse the parent folder

OleObject oExShellView

oExShellView = ole_1.Object
oExShellView.BrowseFolder = oExShellView.ShellFolder("C:\")
oExShellView.UpOneLevel()

9:
How do I browse a specified folder

OleObject oExShellView

oExShellView = ole_1.Object
oExShellView.BrowseFolder = oExShellView.ShellFolder("C:\")

8:
How can I disable or enable the entire control

OleObject oExShellView

oExShellView = ole_1.Object
oExShellView.Enabled = false

7:
How do I refresh the control
OleObject oExShellView

oExShellView = ole_1.Object
oExShellView.Refresh()

6:
How can I change the control's font

OleObject f,oExShellView

oExShellView = ole_1.Object
f = CREATE OLEObject
f.ConnectToNewObject("StdFont")
	f.Name = "Verdana"
	f.Size = 12
oExShellView.Font = f

5:
How can I change the view, so it displays as THUMBNAIL

OleObject oExShellView

oExShellView = ole_1.Object
oExShellView.ViewMode = 5

4:
How can I change the view, so it displays as a a grid with details

OleObject oExShellView

oExShellView = ole_1.Object
oExShellView.ViewMode = 4

3:
How can I change the view, so it displays as a list

OleObject oExShellView

oExShellView = ole_1.Object
oExShellView.ViewMode = 3

2:
How can I change the view, so it displays small icons

OleObject oExShellView

oExShellView = ole_1.Object
oExShellView.ViewMode = 2

1:
How can I change the view, so it displays large icons

OleObject oExShellView

oExShellView = ole_1.Object
oExShellView.ViewMode = 1