269:
Displays the time without seconds, smaller and with a different color

With ExFileView1
	.BeginUpdate 
	.ExploreFromHere = ""
	.ExpandFolders = True
	.ColumnFilterButton("Name") = True
	.Option(1) = "(((valueS left ( valueS rfind `:` )) + (valueS right ( len(valueS) - ( valueS rfind ` ` ) )) replace ` ` with `<fgcolor=808080>" & _
"<font ;6> ` ))"
	.ColumnsVisible = 26 ' FileColumnEnum.exFileColumnModified Or FileColumnEnum.exFileColumnType Or FileColumnEnum.exFileColumnName
	.ModifiedDaysAgo = -1
	.EndUpdate 
End With
268:
Displays the date-time with no seconds part

With ExFileView1
	.BeginUpdate 
	.ExploreFromHere = ""
	.ExpandFolders = True
	.ColumnFilterButton("Name") = True
	.Option(1) = "(valueS left ( valueS rfind `:` )) + (valueS right ( len(valueS) - ( valueS rfind ` ` ) ))"
	.ColumnsVisible = 26 ' FileColumnEnum.exFileColumnModified Or FileColumnEnum.exFileColumnType Or FileColumnEnum.exFileColumnName
	.ModifiedDaysAgo = -1
	.EndUpdate 
End With
267:
Displays the Modified column in long date format, as specified in the control's panel ( no time is displayed )

With ExFileView1
	.BeginUpdate 
	.ExploreFromHere = ""
	.ExpandFolders = True
	.ColumnFilterButton("Name") = True
	.Option(1) = "longdate(value)"
	.ColumnsVisible = 26 ' FileColumnEnum.exFileColumnModified Or FileColumnEnum.exFileColumnType Or FileColumnEnum.exFileColumnName
	.ModifiedDaysAgo = -1
	.EndUpdate 
End With
266:
Displays the modified date in "MM/DD/YYYY HH:MM:SS" format, so 1/1/2001 will be displayed such as 01/01/2001

With ExFileView1
	.BeginUpdate 
	.ExploreFromHere = ""
	.ExpandFolders = True
	.ColumnFilterButton("Name") = True
	.Option(1) = "dateF(value)"
	.ColumnsVisible = 26 ' FileColumnEnum.exFileColumnModified Or FileColumnEnum.exFileColumnType Or FileColumnEnum.exFileColumnName
	.ModifiedDaysAgo = -1
	.EndUpdate 
End With
265:
Displays the modified date without the time

With ExFileView1
	.BeginUpdate 
	.ExploreFromHere = ""
	.ExpandFolders = True
	.ColumnFilterButton("Name") = True
	.Option(1) = "date(int(value))"
	.ColumnsVisible = 26 ' FileColumnEnum.exFileColumnModified Or FileColumnEnum.exFileColumnType Or FileColumnEnum.exFileColumnName
	.ModifiedDaysAgo = -1
	.EndUpdate 
End With
264:
Displayes the modified time with a different color

With ExFileView1
	.BeginUpdate 
	.ExploreFromHere = ""
	.ExpandFolders = True
	.ColumnFilterButton("Name") = True
	.Option(1) = "valueS replace ` ` with `<off -4><fgcolor=808080><font ;6> `"
	.ColumnsVisible = 26 ' FileColumnEnum.exFileColumnModified Or FileColumnEnum.exFileColumnType Or FileColumnEnum.exFileColumnName
	.ModifiedDaysAgo = -1
	.EndUpdate 
End With
263:
Displays all files/folders modified n days ago, with white on a black background

With ExFileView1
	.BeginUpdate 
	.ExploreFromHere = ""
	.ExpandFolders = True
	.ColumnFilterButton("Name") = True
	.Option(1) = "`<bgcolor=000000><fgcolor=FFFFFF>` + valueS"
	.ModifiedDaysAgo = 31
	.ColumnsVisible = 26 ' FileColumnEnum.exFileColumnModified Or FileColumnEnum.exFileColumnType Or FileColumnEnum.exFileColumnName
	.EndUpdate 
End With
262:
Displays today for all files/folders modified today, yesterday for all files modified yesterday, else "%i day(s) ago"

With ExFileView1
	.BeginUpdate 
	.ExploreFromHere = ""
	.ExpandFolders = True
	.ColumnFilterButton("Name") = True
	.Option(1) = "daysago = 0 ? `today` : (daysago = 1 ? `yesterday` : (daysago + ` day(s) ago`))"
	.ModifiedDaysAgo = 31
	.ColumnsVisible = 26 ' FileColumnEnum.exFileColumnModified Or FileColumnEnum.exFileColumnType Or FileColumnEnum.exFileColumnName
	.EndUpdate 
End With
261:
Displays today for all files/folders else "%i day(s) ago"

