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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

268:
Displays the date-time with no seconds part

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

267:
Displays the Modified column in long date format, as specified in the control's panel ( no time is displayed )

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

265:
Displays the modified date without the time

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

264:
Displayes the modified time with a different color

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

263:
Displays all files/folders modified n days ago, with white on a black background

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

262:
Displays today for all files/folders modified today, yesterday for all files modified yesterday, else "%i day(s) ago"

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

261:
Displays today for all files/folders else "%i day(s) ago"

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.BeginUpdate 
		.ExploreFromHere = ""
		.ExpandFolders = True
		.ColumnFilterButton("Name") = True
		.ModifiedDaysAgo = 31
		.ColumnsVisible = 26 ' FileColumnEnum.exFileColumnModified Or FileColumnEnum.exFileColumnType Or FileColumnEnum.exFileColumnName
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

260:
FilterBarCaption ALL Keyword ( sample 2, result )

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

259:
FilterBarCaption ALL Keyword ( sample 1 )

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

258:
FilterBarCaption ALLUI Keyword ( sample 2, result )

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

257:
FilterBarCaption ALLUI Keyword ( sample 1 )

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

256:
FilterBarCaption AVAILABLE Keyword ( sample 2, result )

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

255:
FilterBarCaption AVAILABLE Keyword ( sample 1 )

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

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 )

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

253:
Is it possible to somehow highlight the column's name different than its filter value in the control's filter bar ( sample 2 )

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

252:
Is it possible to somehow highlight the column's name different than its filter value in the control's filter bar ( sample 1 )

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

251:
How can I get the number of results/items being shown in the control's filter bar (sample 4)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

250:
FilterBarCaption Predefined Keywords

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

248:
Just wondering if it is possible to show the filter bar's close button on the right ( sample 2 )

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

247:
How can I change the visual appearance of the filter bar's close button (EBN)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

246:
How can I change the visual appearance of the filter bar's close button (solid)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.BeginUpdate 
		.ExploreFromHere = ""
		.ColumnFilterButton("Name") = True
		.FilterBarPromptVisible = 1
		.Background(1) = RGB(255,0,0)
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

245:
Is it possible to prevent definitely showing the filter bar's close button

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.BeginUpdate 
		.ExploreFromHere = ""
		.ColumnFilterButton("Name") = True
		.FilterBarPromptVisible = 1
		.Background(1) = -1
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

244:
Is it possible to show the close button only if there is a filter applied

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.BeginUpdate 
		.ExploreFromHere = ""
		.ColumnFilterButton("Name") = True
		.FilterBarPromptVisible = 513 ' FilterBarVisibleEnum.exFilterBarShowCloseIfRequired Or FilterBarVisibleEnum.exFilterBarPromptVisible
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

243:
The control's filter bar is not closed once I click the close button (toggle)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

242:
How can I display the control's filter on a single line

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

241:
How can I display the control's filter on a single line (prompt-combined)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

240:
Is it possible to prevent closing the control's filter bar, so it is always shown (prompt-combined)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.BeginUpdate 
		.ExploreFromHere = ""
		.ColumnFilterButton("Name") = True
		.FilterBarPromptVisible = 3 ' FilterBarVisibleEnum.exFilterBarVisible Or FilterBarVisibleEnum.exFilterBarPromptVisible
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

239:
Is it possible to prevent closing the control's filter bar, so it is always shown (prompt)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.BeginUpdate 
		.ExploreFromHere = ""
		.ColumnFilterButton("Name") = True
		.FilterBarPromptVisible = 1
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

238:
Is it possible to prevent closing the control's filter bar, so it is always shown

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.BeginUpdate 
		.ExploreFromHere = ""
		.ColumnFilterButton("Name") = True
		.FilterBarCaption = "len(value) = 0 ? `<fgcolor=808080>no filter` : value"
		.FilterBarPromptVisible = 2
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

237:
Is it possible to show the selection with a different color, when the control loses the focus

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.BeginUpdate 
		.SingleSel = False
		.ExploreFromHere = ""
		.HideSelection = False
		.Background(166) = RGB(224,224,224)
		.Background(167) = RGB(64,64,64)
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

236:
Predefined Keywords of ShowContextMenu property

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ExFileView1_StateChange(State)
	With ExFileView1
		.ExecuteContextMenu = 0
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.ExploreFromHere = ""
		.ShowContextMenu = "`menu(` + menu + `)` + `,filecount=` + filecount + `,fileattr=` + hex(fileattr) + `,filename=` + filename + `,fileparsename=` +" & _
	" fileparsename + `,filefullname=` + filefullname"
	End With
End Function
</SCRIPT>
</BODY>

235:
How can I change the visual appearance of the +/- buttons, open/close glyphs as current visual theme

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

