>Hi.. I want to create a dbf from the contents of a windows xp directory. How? Thanks, Randy

*Dir2cursor.prg
Lparameters pcSkeleton, pcCursorname, plMoreinfo
Local lcFilename, llNeste, lcPath, lnLen
If Pcount()<1 Or Vartype(pcSkeleton)#'C' Or (Pcount()>1 And Vartype(pcCursorname)#'C')
   Return -1
Else    
   If Pcount()=1
      pcCursorname='curDumyDir'
   Endif 
   llNeste=.F.
   Create Cursor (pcCursorname) (filnavn c(1))
   Do While .t.
      If llNeste
         lcFilename=Sys(2000,pcSkeleton,1)
      Else 
         lcFilename=Sys(2000,pcSkeleton)
      Endif 
      If Len(lcFilename)>len(filnavn)
         lnLen=Len(lcFilename)
         Alter Table (pcCursorname) alter Column filnavn c(lnLen)
      Endif 
      If !Empty(lcFilename)
         Insert Into (pcCursorname) (filnavn) Values (Juststem(lcFilename))
      Else 
         Exit 
      Endif 
      llNeste=.T.
   Enddo 
Endif    
If Reccount()>0 And plMoreinfo
   Alter Table (pcCursorname) Add column dato d
   Alter Table (pcCursorname) Add column fsize i
   Alter Table (pcCursorname) Add column fulltnavn c(lnLen)
   Scan
      Adir(aDummy,(Addbs(justpath(pcSkeleton)) + Trim(filnavn) + '.' + Justext(pcSkeleton)))
      replace dato With aDummy(3), fsize With aDummy(2), fulltnavn With aDummy(1)
   Endscan 
Endif 
Return Reccount()