With ExFileView1
	.BeginUpdate 
	.ExploreFromHere = ""
	.ExpandFolders = True
	.ColumnFilterButton("Name") = True
	.ModifiedDaysAgo = 31
	.ColumnsVisible = 26 ' FileColumnEnum.exFileColumnModified Or FileColumnEnum.exFileColumnType Or FileColumnEnum.exFileColumnName
	.EndUpdate 
End With
260:
FilterBarCaption ALL Keyword ( sample 2, result )

With ExFileView1
	.BeginUpdate 
	.ExploreFromHere = ""
	.ColumnFilterButton("Name") = True
	.FilterBarFont = .Font
	.Description(11) = .FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.Description(11)) ' &H8 Or DescriptionTypeEnum.exFilterBarPatternFilterTitle
	.FilterBarCaption = "(( ( all replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace `[" & _
"<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` )  + `<r><fgcolor=808080>` + ( matchi" & _
"temcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount" & _
" + ` item(s)`) )))"
	.FilterBarPromptVisible = 3 ' FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
	.EndUpdate 
End With
259:
FilterBarCaption ALL Keyword ( sample 1 )

With ExFileView1
	.BeginUpdate 
	.ExploreFromHere = ""
	.ColumnFilterButton("Name") = True
	.FilterBarFont = .Font
	.Description(11) = .FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.Description(11)) ' &H8 Or DescriptionTypeEnum.exFilterBarPatternFilterTitle
	.FilterBarCaption = "all"
	.FilterBarPromptVisible = 3 ' FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
	.EndUpdate 
End With
258:
FilterBarCaption ALLUI Keyword ( sample 2, result )

With ExFileView1
	.BeginUpdate 
	.ExploreFromHere = ""
	.ColumnFilterButton("Name") = True
	.FilterBarFont = .Font
	.Description(11) = .FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.Description(11)) ' &H8 Or DescriptionTypeEnum.exFilterBarPatternFilterTitle
	.FilterBarCaption = "(( ( allui replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace " & _
"`[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` )  + `<r><fgcolor=808080>` + ( matc" & _
"hitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcou" & _
"nt + ` item(s)`) )))"
	.FilterBarPromptVisible = 3 ' FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
	.EndUpdate 
End With
257:
FilterBarCaption ALLUI Keyword ( sample 1 )

With ExFileView1
	.BeginUpdate 
	.ExploreFromHere = ""
	.ColumnFilterButton("Name") = True
	.FilterBarFont = .Font
	.Description(11) = .FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.Description(11)) ' &H8 Or DescriptionTypeEnum.exFilterBarPatternFilterTitle
	.FilterBarCaption = "allui"
	.FilterBarPromptVisible = 3 ' FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
	.EndUpdate 
End With
256:
FilterBarCaption AVAILABLE Keyword ( sample 2, result )

With ExFileView1
	.BeginUpdate 
	.ExploreFromHere = ""
	.ColumnFilterButton("Name") = True
	.FilterBarFont = .Font
	.Description(11) = .FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.Description(11)) ' &H8 Or DescriptionTypeEnum.exFilterBarPatternFilterTitle
	.FilterBarCaption = "(( ( value replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>` ) + ` ` + ( ava" & _
"ilable replace `[` with `<bgcolor=C0C0C0><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>` replace `<s>` with `" & _
"` replace `</s>` with `` ) + `<fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount" & _
" + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount + ` item(s)`) )))"
	.FilterBarPromptVisible = 3 ' FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
	.EndUpdate 
End With
255:
FilterBarCaption AVAILABLE Keyword ( sample 1 )

With ExFileView1
	.BeginUpdate 
	.ExploreFromHere = ""
	.ColumnFilterButton("Name") = True
	.FilterBarFont = .Font
	.Description(11) = .FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",.Description(11)) ' &H8 Or DescriptionTypeEnum.exFilterBarPatternFilterTitle
	.FilterBarCaption = "value + ` ` + available"
	.FilterBarPromptVisible = 3 ' FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
	.EndUpdate 
End With
254:
Is it possible to somehow highlight the column's name different than its filter value in the control's filter bar ( sample 3, results )

With ExFileView1
	.BeginUpdate 
	.ExploreFromHere = ""
	.ColumnFilterButton("Name") = True
	.FilterBarFont = .Font
	.Description(11) = .FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",.Description(11)) ' &H8 Or DescriptionTypeEnum.exFilterBarPatternFilterTitle
	.FilterBarCaption = "(`<b>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) +" & _
" ` result(s)` ) : (`<fgcolor=808080>`+ itemcount + ` item(s)`) )) replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replac" & _
"e `]` with ` </b></bgcolor></fgcolor>`"
	.FilterBarPromptVisible = 256
	.EndUpdate 
End With
253:
Is it possible to somehow highlight the column's name different than its filter value in the control's filter bar ( sample 2 )

