>******************************************************************** >* Description.......: cmdSelectFiles.Click >* Calling Samples...: >* Parameter List....: >* Created by........: >* Modified by.......: Nadya Nosonovsky 11/14/2001 04:09:00 PM >******************************************************************** >local DTitle, lcFilter, lcPath, lcStartDir, lnFiles, lnI >local array laTbls[1] >laTbls[1]='' >DTitle = "Select BldMstr like Files to check structure..." >* Text (*.txt)|*.txt|Pictures (*.bmp;*.ico)|*.bmp;*.ico >lcFilter = "BldMstr Files (*.dbf)|*.dbf|All Files (*.*)|*.*" >lcPath='' >lcStartDir= "\redp\work\" >lnFiles = File_Chooser(@laTbls, @lcPath, m.DTitle, m.lcStartDir, m.lcFilter) > >if m.lnFiles > 0 <b>dimension thisForm.aTbls(alen(laTbls))</b> > for lnI=1 to m.lnFiles > thisform.aTbls[m.lnI]=addbs(m.lcPath)+laTbls[m.lnI] > next >endif >thisform.nSelFiles =m.lnFiles>