LOCAL fileName
LOCAL findFileData
LOCAL handle
LOCAL foundFileName
LOCAL ret
 
DECLARE INTEGER FindFirstFile IN WIN32API;
		STRING fileName,;
		STRING @findFileData
 
DECLARE INTEGER FindNextFile IN WIN32API;
		INTEGER handle,;
		STRING @findFileData
 
DECLARE INTEGER FindClose IN WIN32API;
		INTEGER handle
 
fileName = "d:\*.txt"	&& oder beliebiger Pfad + Dateiname mit/ohne Platzhalter
 
findFileData = SPACE( 318 )
 
handle = FindFirstFile( fileName, @findFileData )
 
IF handle != -1			&& ERSTE Datei gefunden !!!
	foundFileName = ALLTRIM( SUBSTR( findFileData, 45, 260 ) )
 
	MESSAGEBOX( foundFileName )
 
	DO WHILE .T.
		findFileData = SPACE( 318 )
 
		ret = FindNextFile( handle, @findFileData )
 
		IF ret = 0	&& KEINE weitere Datei gefunden !!!
			EXIT
		ENDIF
 
		foundFileName = ALLTRIM( SUBSTR( findFileData, 45, 260 ) )
 
		MESSAGEBOX( foundFileName )
	ENDDO
 
	FindClose( handle )
ENDIF