With ExFileView1
	.BeginUpdate 
	.ExploreFromHere = ""
	.ColumnFilterButton("Name") = True
	.FilterBarFont = .Font
	.Description(11) = .FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",.Description(11)) ' &H8 Or DescriptionTypeEnum.exFilterBarPatternFilterTitle
	.FilterBarCaption = "value replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>`"
	.FilterBarPromptVisible = 256
	.EndUpdate 
End With
252:
Is it possible to somehow highlight the column's name different than its filter value in the control's filter bar ( sample 1 )

With ExFileView1
	.BeginUpdate 
	.ExploreFromHere = ""
	.ColumnFilterButton("Name") = True
	.Description(11) = .FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",.Description(11)) ' &H8 Or DescriptionTypeEnum.exFilterBarPatternFilterTitle
	.FilterBarCaption = "value replace `[` with `<fgcolor=808080>[` replace `]` with `]</fgcolor>`"
	.FilterBarPromptVisible = 256
	.EndUpdate 
End With
251:
How can I get the number of results/items being shown in the control's filter bar (sample 4)

With ExFileView1
	.BeginUpdate 
	.ExploreFromHere = ""
	.ColumnFilterButton("Name") = True
	.FilterBarFont = .Font
	.FilterBarPrompt = .FormatABC("`<b>` + value",.FilterBarPrompt)
	.FilterBarCaption = "`<b><r>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `<br>` : `` ) + `<r>` + abs(matchitemcount " & _
"+ 1) + ` result(s)` ) : (`<fgcolor=808080>`+ itemcount + ` item(s)`) )"
	.FilterBarPromptVisible = 3591 ' FilterBarVisibleEnum.exFilterBarCompact Or FilterBarVisibleEnum.exFilterBarShowCloseOnRight Or FilterBarVisibleEnum.exFilterBarShowCloseIfRequired Or FilterBarVisibleEnum.exFilterBarCaptionVisible Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
	.EndUpdate 
End With
250:
FilterBarCaption Predefined Keywords

With ExFileView1
	.BeginUpdate 
	.ExploreFromHere = ""
	.ColumnFilterButton("Name") = True
	.FilterInclude = 1
	.FilterBarFont = .Font
	.FilterBarCaption = "`<fgcolor=0000FF><i>value/current</i></fgcolor>: <fgcolor=808080>` + value + `</fgcolor>` + `<br><fgcolor=0000FF><i>available</" & _
"i></fgcolor>: ` + available + `<br><fgcolor=0000FF><i>allui</i></fgcolor>: ` + allui + `<br><fgcolor=0000FF><i>all</i></fgcolor>" & _
": ` + all + `<br><fgcolor=0000FF><i>itemcount</i></fgcolor>: <fgcolor=808080>` + itemcount + `</fgcolor>`+ `<br><fgcolor=0000FF>" & _
"<i>visibleitemcount</i></fgcolor>: <fgcolor=808080>` + visibleitemcount + `</fgcolor>`+ `<br><fgcolor=0000FF><i>matchitemcount</" & _
"i></fgcolor>: <fgcolor=808080>` + matchitemcount + `</fgcolor>`+ `<br><fgcolor=0000FF><i>promptpattern</i></fgcolor>: <fgcolor=8" & _
"08080>` + promptpattern + `</fgcolor>`"
	.FilterBarPromptVisible = 7 ' FilterBarVisibleEnum.exFilterBarCaptionVisible Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
	.EndUpdate 
End With
249:
I am using filter prompt feature, and also column's filter, just wondering if possible to compact displaying the filter bar so it won't show on multiple lines

With ExFileView1
	.BeginUpdate 
	.ExploreFromHere = ""
	.ColumnFilterButton("Name") = True
	.FilterBarFont = .Font
	.FilterBarCaption = "`<r><i><fgcolor=808080><upline><solidline><sha ;;0>` + value"
	.FilterBarPromptVisible = 2067 ' FilterBarVisibleEnum.exFilterBarCompact Or FilterBarVisibleEnum.exFilterBarSingleLine Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
	.EndUpdate 
End With
248:
Just wondering if it is possible to show the filter bar's close button on the right ( sample 2 )

With ExFileView1
	.BeginUpdate 
	.ExploreFromHere = ""
	.ColumnFilterButton("Name") = True
	.FilterBarPromptVisible = 1281 ' FilterBarVisibleEnum.exFilterBarShowCloseOnRight Or FilterBarVisibleEnum.exFilterBarToggle Or FilterBarVisibleEnum.exFilterBarPromptVisible
	.FilterBarPrompt = .FormatABC("`<r>` + value",.FilterBarPrompt)
	.EndUpdate 
End With
247:
How can I change the visual appearance of the filter bar's close button (EBN)

With ExFileView1
	.BeginUpdate 
	With .VisualAppearance
		.Add 1,"gBFLBCJwBAEHhEJAAEhABHQDg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLOg7IJ" & _
