49
Large icons

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFolderView1
		.SmallIcons = False
		Set f = CreateObject("StdFont")
		With f
			.Size = 16
		End With
		.Font = f
	End With
End Function
</SCRIPT>
</BODY>
48
Small icons

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFolderView1
		.SmallIcons = True
	End With
End Function
</SCRIPT>
</BODY>
47
Folder icons are very close together vertically. Can you change the icon or increase the separation

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFolderView1
		.ItemHeight = 24
	End With
End Function
</SCRIPT>
</BODY>
46
Is it possible to re-call the ExploreFromHere without re-selecting/expanding any previously item

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ExFolderView1_Click()
	With ExFolderView1
		.ExploreFromHere = "|reset"
	End With
End Function
</SCRIPT>

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