Explorer in VFP Form

Public oform1
oform1=Newobject("form1")
oform1.Show

Return

Define Class form1 As Form
DoCreate = .T.
Caption = "Explorer"
Name = "Form1"
HEIGHT = _Screen.Height - 2
Width = _Screen.Width - 2

Add Object ole1 As OleControl With ;
Top = 26, ;
Left = 0, ;
Height = _Screen.Height-4, ;
Width = _Screen.Width-4, ;
Name = "Ole1" ,;
OleClass = "Shell.Explorer.2"

Add Object command1 As CommandButton With ;
AutoSize = .T., ;
Top = 0, ;
Left = 0, ;
Height = 28, ;
Width = 114, ;
Caption = "Arata Continut FOLDER", ;
Name = "Command1"

Procedure Init
This.ole1.Object.Navigate2("file:///C:/")
EndProc

Procedure command1.Click
Local cDir
*cDir = Getdir(",",",2)
cDir = Getdir()
Thisform.ole1.Navigate2(cDir)
EndProc

ENDDEFINE