FTP-directory

[Antonio Linares]

Dietmar,

Try this:

Code: Select all  Expand view  RUN

oText := TTxtFile():New( datei )

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


[Dietmar Jahnel]

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

Thanks again,
Dietmar

[creswinman]

Poo usas FOpen() ?