45:
How can I expand a folder

<BODY onload="Init()">
<OBJECT CLASSID="clsid:10670A99-FCCC-415C-8127-176332842618" id="ExFolderView1"></OBJECT>

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

44:
How do I get the subfolders of specified folder

<BODY onload="Init()">
<OBJECT CLASSID="clsid:10670A99-FCCC-415C-8127-176332842618" id="ExFolderView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFolderView1
		Set var_ShellFolders = .ShellFolder("C:\").Folders
	End With
End Function
</SCRIPT>
</BODY>

43:
How do I check a folder

<BODY onload="Init()">
<OBJECT CLASSID="clsid:10670A99-FCCC-415C-8127-176332842618" id="ExFolderView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFolderView1
		.HasCheckBoxes = True
		.ShellFolder("C:\").Check = True
	End With
End Function
</SCRIPT>
</BODY>

42:
How do I get the name of folder, as it is displayed in the control

<BODY onload="Init()">
<OBJECT CLASSID="clsid:10670A99-FCCC-415C-8127-176332842618" id="ExFolderView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFolderView1
		var_DisplayName = .FirstVisibleFolder.DisplayName
	End With
End Function
</SCRIPT>
</BODY>

41:
How can I specify the folders being displayed in the control

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ExFolderView1_IncludeFolder(Folder,Include)
	With ExFolderView1
		Include = False
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:10670A99-FCCC-415C-8127-176332842618" id="ExFolderView1"></OBJECT>

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

40:
How can I include the files and folders in the control

<BODY onload="Init()">
<OBJECT CLASSID="clsid:10670A99-FCCC-415C-8127-176332842618" id="ExFolderView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFolderView1
		.IncludeAttributeMask = 2147483703
	End With
End Function
</SCRIPT>
</BODY>

39:
How can I change the control's font

<BODY onload="Init()">
<OBJECT CLASSID="clsid:10670A99-FCCC-415C-8127-176332842618" id="ExFolderView1"></OBJECT>

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

38:
Can I add a rename to the control's context menu
<BODY onload="Init()">
<OBJECT CLASSID="clsid:10670A99-FCCC-415C-8127-176332842618" id="ExFolderView1"></OBJECT>

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

37:
How can I change the shape of the cursor
<BODY onload="Init()">
<OBJECT CLASSID="clsid:10670A99-FCCC-415C-8127-176332842618" id="ExFolderView1"></OBJECT>

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

36:
How can I get height of the horizontal scroll bar
<BODY onload="Init()">
<OBJECT CLASSID="clsid:10670A99-FCCC-415C-8127-176332842618" id="ExFolderView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFolderView1
		alert( .HorizontalHeight )
	End With
End Function
</SCRIPT>
</BODY>

35:
How can I get width of the vertical scroll bar
<BODY onload="Init()">
<OBJECT CLASSID="clsid:10670A99-FCCC-415C-8127-176332842618" id="ExFolderView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFolderView1
		alert( .VerticalWidth )
	End With
End Function
</SCRIPT>
</BODY>

34:
How can I remove the control's scroll bars
<BODY onload="Init()">
<OBJECT CLASSID="clsid:10670A99-FCCC-415C-8127-176332842618" id="ExFolderView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFolderView1
		alert( .Scrollbars )
	End With
End Function
</SCRIPT>
</BODY>

33:
How can I get the horizontal scroll range
<BODY onload="Init()">
<OBJECT CLASSID="clsid:10670A99-FCCC-415C-8127-176332842618" id="ExFolderView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFolderView1
		alert( .HorizontalOversize )
	End With
End Function
</SCRIPT>
</BODY>

32:
How can I get the horizontal scroll position
<BODY onload="Init()">
<OBJECT CLASSID="clsid:10670A99-FCCC-415C-8127-176332842618" id="ExFolderView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFolderView1
		alert( .HorizontalOffset )
	End With
End Function
</SCRIPT>
</BODY>

31:
How can I get the vertical scroll range
<BODY onload="Init()">
<OBJECT CLASSID="clsid:10670A99-FCCC-415C-8127-176332842618" id="ExFolderView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFolderView1
		alert( .VerticalOversize )
	End With
End Function
</SCRIPT>
</BODY>

30:
How can I get the vertical scroll position
<BODY onload="Init()">
<OBJECT CLASSID="clsid:10670A99-FCCC-415C-8127-176332842618" id="ExFolderView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFolderView1
		alert( .VerticalOffset )
	End With
End Function
</SCRIPT>
</BODY>

29:
Can I assign partial check boxes to folders, so the sub folders get checked when the user checks the parent folder

<BODY onload="Init()">
<OBJECT CLASSID="clsid:10670A99-FCCC-415C-8127-176332842618" id="ExFolderView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFolderView1
		.HasCheckBoxes = True
		.PartialCheck = True
		.FirstVisibleFolder.Check = True
	End With
End Function
</SCRIPT>
</BODY>

28:
How can I drop files to control
<BODY onload="Init()">
<OBJECT CLASSID="clsid:10670A99-FCCC-415C-8127-176332842618" id="ExFolderView1"></OBJECT>

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

27:
Can I explore only a folder, so the user can't see the parent folder

<BODY onload="Init()">
<OBJECT CLASSID="clsid:10670A99-FCCC-415C-8127-176332842618" id="ExFolderView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFolderView1
		.ExploreFromHere = "c:\"
	End With
End Function
</SCRIPT>
</BODY>

26:
How can I hide the icons

<BODY onload="Init()">
<OBJECT CLASSID="clsid:10670A99-FCCC-415C-8127-176332842618" id="ExFolderView1"></OBJECT>

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

25:
How can I disable or enable the entire control
<BODY onload="Init()">
<OBJECT CLASSID="clsid:10670A99-FCCC-415C-8127-176332842618" id="ExFolderView1"></OBJECT>

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

24:
How can I expand a folder

<BODY onload="Init()">
<OBJECT CLASSID="clsid:10670A99-FCCC-415C-8127-176332842618" id="ExFolderView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFolderView1
		.EnsureVisible .SpecialFolderPath(11)
	End With
End Function
</SCRIPT>
</BODY>

23:
How can I ensure that a specified folder fits the contrl's client area

<BODY onload="Init()">
<OBJECT CLASSID="clsid:10670A99-FCCC-415C-8127-176332842618" id="ExFolderView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFolderView1
		.EnsureVisible .SpecialFolderPath(11)
	End With
End Function
</SCRIPT>
</BODY>

22:
How do I refresh the control
<BODY onload="Init()">
<OBJECT CLASSID="clsid:10670A99-FCCC-415C-8127-176332842618" id="ExFolderView1"></OBJECT>

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

21:
Is there any function or property to get the first visible folder

<BODY onload="Init()">
<OBJECT CLASSID="clsid:10670A99-FCCC-415C-8127-176332842618" id="ExFolderView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFolderView1
		.HasCheckBoxes = True
		.FirstVisibleFolder.Check = True
	End With
End Function
</SCRIPT>
</BODY>

20:
How do I find a special folder, like My Computer

<BODY onload="Init()">
<OBJECT CLASSID="clsid:10670A99-FCCC-415C-8127-176332842618" id="ExFolderView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFolderView1
		.SelectedFolder = "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}"
	End With
End Function
</SCRIPT>
</BODY>

19:
How do I find a special folder, like My Computer

<BODY onload="Init()">
<OBJECT CLASSID="clsid:10670A99-FCCC-415C-8127-176332842618" id="ExFolderView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFolderView1
		.SelectedFolder = .SpecialFolderPath(17)
	End With
End Function
</SCRIPT>
</BODY>

18:
How do I select and expand a folder

<BODY onload="Init()">
<OBJECT CLASSID="clsid:10670A99-FCCC-415C-8127-176332842618" id="ExFolderView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFolderView1
		.SelectedFolder = .SpecialFolderPath(2)
	End With
End Function
</SCRIPT>
</BODY>

17:
How do I select and expand a folder

<BODY onload="Init()">
<OBJECT CLASSID="clsid:10670A99-FCCC-415C-8127-176332842618" id="ExFolderView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFolderView1
		.SelectedFolder = "c:\"
	End With
End Function
</SCRIPT>
</BODY>

16:
How do I select a folder

<BODY onload="Init()">
<OBJECT CLASSID="clsid:10670A99-FCCC-415C-8127-176332842618" id="ExFolderView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFolderView1
		.SelectedFolder = "c:\"
	End With
End Function
</SCRIPT>
</BODY>

15:
How do I get the checked folders or files

<BODY onload="Init()">
<OBJECT CLASSID="clsid:10670A99-FCCC-415C-8127-176332842618" id="ExFolderView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFolderView1
		.HasCheckBoxes = True
		.FirstVisibleFolder.Check = True
		alert( .FoldersCheck.Count )
	End With
End Function
</SCRIPT>
</BODY>

14:
How can I display the hidden folders

<BODY onload="Init()">
<OBJECT CLASSID="clsid:10670A99-FCCC-415C-8127-176332842618" id="ExFolderView1"></OBJECT>

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

13:
How can I get the folder or the file from the point
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ExFolderView1_MouseMove(Button,Shift,X,Y)
	With ExFolderView1
		alert( .FolderFromPoint(-1,-1) )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:10670A99-FCCC-415C-8127-176332842618" id="ExFolderView1"></OBJECT>

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

End Function
</SCRIPT>
</BODY>

12:
How can I refresh the control as soon as the user renames a folder in Windows Explorer
<BODY onload="Init()">
<OBJECT CLASSID="clsid:10670A99-FCCC-415C-8127-176332842618" id="ExFolderView1"></OBJECT>

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

11:
How do I enable or disable the control's context menu
<BODY onload="Init()">
<OBJECT CLASSID="clsid:10670A99-FCCC-415C-8127-176332842618" id="ExFolderView1"></OBJECT>

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

10:
How do I hide the overlay icons
<BODY onload="Init()">
<OBJECT CLASSID="clsid:10670A99-FCCC-415C-8127-176332842618" id="ExFolderView1"></OBJECT>

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

9:
How do I display the overlay icons
<BODY onload="Init()">
<OBJECT CLASSID="clsid:10670A99-FCCC-415C-8127-176332842618" id="ExFolderView1"></OBJECT>

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

8:
How do I display the share name for folders and files
<BODY onload="Init()">
<OBJECT CLASSID="clsid:10670A99-FCCC-415C-8127-176332842618" id="ExFolderView1"></OBJECT>

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

7:
How do I assign a checkbox for each folder/file in the control

<BODY onload="Init()">
<OBJECT CLASSID="clsid:10670A99-FCCC-415C-8127-176332842618" id="ExFolderView1"></OBJECT>

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

6:
How do I remove the lines that link the root items

<BODY onload="Init()">
<OBJECT CLASSID="clsid:10670A99-FCCC-415C-8127-176332842618" id="ExFolderView1"></OBJECT>

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

5:
How do I remove the buttons to expand or collapse the folders

<BODY onload="Init()">
<OBJECT CLASSID="clsid:10670A99-FCCC-415C-8127-176332842618" id="ExFolderView1"></OBJECT>

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

4:
How do I remove the lines between items

<BODY onload="Init()">
<OBJECT CLASSID="clsid:10670A99-FCCC-415C-8127-176332842618" id="ExFolderView1"></OBJECT>

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

3:
How do I remove the control's border
<BODY onload="Init()">
<OBJECT CLASSID="clsid:10670A99-FCCC-415C-8127-176332842618" id="ExFolderView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFolderView1
		.Appearance = 0
	End With
End Function
</SCRIPT>
</BODY>

2:
How do I change the control's foreground color

<BODY onload="Init()">
<OBJECT CLASSID="clsid:10670A99-FCCC-415C-8127-176332842618" id="ExFolderView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFolderView1
		.ForeColor = RGB(255,0,0)
	End With
End Function
</SCRIPT>
</BODY>

1:
How do I change the control's background color

<BODY onload="Init()">
<OBJECT CLASSID="clsid:10670A99-FCCC-415C-8127-176332842618" id="ExFolderView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFolderView1
		.BackColor = RGB(255,0,0)
	End With
End Function
</SCRIPT>
</BODY>