234:
How can I find if the control is running in DPI mode
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		alert( .FormatABC("dpi = 1 ? `normal/stretch mode` : `dpi mode`") )
	End With
End Function
</SCRIPT>
</BODY>

233:
How can I change the visual appearance of the +/- buttons

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

232:
How can I copy/execute command a file/folder as path (selection)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.BeginUpdate 
		.SingleSel = False
		.ExploreFromHere = ""
		.ExpandFolders = True
		.Select "*"
		.ExecuteContextCommand "<selection>",True,"Copy As Path"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

231:
How can I programmatically selects all items

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.BeginUpdate 
		.ExpandFolders = True
		.SingleSel = False
		.ExploreFromHere = ""
		.Select "*"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

230:
How can I clear the current selection
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.BeginUpdate 
		.ExpandFolders = True
		.ExploreFromHere = ""
		.SingleSel = False
		.Select ""
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

229:
I know the Expand method selects a folder, the question is if it is possible to prevent expanding it, so just select it

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.BeginUpdate 
		.ExpandFolders = True
		.ExploreFromHere = "c:\"
		.SingleSel = False
		.Select "Temp"
		.Select "Windows"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

228:
How can I display the identifiers of the control's context menu (debug)

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ExFileView1_StateChange(State)
	With ExFileView1
		alert( "State" )
		alert( State )
		alert( "ExecuteContextMenu" )
		alert( .ExecuteContextMenu )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.ExploreFromHere = ""
		.SingleSel = False
		.ShowContextMenu = "`[debug]` + menu"
	End With
End Function
</SCRIPT>
</BODY>

227:
How can I copy/execute command a file/folder (selection)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.BeginUpdate 
		.SingleSel = False
		.ExploreFromHere = "c:\"
		.ExpandFolders = True
		.Expand "c:\Temp"
		.ExecuteContextCommand "<selection>",True,"Copy"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

226:
How can I copy a file/folder (absolute name)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.BeginUpdate 
		.ExploreFromHere = "c:\"
		.ExecuteContextCommand "c:\Temp",True,"Copy"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

225:
How can I copy a file/folder (relative name)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.BeginUpdate 
		.ExploreFromHere = "c:\"
		.ExecuteContextCommand "Temp",True,"Copy"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

224:
ShowContextMenu usage

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ExFileView1_StateChange(State)
	With ExFileView1
		alert( "State" )
		alert( State )
		alert( "ExecuteContextMenu" )
		alert( .ExecuteContextMenu )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.SingleSel = False
		.FullRowSelect = True
		.ShowContextMenu = "filecount = 0 ? `Exit[id=1000]` : ( ( ( filecount = 1 ) ? filename : `multiple selection` ) + `[dis],[sep],` + menu)"
	End With
End Function
</SCRIPT>
</BODY>

223:
ShowContextMenu usage

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ExFileView1_StateChange(State)
	With ExFileView1
		alert( "State" )
		alert( State )
		alert( "ExecuteContextMenu" )
		alert( .ExecuteContextMenu )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.ExploreFromHere = ""
		.SingleSel = False
		.FullRowSelect = True
		.ShowContextMenu = "filecount > 1 ? `multiple selection[dis]` : menu"
	End With
End Function
</SCRIPT>
</BODY>

222:
ShowContextMenu usage

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ExFileView1_StateChange(State)
	With ExFileView1
		alert( "State" )
		alert( State )
		alert( "ExecuteContextMenu" )
		alert( .ExecuteContextMenu )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.ExploreFromHere = ""
		.SingleSel = False
		.FullRowSelect = True
		.ShowContextMenu = "filecount > 1 ? `multiple selection[dis]` : menu"
	End With
End Function
</SCRIPT>
</BODY>

221:
ShowContextMenu usage

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ExFileView1_StateChange(State)
	With ExFileView1
		alert( "State" )
		alert( State )
		alert( "ExecuteContextMenu" )
		alert( .ExecuteContextMenu )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.ExploreFromHere = ""
		.SingleSel = False
		.FullRowSelect = True
		.ExpandFolders = True
		.IncludeFilesInFolder = True
		.ShowContextMenu = "menu replace `Delete` with `Delete[dis]`"
	End With
End Function
</SCRIPT>
</BODY>

220:
ShowContextMenu usage

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ExFileView1_StateChange(State)
	With ExFileView1
		alert( "State" )
		alert( State )
		alert( "ExecuteContextMenu" )
		alert( .ExecuteContextMenu )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.ExploreFromHere = ""
		.SingleSel = False
		.FullRowSelect = True
		.ExpandFolders = True
		.IncludeFilesInFolder = True
		.ShowContextMenu = "menu replace `&Delete` with ``"
	End With
End Function
</SCRIPT>
</BODY>

