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.
[color blue]THIS.Release()[/color]
[color blue]LOCAL lcCurDir ,;
[tab]lcFileName ,;
[tab]lcFileList ,;
[tab]lcPath
lcCurDir = CURDIR()
WITH THIS
[tab].Left = 350
[tab].Top = 425
[tab].olecontrol1.Filter = [All Files|*.*|JPG Files|*.jpg|BMP Files|*.bmp]
[tab].olecontrol1.FilterIndex = 1
[tab].olecontrol1.DialogTitle = [Open files]
[tab].olecontrol1.MaxFileSize = 32767
[tab].olecontrol1.Flags = BITOR(0x4, 0x10, 0x200, 0x800, 0x1000, 0x8000, 0x40000, 0x80000)
[tab].olecontrol1.InitDir = [C:\]
[tab].olecontrol1.ShowOpen()
[tab]lcFilelist = .olecontrol1.FileName
[tab]lcFileName = []
[tab]lcPath = []
ENDWITH
CREATE CURSOR FILENAMES (filename C(254))
DO CASE
CASE EMPTY(lcFileList)
[tab]USE IN SELECT([FILENAMES])
CASE OCCURS(CHR(0),lcFileList) = 0
[tab]INSERT INTO FILENAMES (filename) VALUES (lcFileList)
OTHERWISE
[tab]FOR i = 0 TO OCCURS(CHR(0),lcFileList)
[tab][tab]IF i = 0
[tab][tab][tab]lcPath = SUBSTR(lcFileList,1,AT(CHR(0),lcFileList))
[tab][tab][tab]lcFileList = SUBSTR(lcFileList,AT(CHR(0),lcFileList) + 1)
[tab][tab]ELSE
[tab][tab][tab]IF CHR(0) $ lcFileList
[tab][tab][tab][tab]lcFileName = SUBSTR(lcFileList,1,AT(CHR(0),lcFileList))
[tab][tab][tab][tab]lcFileList = SUBSTR(lcFileList,AT(CHR(0),lcFileList) + 1)
[tab][tab][tab]ELSE
[tab][tab][tab][tab]lcFileName = lcFileList
[tab][tab][tab]ENDI
[tab][tab][tab]INSERT INTO FILENAMES ;
[tab][tab][tab][tab](filename);
[tab][tab][tab][tab]VALUES ;
[tab][tab][tab][tab](ADDBS(lcPath) + lcFileName)
[tab][tab]ENDIF
[tab]ENDFOR
ENDCASE
SET DEFA TO (lcCurDir)[/color]