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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:B4E1F234-AF0D-4EAD-8113-A563B40E71CA" id="ExShellView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExShellView1
		.ViewMode = 1
		.HeaderVisible = False
		.BrowseFiles = "C:\Program Files\Microsoft Visual Studio 9.0\Common7\IDE\devenv.exe|C:\Program Files\Microsoft Visual FoxPro 9\vfp9.exe"
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ExShellView1_KeyDown(KeyCode,Shift)
	With ExShellView1
		alert( "Set the KeyCode = 0, if the KeyCode is 8 " )
		KeyCode = 0
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:B4E1F234-AF0D-4EAD-8113-A563B40E71CA" id="ExShellView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExShellView1
		.ViewMode = 4
		.BrowseFolder = "c:\Temp"
		.Refresh 
	End With
End Function
</SCRIPT>
</BODY>

38:
How can I show grid lines around items

<BODY onload="Init()">
<OBJECT CLASSID="clsid:B4E1F234-AF0D-4EAD-8113-A563B40E71CA" id="ExShellView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExShellView1
		.ViewMode = 4
		.DrawGridLines = True
		.Refresh 
	End With
End Function
</SCRIPT>
</BODY>

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. )

<BODY onload="Init()">
<OBJECT CLASSID="clsid:B4E1F234-AF0D-4EAD-8113-A563B40E71CA" id="ExShellView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExShellView1
		.ViewMode = 1
		.OverlayIcons = False
		.Refresh 
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ExShellView1_QueryContextMenu(Items,Separator)
	With ExShellView1
		alert( "Show here your popup/context menu" )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:B4E1F234-AF0D-4EAD-8113-A563B40E71CA" id="ExShellView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExShellView1
		.DefaultMenuItems = False
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ExShellView1_InvokeMenuCommand(Command)
	With ExShellView1
		alert( Command )
	End With
End Function
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Function ExShellView1_QueryContextMenu(Items,Separator)
	With ExShellView1
		Separator = ","
		Items = "First,Second,Third"
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:B4E1F234-AF0D-4EAD-8113-A563B40E71CA" id="ExShellView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExShellView1
		.DefaultMenuItems = False
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:B4E1F234-AF0D-4EAD-8113-A563B40E71CA" id="ExShellView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExShellView1
		.ViewMode = 13
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:B4E1F234-AF0D-4EAD-8113-A563B40E71CA" id="ExShellView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExShellView1
		.ViewMode = 14
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:B4E1F234-AF0D-4EAD-8113-A563B40E71CA" id="ExShellView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExShellView1
		.ViewMode = 15
	End With
End Function
</SCRIPT>
</BODY>

31:
How can I hide the file names

<BODY onload="Init()">
<OBJECT CLASSID="clsid:B4E1F234-AF0D-4EAD-8113-A563B40E71CA" id="ExShellView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExShellView1
		.HideFileNames = True
		.ViewMode = 5
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:B4E1F234-AF0D-4EAD-8113-A563B40E71CA" id="ExShellView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExShellView1
		.AutoArrange = True
		.AlignToGrid = True
		.ViewMode = 5
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:B4E1F234-AF0D-4EAD-8113-A563B40E71CA" id="ExShellView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExShellView1
		.AutoArrange = True
		.ViewMode = 5
	End With
End Function
</SCRIPT>
</BODY>

28:
How do I specify the current folder

<BODY onload="Init()">
<OBJECT CLASSID="clsid:B4E1F234-AF0D-4EAD-8113-A563B40E71CA" id="ExShellView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExShellView1
		.CurrentFolder = "c:\windows"
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:B4E1F234-AF0D-4EAD-8113-A563B40E71CA" id="ExShellView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExShellView1
		.HideToolTips = True
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:B4E1F234-AF0D-4EAD-8113-A563B40E71CA" id="ExShellView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExShellView1
		.HeaderVisible = False
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ExShellView1_ObjectSelect(Object)
	With ExShellView1
		.CancelObjectSelect 
		alert( Object )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:B4E1F234-AF0D-4EAD-8113-A563B40E71CA" id="ExShellView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()

End Function
</SCRIPT>
</BODY>

24:
How can I prevent opening or selecting a folder or zip files when user double click it
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ExShellView1_ObjectSelect(Object)
	With ExShellView1
		.CancelObjectSelect 
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:B4E1F234-AF0D-4EAD-8113-A563B40E71CA" id="ExShellView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()

End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:B4E1F234-AF0D-4EAD-8113-A563B40E71CA" id="ExShellView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExShellView1
		.ModifyFolderFlags 128,0
	End With
End Function
</SCRIPT>
</BODY>

22:
How can I enable multiple selection

<BODY onload="Init()">
<OBJECT CLASSID="clsid:B4E1F234-AF0D-4EAD-8113-A563B40E71CA" id="ExShellView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExShellView1
		.ModifyFolderFlags 0,64
		.Refresh 
	End With
End Function
</SCRIPT>
</BODY>

21:
How can I select a file or a folder

<BODY onload="Init()">
<OBJECT CLASSID="clsid:B4E1F234-AF0D-4EAD-8113-A563B40E71CA" id="ExShellView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExShellView1
		.Objects.Get 2
		.Objects.Item(0).SelectItem 1
	End With
