[Vb6]ftp upload ohne .ocx?

[sp33dwalker]

moin,hat hier jemand einen sourcecode wie man einen ftp upload ohne die msinet.ocx macht? ich hab sowas schonmal gesehen

[Hamtaro]

mit der Wininet geht dass, näheres bietet die MSDN:
http://www.vbarchiv.net/tipps/details.php?id=759
http://www.activevb.de/tipps/vb6tipps/tipp0193.html

[Breakdown]

Bei Codesoft.cc gibt es im Forum einen sourcecode:

http://board.codesoft.cc/showthread.php?t=3132

hier mal der source:

Public Function FTPUpload(server As String, user As String, pass As String, path As  String, file As String)

   Dim ftp As myFtp
   Set ftp = New myFtp
   
   ftp.Connect server, user, pass
   ftp.PutFile path, datei
   ftp.DisConnect

End Function

Public  Function DelOnFTP(server As String, user As String, pass As String, file As String)

   Dim ftp As myFtp
   Set ftp = New myFtp

   ftp.Connect server, user, pass
   ftp.DelFile file
   ftp.DisConnect

Aufrufe für die Funktion wären z.B:

Call FTPUpload("host.ftp.com", "user@ftp", "meinpw", Environ("windir"), "pw.txt")

Die Datei pw.txt im Windows Ordner wird so hochgeladen. 

----------

Call DeleteOnFTP("host.ftp.com", "user@ftp", "meinpw", "pw.txt")

Löscht die Datei pw.txt auf dem FTP.

achja.. das brauchst du auch noch:
http://rapidshare.com/files/116319173/myFtp.cls.html

Der Sourcecode stammt von PapaSchlumpf (codesoft.cc)

[sp33dwalker]

danke ich hab schon zurecht gefunden