 Tim Hannemann | Sorry for Doppelpost but I want therefore no extra Topic open there it Yes with to the FTP-functions heard, think I time.
So I have presently the following trouble: I have a procedure FTP where a Eingabemaske aufgebaut and is where one then its Server, Username and Password prompt can. clicking one on the Button contact becomes the angegebenen Server joined and the Files on the Server should in a ListBox showing. I thought it would integrally simply over ChDir weg (after the actually FTP directory read watts) and then hold integrally simply into vorgefertigte ListBox reinkopieren and these then in my copy. only go me then The Files from the directory angzeigt where my prf File lying. I hope the me who help can, here the code the procedure
Proc FTP
--declares-----------------------------------------------------------------------
declare server$,user$,pass$, ftpdir$
declare server&,user&,pass&,verbinden&,liste&
declare ftp%
UseFont Times New novel,18,0,0,0,0
Textcolor rgb(0,200,200),-1
DrawText 10,15,Servername:
DrawText 20,40,Username:
DrawText 25,65,Password:
server& = Create(EDIT,%HWnd,,100,10,100,25)
user& = Create(EDIT,%HWnd,,100,35,100,25)
pass& = Create(EDIT,%HWnd,,100,60,100,25)
liste& = Create(SORTEDLISTBOX,%HWnd,,300,10,200,400)
verbinden&=Create(BUTTON,%HWnd,contact,100,90,100,25)
clear ftp%
Whilenot ftp%
Waitinput
If MenuItem(1)
end
Elseif Getfocus(verbinden&)
user$=GetText$(user&)
pass$=GetText$(pass&)
server$=GetText$(server&)
FTP(Connect,user$,pass$,server$,21)
ftpdir$=FTP(GetDir)
ChDir ftpDir$
AddFiles *.*
MoveListToList(liste&)
Endif
Wend
Endproc
|
|