219:
ShowContextMenu usage

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ExFileView1_StateChange(State)
	With ExFileView1
		alert( "State" )
		alert( State )
		alert( "ExecuteContextMenu" )
		alert( .ExecuteContextMenu )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

218:
ShowContextMenu usage

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ExFileView1_StateChange(State)
	With ExFileView1
		alert( "State" )
		alert( State )
		alert( "ExecuteContextMenu" )
		alert( .ExecuteContextMenu )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

217:
ShowContextMenu usage

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ExFileView1_StateChange(State)
	With ExFileView1
		alert( "State" )
		alert( State )
		alert( "ExecuteContextMenu" )
		alert( .ExecuteContextMenu )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

216:
ShowContextMenu usage
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ExFileView1_StateChange(State)
	With ExFileView1
		alert( "State" )
		alert( State )
		alert( "ExecuteContextMenu" )
		alert( .ExecuteContextMenu )
		alert( "no context menu is generated, so nothing is displayed" )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.ExploreFromHere = ""
		.FullRowSelect = True
		.ShowContextMenu = "``"
	End With
End Function
</SCRIPT>
</BODY>

215:
How can I add new items to the default file's context menu

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ExFileView1_StateChange(State)
	With ExFileView1
		alert( "State " )
		alert( State )
		alert( "ContextMenu" )
		alert( .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)
		alert( "Execute" )
		alert( .ExecuteContextMenu )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

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

214:
Is it possible to display the item's identifiers in the file's context menu

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ExFileView1_StateChange(State)
	With ExFileView1
		alert( "State " )
		alert( State )
		alert( "ContextMenu" )
		alert( .ShowContextMenu )
		.ShowContextMenu = .FormatABC("B = 20 ? (`[debug]`+ value) : value ",.ShowContextMenu,State)
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

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

End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function ExFileView1_StateChange(State)
	With ExFileView1
		alert( "State " )
		alert( State )
		alert( "ContextMenu" )
		alert( .ShowContextMenu )
		.ShowContextMenu = .FormatABC("value replace `&Delete` with ``",.ShowContextMenu)
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

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

End Function
</SCRIPT>
</BODY>

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

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.BeginUpdate 
		.ExploreFromHere = ""
		.ExecuteContextCommand "C:\",True,"20"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

211:
How can I simulate the left-side of the Windows Explorer

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	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
End Function
</SCRIPT>
</BODY>

210:
How can I add the "Control Panel" folder

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.BeginUpdate 
		.ColumnsVisible = 2
		.ExpandFolders = True
		.ExploreFromHere = "::{26EE0668-A00A-44D7-9371-BEB064C98683}>"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

209:
How can I add the "My Documents"

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.IncludeFilesInFolder = True
		.ExpandFolders = True
		.ExploreFromHere = "::{450d8fba-ad25-11d0-98a8-0800361b1103}>"
	End With
End Function
</SCRIPT>
</BODY>

208:
How can I add the Printers and Faxes

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.ExpandFolders = True
		.ColumnsVisible = 2
		.IncludeFilesInFolder = True
		.ExploreFromHere = "::{2227a280-3aea-1069-a2de-08002b30309d}>"
	End With
End Function
</SCRIPT>
</BODY>

207:
How can I add the Network Connections

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.BeginUpdate 
		.ExpandFolders = True
		.ColumnsVisible = 2
		.IncludeFilesInFolder = True
		.ExploreFromHere = "::{7007acc7-3202-11d1-aad2-00805fc1270e}>"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

206:
How can I add the "Recycle Bin" folder

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.ExpandFolders = True
		.IncludeFilesInFolder = True
		.ExploreFromHere = "::{645FF040-5081-101B-9F08-00AA002F954E}>"
	End With
End Function
</SCRIPT>
</BODY>

205:
How can I add the "Documents" folder

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.ExpandFolders = True
		.ExploreFromHere = "::{450D8FBA-AD25-11D0-98A8-0800361B1103}>"
	End With
End Function
</SCRIPT>
</BODY>

204:
How can I add the "Control Panel" folder

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.BeginUpdate 
		.ColumnsVisible = 2
		.ExpandFolders = True
		.IncludeFilesInFolder = True
		.ExploreFromHere = "::{21EC2020-3AEA-1069-A2DD-08002b30309d}>"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

203:
How can I add the Network folder

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.ExpandFolders = True
		.ExploreFromHere = "::{F02C1A0D-BE21-4350-88B0-7367FC96EF3C}>"
	End With
End Function
</SCRIPT>
</BODY>

202:
How can I add the My Computer

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

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

201:
How can I add the My Network Places folder

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F26C97E5-3E86-4CE4-935B-A997AB3DDBE4" id="ExFileView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ExFileView1
		.ExpandFolders = True
		.ExploreFromHere = "::{208D2C60-3AEA-1069-A2D7-08002B30309D}>"
	End With
End Function
</SCRIPT>
</BODY>