Envoyer des fichiers sur un ftp (sans ocx)

Soyez le premier à donner votre avis sur cette source.

Snippet vu 18 754 fois - Téléchargée 61 fois

Commenter

Contenu du snippet

Voici le code qui vous permettera de mettre des fichiers (uploader) sur votre ftp sans utiliser aucun OCX. La methode est simple, il suffit d'appeller le ftp de windows.

Source / Exemple : 


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.

Conclusion :


Sans module et sans OCX.

A voir également

Ajouter un commentaire Commentaires
Naärdin
25 juil. 2001 à 15:14
marche pas :

site = Shell("ftp -n -s:filename", vbHide)

c'est :

site = Shell("ftp -n -s:"+filename, vbHide)

T'as testé ton code?
DangerProphet (Alexandre Gauthier)
25 juil. 2001 à 17:13
yyoups!
Danger Prophet (Alexandre Gauthier)
29 juil. 2001 à 21:39
J'ai pouratnt tester le code et sa marche très bine sau que j'ai fait une petite erreur en haut.. c pas chrdir c'est CHDIR
Rom1
21 oct. 2001 à 00:58
J'ai l'erreur : "site : variable not defined"! des idees ?
jacquemo Messages postés 7 Date d'inscription jeudi 2 septembre 2004 Statut Membre Dernière intervention 18 février 2010
18 févr. 2010 à 02:09
C'est une methode tres simple et robuste. On maitrise ce qui se passe. Bonne idee.

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 !
S'inscrire maintenant

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.

Du même auteur (Alexandre Gauthier)