Close Tables All Local i, cIDXIndexFileName Create Table test (iKey i) For i = 1 To 20 Insert Into test Values (i) Endfor Clear cIDXIndexFileName = Forceext(Substr(Sys(2015),2,8),'idx') ? cIDXIndexFileName Index On iKey To (cIDXIndexFileName) #if .f. SEEK(eExpression [, nWorkArea | cTableAlias [, nIndexNumber | cIDXIndexFileName | cTagName]]) #endif If Not Seek(3,'test',cIDXIndexFileName) Messagebox('Not found') Else Message('Found') Endif If Not Seek(3,'test',&cIDXIndexFileName) Messagebox('Not found') Else Message('Found') Endif If Not Seek(3,'test',(cIDXIndexFileName)) Messagebox('Not found') Else Message('Found') Endif Close Tables All Erase test.Dbf Erase (cIDXIndexFileName) Dir *.idxThanks