[VB6] Aprire una connessione remota da codice

[skye_68]

Ciao a tutti

ho un programma che permette di scaricare file da un server ftp in locale. Mi serve però che il programma apra dapprima la connessione remota e una volta connesso posso scaricare il file.

In internet ho trovato il seguente codice:

Private Sub StartConnection()
Dim X
X = Shell("rundll32.exe rnaui.dll,RnaDial " & Nome_connessione, 1)
DoEvents
SendKeys "{enter}", True
DoEvents
End Sub

ma mi da errore, in quanto sembra che questo codice funzioni per windows 98 ma non per xp.
Mi potete suggerire come posso aprire una connessione quando il sistema operativo è xp?
Grazie anticipatamente

[gibra]

Con Windows XP le cose sono cambiate (per fortuna!).

Devi usare WinSock, vedi la guida per ulteriori dettagli.
Mi pare di ricordare che tra gli esempi di VB6 in
C:\Programmi\Microsoft Visual Studio\MSDN98\98VSa\1040\SAMPLES\VB98
oltre a misc\Vbmail ce ne fosse uno realtivo a Winsock. Prova a guardare.
Altrimenti di esempi in rete ne trovi a pacchi.

Ciao