Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
oWS = CREATEOBJECT([WScript.Shell])
lnFiles = ADIR(laFiles,[FULLPATH\*.EXT])
FOR lnFor = 1 TO lnFiles
IF NOT LEFT(laFiles[lnFor,1],1) == [.]
lcCommand = [Notepad ]+FULLPATH+[\]+laFiles[lnFor,1]
oWS.Run(lcCommand, 3, .f.)
ENDIF
NEXT