FiveTech Software tech support forums

Posted: **Tue Aug 14, 2007 10:49 am**

Dietmar,

Try this:

oText := TTxtFile():New( datei ) 

FOR x = 1 to len(aSpringer) 
   oText:Add(SubStr( aSpringer[x,1], 1, At( ".", aSpringer[x,1] ) + 3 ) ) 
NEXT

Posted: **Tue Aug 14, 2007 12:42 pm**

As long as there are no subdirectories I'm getting a clean result with this code.

Thanks again,
Dietmar

Posted: **Tue Oct 09, 2007 12:02 am**

Poo usas FOpen() ?

FTP-directory