"jyI4/SJAYCydKAWhxIaZKJHCZoEDaTAADCNVAQp6MEIJVbVEI0e79OgBLp/Z7kECIJJAaRjHQdJxGLA8EhtCQhCZteK6SgMKJYXhWQYRXI1JwvMBrWrdQjiOYELQtMKm" & _
"SZNLYGG4dR5SVJbcYhSYsRRFMoyDIOXYDLKsdYqSpXIThObEGgaPqJYjsUjCMKnR7HVIURrBPC9TBPE69ZgmC6ucKPX51ShKFaBWDZcwFAS+UBuYCAILiEAQGZ1XT8OR" & _
"OicbgJgSTJRlCaZeDsHY7QGR4xkSYp3CaExZAQMgalQYAwjCAAfBANxcA2TgKAUOpDCGFhKg0RpXCwCwDHQHQHEyAIkCkOhbFOGA8A8DohBgRg9AccZcn8EpEjMLI2C2" & _
"DYxAgQgvAIUIVkoAAPBQDJlECTZ3CCYwDACQwUA8A5MCAWAWDiQi4l8aQOEgLJuBgBgDmYFAzEoIoIl0WALgKYJbBABADAAHgHg8VAMmqCQQDMXABAATYwTmNwBDATJX" & _
"AiAgjHmNQ5lgQ5QEQEQMmcWg/GwD5ylyNw2gMcJcjsBgBgOQQDDhRpVAMMwnDBFw1B0Ax8D0DxOmmJJIGQTY5hGMAwkwM4CAYLZAmAOJnAqAojiIGg6iieYkmeAYOHaK" & _
"JDCyCwjH6AoggsQpQliAJLhgaJ0CESBTnyDwjk+cg4g4P5IHIHJ+BWRRzlYWAxiOUxihsY4KjKLJRGqC44FCegkkkM58iAKAPnIWIWD8SRSFSfQnkmewUhYP4GiGKJ7G" & _
"0TIbCSUoggqUo0lAQ4LnEcBcD8Coiiif4nE+eAAn2HpOkcFJqi4T5SkyMw/kqQown8IBIBOdA+A+DJrBqVxXEqYo4lCApLhGHBnD8S4ymyfxmg+cwQkQP5egOUZIWoEA" & _
"kjIeIPBMBJBD+TBjBifwvkuc58hQJQPmFrYykkchclSApKjGOBuD+TRDFCfw3mmIxNi8FxFlOXhVC4aYDFyPgvg2YBcBcLZGCGCJ0DSLRzGSWQ/lmY5+mEP5gmMDBZRS" & _
"MRsFsOxMhMJJ/DsTpTnwaQaE+N5ojuNhdEYNI5C4TZJO1GRDmCaxnA2Yx4n8IpIjOTBQBQC5TgyYw7gUYRYikC0BYRwsDQBoB8eA6Q2hsE0BUXgywZtYCyHMKwnxSAhA" & _
"QHkIQhRrBaDsCwA4ERiB2EWAIYIXhhiVEgAEUYwwYjyASLge4FhHgRDkM8OQih0jWPkGgBBAQ"
	End With
	.ExploreFromHere = ""
	.ColumnFilterButton("Name") = True
	.FilterBarPromptVisible = 257 ' FilterBarVisibleEnum.exFilterBarToggle Or FilterBarVisibleEnum.exFilterBarPromptVisible
	.Background(1) = &H1000000
	.EndUpdate 
End With
246:
How can I change the visual appearance of the filter bar's close button (solid)

With ExFileView1
	.BeginUpdate 
	.ExploreFromHere = ""
	.ColumnFilterButton("Name") = True
	.FilterBarPromptVisible = 1
	.Background(1) = RGB(255,0,0)
	.EndUpdate 
End With
245:
Is it possible to prevent definitely showing the filter bar's close button

With ExFileView1
	.BeginUpdate 
	.ExploreFromHere = ""
	.ColumnFilterButton("Name") = True
	.FilterBarPromptVisible = 1
	.Background(1) = -1
	.EndUpdate 
End With
244:
Is it possible to show the close button only if there is a filter applied

With ExFileView1
	.BeginUpdate 
	.ExploreFromHere = ""
	.ColumnFilterButton("Name") = True
	.FilterBarPromptVisible = 513 ' FilterBarVisibleEnum.exFilterBarShowCloseIfRequired Or FilterBarVisibleEnum.exFilterBarPromptVisible
	.EndUpdate 
End With
243:
The control's filter bar is not closed once I click the close button (toggle)

With ExFileView1
	.BeginUpdate 
	.ExploreFromHere = ""
	.ColumnFilterButton("Name") = True
	.FilterBarCaption = "`<r><fgcolor=808080>` + value"
	.FilterBarPromptVisible = 2323 ' FilterBarVisibleEnum.exFilterBarCompact Or FilterBarVisibleEnum.exFilterBarToggle Or FilterBarVisibleEnum.exFilterBarSingleLine Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
	.EndUpdate 