End Function
</SCRIPT>
</BODY>

20:
How can I get all files and folders as they are listed
<BODY onload="Init()">
<OBJECT CLASSID="clsid:B4E1F234-AF0D-4EAD-8113-A563B40E71CA" id="ExShellView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExShellView1
		.Objects.Get 18 ' ObjectTypeEnum.AsDisplayed Or ObjectTypeEnum.AllItems
		alert( .Objects.Count )
	End With
End Function
</SCRIPT>
</BODY>

19:
How can I get all files and folders being displayed
<BODY onload="Init()">
<OBJECT CLASSID="clsid:B4E1F234-AF0D-4EAD-8113-A563B40E71CA" id="ExShellView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExShellView1
		.Objects.Get 2
		alert( .Objects.Count )
	End With
End Function
</SCRIPT>
</BODY>

18:
How do I get the selected files or folders as they are displayed
<BODY onload="Init()">
<OBJECT CLASSID="clsid:B4E1F234-AF0D-4EAD-8113-A563B40E71CA" id="ExShellView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExShellView1
		.Objects.Get 17 ' ObjectTypeEnum.AsDisplayed Or ObjectTypeEnum.SelectedItems
		alert( .Objects.Count )
	End With
End Function
</SCRIPT>
</BODY>

17:
How do I get the selected files or folders
<BODY onload="Init()">
<OBJECT CLASSID="clsid:B4E1F234-AF0D-4EAD-8113-A563B40E71CA" id="ExShellView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExShellView1
		.Objects.Get 1
		alert( .Objects.Count )
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:B4E1F234-AF0D-4EAD-8113-A563B40E71CA" id="ExShellView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExShellView1
		.DefaultMenuItems = False
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:B4E1F234-AF0D-4EAD-8113-A563B40E71CA" id="ExShellView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExShellView1
		.IncludeObjectType = 3
		.FilePattern = "*.exe *.lnk"
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:B4E1F234-AF0D-4EAD-8113-A563B40E71CA" id="ExShellView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExShellView1
		.IncludeObjectType = 3
		.FilePattern = "*.bmp"
	End With
End Function
</SCRIPT>
</BODY>

13:
How can I list only folders in the view

<BODY onload="Init()">
<OBJECT CLASSID="clsid:B4E1F234-AF0D-4EAD-8113-A563B40E71CA" id="ExShellView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExShellView1
		.IncludeObjectType = 2
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:B4E1F234-AF0D-4EAD-8113-A563B40E71CA" id="ExShellView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExShellView1
		.IncludeObjectType = 2
	End With
End Function
</SCRIPT>
</BODY>

11:
How do I browse a special folder

<BODY onload="Init()">
<OBJECT CLASSID="clsid:B4E1F234-AF0D-4EAD-8113-A563B40E71CA" id="ExShellView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExShellView1
		.BrowseFolder = .ShellFolder(.SpecialFolder(2))
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:B4E1F234-AF0D-4EAD-8113-A563B40E71CA" id="ExShellView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExShellView1
		.BrowseFolder = .ShellFolder("C:\")
		.UpOneLevel 
	End With
End Function
</SCRIPT>
</BODY>

9:
How do I browse a specified folder

<BODY onload="Init()">
<OBJECT CLASSID="clsid:B4E1F234-AF0D-4EAD-8113-A563B40E71CA" id="ExShellView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExShellView1
		.BrowseFolder = .ShellFolder("C:\")
	End With
End Function
</SCRIPT>
</BODY>

8:
How can I disable or enable the entire control

<BODY onload="Init()">
<OBJECT CLASSID="clsid:B4E1F234-AF0D-4EAD-8113-A563B40E71CA" id="ExShellView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExShellView1
		.Enabled = False
	End With
End Function
</SCRIPT>
</BODY>

7:
How do I refresh the control
<BODY onload="Init()">
<OBJECT CLASSID="clsid:B4E1F234-AF0D-4EAD-8113-A563B40E71CA" id="ExShellView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExShellView1
		.Refresh 
	End With
End Function
</SCRIPT>
</BODY>

6:
How can I change the control's font

<BODY onload="Init()">
<OBJECT CLASSID="clsid:B4E1F234-AF0D-4EAD-8113-A563B40E71CA" id="ExShellView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExShellView1
		Set f = CreateObject("StdFont")
		With f
			.Name = "Verdana"
			.Size = 12
		End With
		.Font = f
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:B4E1F234-AF0D-4EAD-8113-A563B40E71CA" id="ExShellView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExShellView1
		.ViewMode = 5
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:B4E1F234-AF0D-4EAD-8113-A563B40E71CA" id="ExShellView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExShellView1
		.ViewMode = 4
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:B4E1F234-AF0D-4EAD-8113-A563B40E71CA" id="ExShellView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExShellView1
		.ViewMode = 3
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:B4E1F234-AF0D-4EAD-8113-A563B40E71CA" id="ExShellView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExShellView1
		.ViewMode = 2
	End With
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:B4E1F234-AF0D-4EAD-8113-A563B40E71CA" id="ExShellView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExShellView1
		.ViewMode = 1
	End With
End Function
</SCRIPT>
</BODY>