Add Method (File Object)
Adds a file to a project.
Applies To: Files Collection
The Add method is a method for the files collection. When a file is added to a project with the Add method, a File object is created for the file, and the File object is added to the Files collection.
An object reference to the newly added file is returned if the file is successfully added to the project. The null value is returned if the file can't be added to the project.
The QueryAddFile event occurs just before a file is added to a project. If NODEFAULT is specified in the QueryAddFile event, the file isn't added to the project.
Include NODEFAULT in the QueryAddFile event to prevent a file from being added to the project.
The following example programmatically creates a Project and then builds an executable (EXE) from that Project. It uses the Add method to add program code to the project.
SET SAFETY OFF LOCAL lcCode TEXT TO lcCode NOSHOW CLEAR PUBLIC loForm SET TALK OFF SET DELETED ON SET EXCLUSIVE OFF SET CENTURY ON ON SHUTDOWN clear events loForm = CREATEOBJECT('Test1') loForm.Show(0) READ EVENTS ON SHUTDOWN RETURN DEFINE CLASS Test1 as Form Top = 0 Left = 0 Width = 240 Height = 150 Caption = 'Add Method sample' ShowWindow = 2 ADD OBJECT cmdClose as CommandButton WITH ; Caption = '\<Close', ; Top = 80, ; Left = 80, ; Height = 24, ; Width = 80 ADD OBJECT lblTitle as Label WITH ; Top = 30, ; Left = 40, ; Height = 34, ; Width = 160, ; Caption = 'This sample was made programmatically.'; WordWrap = .t. PROCEDURE Init SET TALK off ThisForm.AutoCenter = .t. ENDPROC PROCEDURE Unload CLEAR EVENTS ENDPROC PROCEDURE cmdClose.Click ThisForm.Release() ENDPROC ENDDEFINE ENDTEXT STRTOFILE(lcCode, 'addsample.prg') CREATE PROJECT 'AddSample' NOSHOW NOWAIT SAVE LOCAL loPJX loPJX = _VFP.ActiveProject WITH loPJX .Files.Add('addsample.prg') .SetMain('addsample.prg') .Build('addsample.exe',3,.t.,.t.,.f.) .Close() ENDWITH RUN /n addsample.exe