*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()