Sorry in advance for my poor enGlish.

When i launch this code all is ok

 SET PROCEDURE TO C:\cdbk90\AMLINE\Progs\Ftp.prg ADDITIVE

  *!*	This tells Foxpro where to look for the FTP Class.
  *!*	The next thing to do is to create an instance of the FTP Class.
  *!*	You need to add code something like this;

  sz_ftp = CREATEOBJECT('ftp_service')
    IF  sz_ftp.OpenInternet("amline#lesbouleaux.com", "mypassword", "ftp.lesbouleaux.com", "21") = .T.

WAIT WIND "OK"

BUT WHEN APPSTART.PRG launch ftp.prg

 CASE (UPPER(LEFT(cRemote,6))=="FTP://")
        *--------------------------------------------
        *  FTP web site
        *--------------------------------------------
        *--------------------------------------------
        *  WARNING:
        *	If a FTP site is used, Secure the folder with a login and password.
        *	The access rights should only be read-only.
        *	And navigation should not allow traveling to parent folder.
        *--------------------------------------------
        lFTP = .T.
        cFTProot  = ADDBS(Ini("Get", kINIfile, "AppStart", "FTProot" ))
        cUserName = Ini("Get", kINIfile, "AppStart", "UserName" )
        cPassword = Ini("Get", kINIfile, "AppStart", "Password" )
        *-- BHT
        cFTP = cRemote
        *!*	 cFTP = 'ftp.' + cRemote
        cFTP = CHRTRAN(ALLTRIM(SUBSTR(cFTP,7)),"\","/")
        IF RIGHT(cFTP,1)$"/"
          cFTP = LEFT(cFTP,LEN(cFTP)-1)
        ENDIF

        cRemote = cTemp
        cSP = "/"
        llContinue = .F.

        cFiles = FTP(cFTP, cFTProot+kFileList, cUserName, cPassword )

cFtp = "lesbouleaux.com and not "ftp.lesbouleaux.com"

* Program:     FTP.PRG
* Description:
* Created:     12/11/2003
* Developer:   Gregory L Reichert - www.GLRsoftware.com
*------------------------------------------------------------

LPARAMETERS cFTP, cFile, cUserName, cPassword, lPutFile

LOCAL sz_frp
LOCAL cFolder, cDownload
cDownload = ""

sz_ftp = NEWOBJECT('ftp_service',"FTP.prg")
*!*	IF sz_ftp.OpenInternet(cUserName, cPassword, cFTP, "21")
IF sz_ftp.OpenInternet(cUserName, cPassword, "ftp.lesbouleaux.com", "21")

AppStart.ini =
[AppStart]
FTProot=ftp.lesbouleaux.com
RemoteFolder = FTP://lesbouleaux.com/
UserName = amline#lesbouleaux.com
Password = mypasswordm

HAVE you a idea what append ?

bernhart

>>Do you know this programm (APPSTART.PRG) ?
>Rather No.
>
>>
>>Can i put a question ?
>Yes.
>
>>
>>bernhart
>
>Martinaj