Adds a file to a project.
- Specifies the name of the file to add to the project. An error is generated if the file you specify does not exist. The Project Manager window, if open, is refreshed after the file has been added.
Applies To: Files Collection
The 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 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 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