Show Windows Explorer in a form 2

[Rutsagig]

Regards.

I want to show in a form a folder content as if it were the windows explorer.
I could do it with the OLE Microsoft Web Browser control and this code in the form init:

lcFolderName = 'C:\tmp'
THIS.Olecontrol1.Navigate(lcFolderName)

This works like a charm: I can delete and rename files and even add them with drag and drop from Windows.
The only problem is it shows files as large icons and I want to show the details list view.
How can I do this?

Thanks in advance.

 

[Mike Lewis]

I've never heard of the OLE Microsoft Windows Browser control. Do you mean the Web Browser control?

Mike

__________________________________
Mike Lewis (Edinburgh, Scotland)

Visual FoxPro articles, tips and downloads

 

[StefanFoerner]

Hi Rutsagig,

You can send the control keys SHIFT+CTRL+1 to SHIFT+CTRL+8

Put a command button on the form and the following code into the click event:

LOCAL WshShell

WITH THISFORM.OleControl1
	.SetFocus
	
	WshShell = CREATEOBJECT( "Wscript.Shell" )
	
	WshShell.SendKeys( "+^6" )
ENDWITH

"+^6" means SHIFT+CTRL+6

"+" means SHIFT
"^" means CTRL
"%" means ALT

take a look at the complete description of SendKeys:

https://docs.microsoft.com/en-us/of...erence/user-interface-help/sendkeys-statement

Regards, Stefan

 

[Rutsagig]

Yes, it was Web Browser instead of windows browser, I fixed it.
Thanks StefanFoerner, your code works like a charm. Only that in my case the shortcut is Ctrl + Alt instead of Shift + Control
With Control + + I can autoadjust the columns
Thanks again

 

[StefanFoerner]

Hi Rutsagig,

I am using a German Windows 10

maybe the control keys differ between German and English version . . .

CTRL++ works for me too (thank You) !!!

Regards, Stefan

 

[StefanFoerner]

an addendum:

You can also press the CTRL-key and rotate the mouse wheel up and down to switch through the possible views !!!

Regards, Stefan