Soyez le premier à donner votre avis sur cette source.
Snippet vu 18 560 fois - Téléchargée 61 fois
ChDir "C:\" Open "temp.txt" For Append As #1 Print #1, "open ftp.ifrance.com" 'Le serveur est par exemple ftp.ifrance.com Print #1, "USER allo" 'Le nom d'utilisateur est allo Print #1, "bonjour" 'Mot de passe (bonjour) 'Disons que nous voulons uploader un fichier nomme Rouge.txt (se trouvant sur le C:) dans le dossier salut1 sur le ftp Print #1, "cd " + "/salut1" Print #1, "put c:\Rouge.txt" Close #1 site = Shell("ftp -n -s:c:\temp.txt", vbHide) 'Vous n'avez maintenant plus qu'à supprimer le fichier temporaire "temp.txt" soit par vous même ou par la commande KILL.
6 juin 2010 à 18:41
18 févr. 2010 à 02:09
Il y a un petit probleme pour les FTP de gros fichiers : la session de commande a tendence a se fermer vite. Sous xp, je n'arrive pas a envoyer des gros fichiers.
POur resoudre, c'est simple, au lien de SHELL"ftp ...."
faire shell "cmd /c ftp ...."
pour savoir quand c'est fini on peut utiliser la sub SHELLWAIT decrite sur ce site.
Bravo a Alxandre !
10 nov. 2009 à 22:13
'à redéfinir selon votre site Ftp et votre login
Dim user = "..."
Dim pass = "..."
Dim fichlocal = "c:/essai.jpg"
Dim fichftp = "ftp://votreserveur/dossier1/dossier2/essai.jpg"
'upload
try
My.Computer.Network.UploadFile(fichlocal, fichftp, user, pass)
catch ex as exception
msgbox(ex.message)
end try
'download
My.Computer.Network.DownloadFile(fichftp, fichlocal, user, pass)
'les try permettent de récuperer l'erreur éventuelle
5 mars 2009 à 15:17
18 févr. 2009 à 20:21
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.