directery contents

[spokex]

I have tried for some time to create a routine to retreive the contents of a directory, and put it into a table.
For example: all the *.jpg files in the c:\parts directory to be placed in the field of a table.

Any ideas are welcome.

Thanks,

Scott

 

[mm0000]

use table && table you want to store filename in

path = "C:/parts/"
ofs = create('scripting.filesystemobject')
nfiles = ADIR(arr,path+"*.*&quot
FOR ii = 1 TO nfiles
x = ofs.getfile(path+arr[ii,1]).name
if upper(justext(x)) = 'JPG'
append blank
replace field with x
endif
NEXT

use

 

[Mike Lewis]

Hi Scott,

You can use the ADIR() function to get the names of the files into an array. Then loop through the array, copying the filenames into your table.

Mike
Mike Lewis
Edinburgh, Scotland

http://www.ml-consult.demon.co.uk

 

[spokex]

The ADIR() is what I was missing. This is the code I was using with about 50% success.

dir pichome + '*.jpg' to file c:\test && for pictures
create table c:\testx (fname c(50), B c(50))
append from c:\test type sdf

Thanks

Scott