49
Large icons

Dim f as P
Dim oExFolderView as P

oExFolderView = topparent:CONTROL_ACTIVEX1.activex
oExFolderView.SmallIcons = .f.
f = OLE.Create("StdFont")
	f.Size = 16
oExFolderView.Font = f
48
Small icons

Dim oExFolderView as P

oExFolderView = topparent:CONTROL_ACTIVEX1.activex
oExFolderView.SmallIcons = .t.
47
Folder icons are very close together vertically. Can you change the icon or increase the separation

Dim oExFolderView as P

oExFolderView = topparent:CONTROL_ACTIVEX1.activex
oExFolderView.ItemHeight = 24
46
Is it possible to re-call the ExploreFromHere without re-selecting/expanding any previously item

' Occurs when the user presses and then releases the left mouse button over the control.
function Click as v ()
	oExFolderView = topparent:CONTROL_ACTIVEX1.activex
	oExFolderView.ExploreFromHere = "|reset"
end function

Dim oExFolderView as P

oExFolderView = topparent:CONTROL_ACTIVEX1.activex
oExFolderView.ExploreFromHere = "c:\"
45
How can I expand a folder

Dim oExFolderView as P
Dim var_ExShellFolder as local

oExFolderView = topparent:CONTROL_ACTIVEX1.activex
' oExFolderView.ShellFolder("C:\").Expanded = .t.
var_ExShellFolder = oExFolderView.ShellFolder("C:\")
oExFolderView.TemplateDef = "dim var_ExShellFolder"
oExFolderView.TemplateDef = var_ExShellFolder
oExFolderView.Template = "var_ExShellFolder.Expanded = True"
44
How do I get the subfolders of specified folder

Dim oExFolderView as P
Dim var_ShellFolders as P

oExFolderView = topparent:CONTROL_ACTIVEX1.activex
var_ShellFolders = oExFolderView.ShellFolder("C:\").Folders
43
How do I check a folder

Dim oExFolderView as P
Dim var_ExShellFolder as local

oExFolderView = topparent:CONTROL_ACTIVEX1.activex
oExFolderView.HasCheckBoxes = .t.
' oExFolderView.ShellFolder("C:\").Check = .t.
var_ExShellFolder = oExFolderView.ShellFolder("C:\")
oExFolderView.TemplateDef = "dim var_ExShellFolder"
oExFolderView.TemplateDef = var_ExShellFolder
oExFolderView.Template = "var_ExShellFolder.Check = True"
42
How do I get the name of folder, as it is displayed in the control

Dim oExFolderView as P
Dim var_DisplayName as 

oExFolderView = topparent:CONTROL_ACTIVEX1.activex
var_DisplayName = oExFolderView.FirstVisibleFolder.DisplayName
41
How can I specify the folders being displayed in the control

' Occurs when the user includes folders to the control.
function IncludeFolder as v (Folder  as  OLE::Exontrol.FolderView.1::IExShellFolder,Include  as  L)
	oExFolderView = topparent:CONTROL_ACTIVEX1.activex
	Include = .f.
end function

Dim oExFolderView as P

oExFolderView = topparent:CONTROL_ACTIVEX1.activex
oExFolderView.IncludeFolder = .t.
40
How can I include the files and folders in the control

Dim oExFolderView as P

oExFolderView = topparent:CONTROL_ACTIVEX1.activex
oExFolderView.IncludeAttributeMask = 2147483703
39
How can I change the control's font

Dim f as P
Dim oExFolderView as P

oExFolderView = topparent:CONTROL_ACTIVEX1.activex
f = OLE.Create("StdFont")
	f.Name = "Verdana"
	f.Size = 12
oExFolderView.Font = f
38
Can I add a rename to the control's context menu
Dim oExFolderView as P

oExFolderView = topparent:CONTROL_ACTIVEX1.activex
oExFolderView.CanRename = .t.
37
How can I change the shape of the cursor
Dim oExFolderView as P

oExFolderView = topparent:CONTROL_ACTIVEX1.activex
oExFolderView.MousePointer = 2
36
How can I get height of the horizontal scroll bar
Dim oExFolderView as P

oExFolderView = topparent:CONTROL_ACTIVEX1.activex
? oExFolderView.HorizontalHeight
35
How can I get width of the vertical scroll bar
Dim oExFolderView as P

oExFolderView = topparent:CONTROL_ACTIVEX1.activex
? oExFolderView.VerticalWidth
34
How can I remove the control's scroll bars
Dim oExFolderView as P

oExFolderView = topparent:CONTROL_ACTIVEX1.activex
? oExFolderView.Scrollbars
33
How can I get the horizontal scroll range
Dim oExFolderView as P

oExFolderView = topparent:CONTROL_ACTIVEX1.activex
? oExFolderView.HorizontalOversize
32
How can I get the horizontal scroll position
Dim oExFolderView as P

oExFolderView = topparent:CONTROL_ACTIVEX1.activex
? oExFolderView.HorizontalOffset
31
How can I get the vertical scroll range
Dim oExFolderView as P

oExFolderView = topparent:CONTROL_ACTIVEX1.activex
? oExFolderView.VerticalOversize
30
How can I get the vertical scroll position
Dim oExFolderView as P

oExFolderView = topparent:CONTROL_ACTIVEX1.activex
? oExFolderView.VerticalOffset
29
Can I assign partial check boxes to folders, so the sub folders get checked when the user checks the parent folder

Dim oExFolderView as P

oExFolderView = topparent:CONTROL_ACTIVEX1.activex
oExFolderView.HasCheckBoxes = .t.
oExFolderView.PartialCheck = .t.
oExFolderView.FirstVisibleFolder.Check = .t.
28
How can I drop files to control
Dim oExFolderView as P

oExFolderView = topparent:CONTROL_ACTIVEX1.activex
oExFolderView.AllowDropFiles = .t.
27
Can I explore only a folder, so the user can't see the parent folder

Dim oExFolderView as P

oExFolderView = topparent:CONTROL_ACTIVEX1.activex
oExFolderView.ExploreFromHere = "c:\"
26
How can I hide the icons

Dim oExFolderView as P

oExFolderView = topparent:CONTROL_ACTIVEX1.activex
oExFolderView.IconsVisible = .f.
25
How can I disable or enable the entire control
Dim oExFolderView as P

oExFolderView = topparent:CONTROL_ACTIVEX1.activex
oExFolderView.Enabled = .f.
24
How can I expand a folder

Dim oExFolderView as P

oExFolderView = topparent:CONTROL_ACTIVEX1.activex
oExFolderView.EnsureVisible(oExFolderView.SpecialFolderPath(11))
23
How can I ensure that a specified folder fits the contrl's client area

Dim oExFolderView as P

oExFolderView = topparent:CONTROL_ACTIVEX1.activex
oExFolderView.EnsureVisible(oExFolderView.SpecialFolderPath(11))
22
How do I refresh the control
Dim oExFolderView as P

oExFolderView = topparent:CONTROL_ACTIVEX1.activex
oExFolderView.Refresh()
21
Is there any function or property to get the first visible folder

Dim oExFolderView as P

oExFolderView = topparent:CONTROL_ACTIVEX1.activex
oExFolderView.HasCheckBoxes = .t.
oExFolderView.FirstVisibleFolder.Check = .t.
20
How do I find a special folder, like My Computer

Dim oExFolderView as P

oExFolderView = topparent:CONTROL_ACTIVEX1.activex
oExFolderView.SelectedFolder = "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}"
19
How do I find a special folder, like My Computer

Dim oExFolderView as P

oExFolderView = topparent:CONTROL_ACTIVEX1.activex
oExFolderView.SelectedFolder = oExFolderView.SpecialFolderPath(17)
18
How do I select and expand a folder

Dim oExFolderView as P

oExFolderView = topparent:CONTROL_ACTIVEX1.activex
oExFolderView.SelectedFolder = oExFolderView.SpecialFolderPath(2)
17
How do I select and expand a folder

Dim oExFolderView as P

oExFolderView = topparent:CONTROL_ACTIVEX1.activex
oExFolderView.SelectedFolder = "c:\"
16
How do I select a folder

Dim oExFolderView as P

oExFolderView = topparent:CONTROL_ACTIVEX1.activex
oExFolderView.SelectedFolder = "c:\"
15
How do I get the checked folders or files

Dim oExFolderView as P

oExFolderView = topparent:CONTROL_ACTIVEX1.activex
oExFolderView.HasCheckBoxes = .t.
oExFolderView.FirstVisibleFolder.Check = .t.
? oExFolderView.FoldersCheck.Count
14
How can I display the hidden folders

Dim oExFolderView as P

oExFolderView = topparent:CONTROL_ACTIVEX1.activex
oExFolderView.HiddenFolders = .t.
13
How can I get the folder or the file from the point
' Fired when the user move the mouse over the ExFolderView control.
function MouseMove as v (Button  as  N,Shift  as  N,X  as  OLE::Exontrol.FolderView.1::OLE_XPOS_PIXELS,Y  as  OLE::Exontrol.FolderView.1::OLE_YPOS_PIXELS)
	oExFolderView = topparent:CONTROL_ACTIVEX1.activex
	? oExFolderView.FolderFromPoint(-1,-1) 
end function

Dim oExFolderView as P

oExFolderView = topparent:CONTROL_ACTIVEX1.activex
12
How can I refresh the control as soon as the user renames a folder in Windows Explorer
Dim oExFolderView as P

oExFolderView = topparent:CONTROL_ACTIVEX1.activex
oExFolderView.AutoUpdate = .t.
11
How do I enable or disable the control's context menu
Dim oExFolderView as P

oExFolderView = topparent:CONTROL_ACTIVEX1.activex
oExFolderView.EnableShellMenu = .f.
10
How do I hide the overlay icons
Dim oExFolderView as P

oExFolderView = topparent:CONTROL_ACTIVEX1.activex
oExFolderView.OverlayIcons = .f.
9
How do I display the overlay icons
Dim oExFolderView as P

oExFolderView = topparent:CONTROL_ACTIVEX1.activex
oExFolderView.OverlayIcons = .t.
8
How do I display the share name for folders and files
Dim oExFolderView as P

oExFolderView = topparent:CONTROL_ACTIVEX1.activex
oExFolderView.DisplayShareName = .t.
7
How do I assign a checkbox for each folder/file in the control

Dim oExFolderView as P

oExFolderView = topparent:CONTROL_ACTIVEX1.activex
oExFolderView.HasCheckBoxes = .t.
6
How do I remove the lines that link the root items

Dim oExFolderView as P

oExFolderView = topparent:CONTROL_ACTIVEX1.activex
oExFolderView.HasLinesAtRoot = .f.
5
How do I remove the buttons to expand or collapse the folders

Dim oExFolderView as P

oExFolderView = topparent:CONTROL_ACTIVEX1.activex
oExFolderView.HasButtons = .f.
4
How do I remove the lines between items

Dim oExFolderView as P

oExFolderView = topparent:CONTROL_ACTIVEX1.activex
oExFolderView.HasLines = .f.
3
How do I remove the control's border
Dim oExFolderView as P

oExFolderView = topparent:CONTROL_ACTIVEX1.activex
oExFolderView.Appearance = 0
2
How do I change the control's foreground color

Dim oExFolderView as P

oExFolderView = topparent:CONTROL_ACTIVEX1.activex
oExFolderView.ForeColor = 255
1
How do I change the control's background color

Dim oExFolderView as P

oExFolderView = topparent:CONTROL_ACTIVEX1.activex
oExFolderView.BackColor = 255