reading a directory for a existing files

hi there!

im new to vfp and i want to make a programm that reads a certain directory and which gives me back the number of the files in that directory and the filenames.

can someone tell me how it works in vfp it will really be great... thanks in advanced!

novelle

i've tried it but it seems that is not working... i have vfp 7.0 so with that code i get the number of the files in the directory how can i get then filename

thanks a lot its really a big help!

novelle

The ADIR() function gives you the information you need.

If you look at the help file here you see that the return value is the number of files foundthat match your specs. Element 1 of the array contains the filename you seek. Follow the example in the help page and you'll get it easily.

hi thanks again...

what i really like to do is like this

i=0;

WHILE i NOT EQUAL numbersOfFiles in the directory THEN DO

DELETE FROM tabelle_1 WHERE nr IN(SELECT nr FROM this file in the directory)

NEXT

i want to check if this Nr. already exist on those files in the directory and if it exist there i want to delete it to my Tabelle_1

do u get me thanks in advanced!!!

novelle

When you say:

>DELETE FROM tabelle_1 WHERE nr IN(SELECT nr FROM this file in the directory)

do you mean that nr is part of the filename or text inside the contents of the file

yes its a column in both tables, i mean in table_1 and all the files i want to look in the directory...

You can use filer that comes with VFP. ie:

lcStartDir = HOME()
*lnFiles = GetTree(lcStartDir,'*.dbf;*.cdx;*.fpt', 'myCursor', .t.)
lnFiles = GetTree(lcStartDir,'*.*', 'myCursor', .t.)
Local array arrSizeTot[1]
Select sum(FileSize) from myCursor into array arrSizeTot
  trans(iif(_Tally>0,arrSizeTot,0))+' bytes in '+trans(m.lnFiles)+' files.'

Select * ;
	from myCursor ;
	order by filepath, Isfolder desc, Filename

Function GetTree
Lparameters tcStartDir,tcSkeleton,tcCursorName,;
 tlSubfolders,;
 tlWholeWords,tlIgnoreCase,tlSearchAnd,tcSearch1,tcSearch2,tcSearch3
Create Cursor (tcCursorName) ;
 (filepath c(250), filename c(250), ;
 FileSize i, fattr c(8), createtime T, lastacc T, lastwrite T, IsFolder l)
Local oFiler, lnFound
oFiler = Createobject('filer.fileutil')
With oFiler
 .SearchPath = tcStartDir
 .FileExpression = tcSkeleton && Search for skeleton
 .Subfolder  = iif(tlSubfolders,1,0) && Check subfolders
 .IgnoreCase = iif(tlIgnoreCase,1,0)
 .WholeWords = iif(tlWholeWords,1,0)
 .SearchAnd  = iif(tlSearchAnd,1,0)
 .SearchText1 = iif(empty(tcSearch1),"",tcSearch1)
 .SearchText2 = iif(empty(tcSearch2),"",tcSearch2)
 .SearchText3 = iif(empty(tcSearch3),"",tcSearch3)
 lnFound = .Find(0)
 For ix=1 To lnFound
  With .Files(ix)
   If !(Bittest(.Attr,4) And .Name = '.')
    Insert Into (tcCursorName) ;
     (filepath, filename, FileSize, fattr, createtime, lastacc, lastwrite,IsFolder) ;
     values ;
     (.Path, .Name, .Size, Attr2Char(.Attr), ;
     Num2Time(.Datetime), Num2Time(.LastAccessTime), Num2Time(.LastWriteTime),Bittest(.Attr,4))
    IF Bittest(.Attr,4)
	    WAIT WINDOW NOWAIT "Folder: "+.Path
    endif
   Endif
  Endwith
 Endfor
ENDWITH
WAIT clear
Return lnFound

Function Num2Time
Lparameters tnFloat
Return Dtot({^1899/12/30}+Int(tnFloat))+86400*(tnFloat-Int(tnFloat))

Function Attr2Char
Lparameters tnAttr
Return ;
 IIF(Bittest(tnAttr,0),'RO','RW')+;
 IIF(Bittest(tnAttr,1),'H','_')+;
 IIF(Bittest(tnAttr,2),'S','_')+;
 IIF(Bittest(tnAttr,4),'D','_')+;
 IIF(Bittest(tnAttr,5),'A','_')+;
 IIF(Bittest(tnAttr,6),'E','_')+;
 IIF(Bittest(tnAttr,7),'N','_')

hi guys!

thank u really for ur replies but i think u misunderstood me with this problem, ok...

in vfp 7.0 let say when i have 2 tables (i mean by that files with *.DBF) let say i opened the table_1 and want to delete all data in table_1 which already exists in table_2, so i can do something like this...

DELETE FROM table_1 WHERE nr IN(SELECT nr FROM table_2)

PACK

and in this case i dont only have table_2 but also alot of tables let say till table_n

thats why i want to do something like this....

i=0

while i not equal the number of files in my desired directory then

delete from table_1 where nr in(select nr from the first file in the directory) (so if i have 3 files i want to change it automaticly from the next file in the directory...)

NEXT

PACK

i hope i explained it clearly, any help and suggestions will be appriciated! thanks a lot!!

novelle

SharathMum wrote:

nNoofFile = ADIR( aFile, "C:\Temp\*.*") FOR i = 1 TO nNoOfFile INSERT INTO tableDirFile ( nr ) VALUES ( aFile[i,1] ) NEXT DELETE FROM tabelle_1 WHERE nr IN ( SELECT nr FROM tableDirFile )

this is good it gives me how many files in the directory so what i want to know now how do i get the names of the DBF files without its extension .DBF and select the names one by one or save in a current variable let say x:=this.current.filename

example let say i have 3 DBF files in the directory

i:=0; && number of files in the directory, undefined at the moment

x:= nil; && undefined at the moment

while i != nNoofFile then

x:=get.the.first.filename.without.the.fileextension in the directory

delete from table_1 where nr in(select nr from + x +)

x:=get.the.second.filename.without.the.fileextension in the directory

end

pack

do u get me thanks a lot for ur reply...

novelle