FTP-directory

Post Reply
User avatar
Antonio Linares
Site Admin
Posts: 42453
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Has thanked: 20 times
Been thanked: 58 times
Contact:
Contact Antonio Linares

Post by Antonio Linares »

Dietmar,

Try this:

Code: Select all | Expand

oText := TTxtFile():New( datei ) 

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

Antonio Linares
www.fivetechsoft.com
Top
User avatar
Dietmar Jahnel
Posts: 83
Joined: Mon Oct 17, 2005 10:33 am
Location: Austria
Contact:
Contact Dietmar Jahnel

Post by Dietmar Jahnel »

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

Thanks again,
Dietmar
Top
User avatar
creswinman
Posts: 33
Joined: Thu Aug 24, 2006 3:14 am
Location: mexico
Contact:
Contact creswinman

Post by creswinman »

Poo usas FOpen() ?
Top
Post Reply

Return to “FiveWin for Harbour/xHarbour”