End With
242:
How can I display the control's filter on a single line

With ExFileView1
	.BeginUpdate 
	.ExploreFromHere = ""
	.ColumnFilterButton("Name") = True
	.FilterBarCaption = "len(value) ? `filter for: <fgcolor 808080>` + value  : `<fgcolor 808080>no filter`"
	.FilterBarPromptVisible = 18 ' FilterBarVisibleEnum.exFilterBarSingleLine Or FilterBarVisibleEnum.exFilterBarVisible
	.EndUpdate 
End With
241:
How can I display the control's filter on a single line (prompt-combined)

With ExFileView1
	.BeginUpdate 
	.ExploreFromHere = ""
	.ColumnFilterButton("Name") = True
	.FilterBarCaption = "`<r>` + value"
	.FilterBarPromptVisible = 2067 ' FilterBarVisibleEnum.exFilterBarCompact Or FilterBarVisibleEnum.exFilterBarSingleLine Or FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
	.EndUpdate 
End With
240:
Is it possible to prevent closing the control's filter bar, so it is always shown (prompt-combined)

With ExFileView1
	.BeginUpdate 
	.ExploreFromHere = ""
	.ColumnFilterButton("Name") = True
	.FilterBarPromptVisible = 3 ' FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
	.EndUpdate 
End With
239:
Is it possible to prevent closing the control's filter bar, so it is always shown (prompt)

With ExFileView1
	.BeginUpdate 
	.ExploreFromHere = ""
	.ColumnFilterButton("Name") = True
	.FilterBarPromptVisible = 1
	.EndUpdate 
End With
238:
Is it possible to prevent closing the control's filter bar, so it is always shown

With ExFileView1
	.BeginUpdate 
	.ExploreFromHere = ""
	.ColumnFilterButton("Name") = True
	.FilterBarCaption = "len(value) = 0 ? `<fgcolor=808080>no filter` : value"
	.FilterBarPromptVisible = 2
	.EndUpdate 
End With
237:
Is it possible to show the selection with a different color, when the control loses the focus

With ExFileView1
	.BeginUpdate 
	.SingleSel = False
	.ExploreFromHere = ""
	.HideSelection = False
	.Background(166) = RGB(224,224,224)
	.Background(167) = RGB(64,64,64)
	.EndUpdate 
End With
236:
Predefined Keywords of ShowContextMenu property

' StateChange event - Fired while the control's state has been changed.
Private Sub ExFileView1_StateChange(ByVal State As Long)
	With ExFileView1
		.ExecuteContextMenu = 0
	End With
End Sub

With ExFileView1
	.ExploreFromHere = ""
	.ShowContextMenu = "`menu(` + menu + `)` + `,filecount=` + filecount + `,fileattr=` + hex(fileattr) + `,filename=` + filename + `,fileparsename=` +" & _
" fileparsename + `,filefullname=` + filefullname"
End With
235:
How can I change the visual appearance of the +/- buttons, open/close glyphs as current visual theme

With ExFileView1
	.BeginUpdate 
	.ExpandFolders = True
	With .VisualAppearance
		.Add 1,"XP:TREEVIEW 2 1"
		.Add 2,"XP:TREEVIEW 2 2"
	End With
	.Background(180) = &H1000000
	.Background(181) = &H2000000
	.EndUpdate 
End With
234:
How can I find if the control is running in DPI mode
With ExFileView1
	Debug.Print( .FormatABC("dpi = 1 ? `normal/stretch mode` : `dpi mode`") )
End With
233:
How can I change the visual appearance of the +/- buttons

With ExFileView1
	.BeginUpdate 
	.ExpandFolders = True
	With .VisualAppearance
		.Add 1,"gBFLBCJwBAEHhEJAAEhABDwCg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQS" & _
"BcQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+Opf" & _
"DxXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4" & _
"llWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJegef4zluaJ3nqPJeCYH4BAeX5TDLBpVGqKRRnwf4flefZtHsX54BYAR/F+EwVnUd5eAMMJKDIChygyIQpAoEh4iIJ5Jlg" & _
"XIcgCXpIGoFwnGEQh6BEKBgmMIICHgIJCAiUAzgyUoAhwJohkiRgygwYpiGoKwzGIcgKCkNQNCMRIbCYCRYk4QoMiOchWDwNBjhiJJaDYTRiGiFwlCQAhOE8JBJHITIR" & _
"gwZRZFCFCZBkOIUhKTRpCWAwgGYQ4El4NxlBifIWCcCYCFoaoMGaKYyG6GxlBmGJdhkCAWBIeA5g4U4QhMJAImkPIShRVxGgQJRlCIUISh+SJpnCZIeBgFgiHgO4OlOM" & _
"INCISByECDQikkGhuh2JwpmqBogCKaYiC6FwhmkQ4yHgYgYiaHopiuaRakCbIsisSpGjYOwaHYKYMCkK5CA2IxrCwCwFigaJrkLTI6lcdANAEgIA="
		.Add 2,"gBFLBCJwBAEHhEJAAEhABEICg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQS" & _
"BcQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+Opf" & _
"DxXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4" & _
"llWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJeg8X4rluaZ3niGB+AQHx/EyShjjEVYqiUR5rnmex/GAB5+AIf4gEeXJFHyXZ3gCTAygyAociMKBKEKBIeCiCZyHYFAnCE" & _
"eBkh+BghFgRIegOCgYCySAgh4CAkgINAMmMNIgCcCYjn4LoLmMCJGDKC5ijIagoDMYhCAoJg1A0IxEhsJgJFiThChCY5yFYPA0GOGIYloNhNGIaIXCUJACE4TwkEkchO" & _
"FSFYlFkXhUCUCQZEYTglCSMxaEkYJIBmFJhDeDZZEYPwlgmQhghaGqVDoa4bGaeY6FGGZNlmFIBGEJ4jhiZQ5AkMhAg6E5JCkRoGCUSQ6B6CYiSCBIOh+DhJmmARiWQO" & _
"JtDsCJSCSBwkXSLIRicaZ6HqIIomoIguhwIpphIHoWDsJ4mCGChpmqOpGheLIOkqUo2iya4DjGJxihiQoSj4IJaDaMpCjCWoGg6PgpBiQ4tHcQJQBAgI="
	End With
	.Background(180) = &H1000000
	.Background(181) = &H2000000
	.EndUpdate 
End With
232:
How can I copy/execute command a file/folder as path (selection)

With ExFileView1
	.BeginUpdate 
	.SingleSel = False
	.ExploreFromHere = ""
	.ExpandFolders = True
	.Select "*"
	.ExecuteContextCommand "<selection>",True,"Copy As Path"
	.EndUpdate 
End With
231:
How can I programmatically selects all items

With ExFileView1
	.BeginUpdate 
	.ExpandFolders = True
	.SingleSel = False
	.ExploreFromHere = ""
	.Select "*"
	.EndUpdate 
End With
230:
How can I clear the current selection
With ExFileView1
	.BeginUpdate 
	.ExpandFolders = True
	.ExploreFromHere = ""
	.SingleSel = False
	.Select ""
	.EndUpdate 
End With
229:
I know the Expand method selects a folder, the question is if it is possible to prevent expanding it, so just select it

With ExFileView1
	.BeginUpdate 
	.ExpandFolders = True
	.ExploreFromHere = "c:\"
	.SingleSel = False
	.Select "Temp"
	.Select "Windows"
	.EndUpdate 
End With
228:
How can I display the identifiers of the control's context menu (debug)

' StateChange event - Fired while the control's state has been changed.
Private Sub ExFileView1_StateChange(ByVal State As Long)
	With ExFileView1
		Debug.Print( "State" )
		Debug.Print( State )
		Debug.Print( "ExecuteContextMenu" )
		Debug.Print( .ExecuteContextMenu )
	End With
End Sub

With ExFileView1
	.ExploreFromHere = ""
	.SingleSel = False
	.ShowContextMenu = "`[debug]` + menu"
End With
227:
How can I copy/execute command a file/folder (selection)
With ExFileView1
	.BeginUpdate 
	.SingleSel = False
	.ExploreFromHere = "c:\"
	.ExpandFolders = True
	.Expand "c:\Temp"
	.ExecuteContextCommand "<selection>",True,"Copy"
	.EndUpdate 
End With
226:
How can I copy a file/folder (absolute name)
With ExFileView1
	.BeginUpdate 
	.ExploreFromHere = "c:\"
	.ExecuteContextCommand "c:\Temp",True,"Copy"
	.EndUpdate 
End With
225:
How can I copy a file/folder (relative name)
With ExFileView1
	.BeginUpdate 
	.ExploreFromHere = "c:\"
	.ExecuteContextCommand "Temp",True,"Copy"
	.EndUpdate 
End With
224:
ShowContextMenu usage

' StateChange event - Fired while the control's state has been changed.
Private Sub ExFileView1_StateChange(ByVal State As Long)
	With ExFileView1
		Debug.Print( "State" )
		Debug.Print( State )
		Debug.Print( "ExecuteContextMenu" )
		Debug.Print( .ExecuteContextMenu )
	End With
End Sub

With ExFileView1
	.SingleSel = False
	.FullRowSelect = True
	.ShowContextMenu = "filecount = 0 ? `Exit[id=1000]` : ( ( ( filecount = 1 ) ? filename : `multiple selection` ) + `[dis],[sep],` + menu)"
End With
223:
ShowContextMenu usage

' StateChange event - Fired while the control's state has been changed.
Private Sub ExFileView1_StateChange(ByVal State As Long)
	With ExFileView1
		Debug.Print( "State" )
		Debug.Print( State )
		Debug.Print( "ExecuteContextMenu" )
		Debug.Print( .ExecuteContextMenu )
	End With
