Super ! OK.

1)For ftproot what can i put ?
http://cjoint.com/data/jqsYCtUUDV.htm

http://cjoint.com/data/jqsZRG7K5r.htm

2) I want download the fich Amline.msi ( Name is included in files.txt )
BUT i want remove amline.msi BEFORE launch the new update Amline.msi
A idea for do that ?

Thank Sergey



>

>RemoteFolder = FTP://ftp.lesbouleaux.com/
>

>>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 ?
>>