程序代码：

cDefPath = ADDBS(JUSTPATH(SYS(16)))
SET DEFAULT TO (cDefPath)
USE vfp_dyb
of = CREATEOBJECT("form1")
of.show(1)
CLOSE TABLES ALL 
CLEAR ALL
RETURN

DEFINE CLASS form1 AS Form
    width = 1020
    height = 500
    AutoCenter = 1
    ADD OBJECT grid1 as grid WITH left=10,top=10,width=300,height=480,AllowCellSelection=0
    ADD OBJECT wb as Olecontrol WITH left=320,top=10,width=700,height=480,OleClass="Shell.Explorer.2",Visible=1

    PROCEDURE Init
        this.wb.Silent = .T.
        this.grid1.click
    ENDPROC

    PROCEDURE grid1.Click
        thisform.wb.Navigate(cDefPath + TRANSFORM(id)+".html")
    ENDPROC
ENDDEFINE