End Sub

With ExFileView1
	.ExploreFromHere = ""
	.SingleSel = False
	.FullRowSelect = True
	.ShowContextMenu = "filecount > 1 ? `multiple selection[dis]` : menu"
End With
222:
ShowContextMenu usage

' StateChange event - Fired while the control's state has been changed.
Private Sub ExFileView1_StateChange(ByVal State As Long)
	With ExFileView1
		Debug.Print( "State" )
		Debug.Print( State )
		Debug.Print( "ExecuteContextMenu" )
		Debug.Print( .ExecuteContextMenu )
	End With
End Sub

With ExFileView1
	.ExploreFromHere = ""
	.SingleSel = False
	.FullRowSelect = True
	.ShowContextMenu = "filecount > 1 ? `multiple selection[dis]` : menu"
End With
221:
ShowContextMenu usage

' StateChange event - Fired while the control's state has been changed.
Private Sub ExFileView1_StateChange(ByVal State As Long)
	With ExFileView1
		Debug.Print( "State" )
		Debug.Print( State )
		Debug.Print( "ExecuteContextMenu" )
		Debug.Print( .ExecuteContextMenu )
	End With
End Sub

With ExFileView1
	.ExploreFromHere = ""
	.SingleSel = False
	.FullRowSelect = True
	.ExpandFolders = True
	.IncludeFilesInFolder = True
	.ShowContextMenu = "menu replace `Delete` with `Delete[dis]`"
End With
220:
ShowContextMenu usage

' StateChange event - Fired while the control's state has been changed.
Private Sub ExFileView1_StateChange(ByVal State As Long)
	With ExFileView1
		Debug.Print( "State" )
		Debug.Print( State )
		Debug.Print( "ExecuteContextMenu" )
		Debug.Print( .ExecuteContextMenu )
	End With
End Sub

With ExFileView1
	.ExploreFromHere = ""
	.SingleSel = False
	.FullRowSelect = True
	.ExpandFolders = True
	.IncludeFilesInFolder = True
	.ShowContextMenu = "menu replace `&Delete` with ``"
End With
219:
ShowContextMenu usage

' StateChange event - Fired while the control's state has been changed.
Private Sub ExFileView1_StateChange(ByVal State As Long)
	With ExFileView1
		Debug.Print( "State" )
		Debug.Print( State )
		Debug.Print( "ExecuteContextMenu" )
		Debug.Print( .ExecuteContextMenu )
	End With
End Sub

With ExFileView1
	.ExploreFromHere = ""
	.SingleSel = False
	.FullRowSelect = True
	.ShowContextMenu = "`Popup(Item 1[id=1001],Item 2[id=1002],Item 3[id=1003]),` + menu + `,Exit[id=1000]`"
End With
218:
ShowContextMenu usage

' StateChange event - Fired while the control's state has been changed.
Private Sub ExFileView1_StateChange(ByVal State As Long)
	With ExFileView1
		Debug.Print( "State" )
		Debug.Print( State )
		Debug.Print( "ExecuteContextMenu" )
		Debug.Print( .ExecuteContextMenu )
	End With
End Sub

With ExFileView1
	.ExploreFromHere = ""
	.SingleSel = False
	.FullRowSelect = True
	.ShowContextMenu = "filecount = 0 ? `Popup(Item 1[id=1001],Item 2[id=1002],Item 3[id=1003]),[sep],Exit[def][id=1000]` : menu"
End With
217:
ShowContextMenu usage

' StateChange event - Fired while the control's state has been changed.
Private Sub ExFileView1_StateChange(ByVal State As Long)
	With ExFileView1
		Debug.Print( "State" )
		Debug.Print( State )
		Debug.Print( "ExecuteContextMenu" )
		Debug.Print( .ExecuteContextMenu )
	End With
End Sub

With ExFileView1
	.ExploreFromHere = ""
	.FullRowSelect = True
	.ShowContextMenu = "Popup(Item 1[id=1001],Item 2[id=1002],Item 3[id=1003]),[sep],Exit[def][id=1000]"
End With
216:
ShowContextMenu usage
' StateChange event - Fired while the control's state has been changed.
Private Sub ExFileView1_StateChange(ByVal State As Long)
	With ExFileView1
		Debug.Print( "State" )
		Debug.Print( State )
		Debug.Print( "ExecuteContextMenu" )
		Debug.Print( .ExecuteContextMenu )
		Debug.Print( "no context menu is generated, so nothing is displayed" )
	End With
End Sub

With ExFileView1
	.ExploreFromHere = ""
	.FullRowSelect = True
	.ShowContextMenu = "``"
End With
215:
How can I add new items to the default file's context menu

