>Hi all
>I have a project with 70 reports. it is difficult to add these reports one by one to the project.
>Is any way to add these files in another way?
>Thanks

Reza,

This will add all Reports of one directory to the project
You'll have to modify it to suit your needs

local oProject, i, n, aa[1], FileName, obj

modify project Reza nowait
oProject = Application.ActiveProject

n = adir(aa, '*.frx')
for i = 1 to m.n
    FileName = aa[m.i, 1]
    obj = oProject.Files.Add(m.FileName)

    if( isnull(m.obj) )
        error 'Could not add file ' + m.FileName
  
    endif
endfor

=oProject.CleanUp()
=Application.ActiveProject.Close()