' StateChange event - Fired while the control's state has been changed.
Private Sub ExFileView1_StateChange(ByVal State As Long)
	With ExFileView1
		Debug.Print( "State " )
		Debug.Print( State )
		Debug.Print( "ContextMenu" )
		Debug.Print( .ShowContextMenu )
		.ShowContextMenu = .FormatABC("B = 20 ? ( `My First Popup[def](A,B,C),[sep],`+ value + `,[sep],My Last Popup[def](A,B,C)` ) : value",.ShowContextMenu,State)
		Debug.Print( "Execute" )
		Debug.Print( .ExecuteContextMenu )
	End With
End Sub

With ExFileView1
	.ExploreFromHere = ""
End With
214:
Is it possible to display the item's identifiers in the file's context menu

' StateChange event - Fired while the control's state has been changed.
Private Sub ExFileView1_StateChange(ByVal State As Long)
	With ExFileView1
		Debug.Print( "State " )
		Debug.Print( State )
		Debug.Print( "ContextMenu" )
		Debug.Print( .ShowContextMenu )
		.ShowContextMenu = .FormatABC("B = 20 ? (`[debug]`+ value) : value ",.ShowContextMenu,State)
	End With
End Sub


213:
How can I remove the Delete command from the file's context menu

' StateChange event - Fired while the control's state has been changed.
Private Sub ExFileView1_StateChange(ByVal State As Long)
	With ExFileView1
		Debug.Print( "State " )
		Debug.Print( State )
		Debug.Print( "ContextMenu" )
		Debug.Print( .ShowContextMenu )
		.ShowContextMenu = .FormatABC("value replace `&Delete` with ``",.ShowContextMenu)
	End With
End Sub


212:
How do I execute a command from the file's content menu (sample 2)

With ExFileView1
	.BeginUpdate 
	.ExploreFromHere = ""
	.ExecuteContextCommand "C:\",True,"20"
	.EndUpdate 
End With
211:
How can I simulate the left-side of the Windows Explorer

With ExFileView1
	.BeginUpdate 
	.ColumnsVisible = 2
	.ExpandFolders = True
	.ExploreFromHere = "::{450d8fba-ad25-11d0-98a8-0800361b1103}|::{018D5C66-4533-4307-9B53-224DE2ED1FE6}|::{20D04FE0-3AEA-1069-A2D8-08002B30309D}|::{F" & _
"02C1A0D-BE21-4350-88B0-7367FC96EF3C}"
	.Expand "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}"
	.EndUpdate 
End With
210:
How can I add the "Control Panel" folder

With ExFileView1
	.BeginUpdate 
	.ColumnsVisible = 2
	.ExpandFolders = True
	.ExploreFromHere = "::{26EE0668-A00A-44D7-9371-BEB064C98683}>"
	.EndUpdate 
End With
209:
How can I add the "My Documents"

With ExFileView1
	.IncludeFilesInFolder = True
	.ExpandFolders = True
	.ExploreFromHere = "::{450d8fba-ad25-11d0-98a8-0800361b1103}>"
End With
208:
How can I add the Printers and Faxes

With ExFileView1
	.ExpandFolders = True
	.ColumnsVisible = 2
	.IncludeFilesInFolder = True
	.ExploreFromHere = "::{2227a280-3aea-1069-a2de-08002b30309d}>"
End With
207:
How can I add the Network Connections

With ExFileView1
	.BeginUpdate 
	.ExpandFolders = True
	.ColumnsVisible = 2
	.IncludeFilesInFolder = True
	.ExploreFromHere = "::{7007acc7-3202-11d1-aad2-00805fc1270e}>"
	.EndUpdate 
End With
206:
How can I add the "Recycle Bin" folder

With ExFileView1
	.ExpandFolders = True
	.IncludeFilesInFolder = True
	.ExploreFromHere = "::{645FF040-5081-101B-9F08-00AA002F954E}>"
End With
205:
How can I add the "Documents" folder

With ExFileView1
	.ExpandFolders = True
	.ExploreFromHere = "::{450D8FBA-AD25-11D0-98A8-0800361B1103}>"
End With
204:
How can I add the "Control Panel" folder

With ExFileView1
	.BeginUpdate 
	.ColumnsVisible = 2
	.ExpandFolders = True
	.IncludeFilesInFolder = True
	.ExploreFromHere = "::{21EC2020-3AEA-1069-A2DD-08002b30309d}>"
	.EndUpdate 
End With
203:
How can I add the Network folder

With ExFileView1
	.ExpandFolders = True
	.ExploreFromHere = "::{F02C1A0D-BE21-4350-88B0-7367FC96EF3C}>"
End With
202:
How can I add the My Computer

With ExFileView1
	.ExpandFolders = True
	.ExploreFromHere = "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}>"
End With
201:
How can I add the My Network Places folder

With ExFileView1
	.ExpandFolders = True
	.ExploreFromHere = "::{208D2C60-3AEA-1069-A2D7-08002B30309D}>"
End With