Copie fichiers sur un fpt

Soyez le premier à donner votre avis sur cette source.

Snippet vu 11 870 fois - Téléchargée 28 fois

Contenu du snippet

Voici un code qui vous permet de copier plusieur fichier sur ftp et de les suprimer du dossier source.

Source / Exemple :


' Parametrage pour accéder au FTP.
 With Inet1
    .AccessType = icDirect
    .Protocol = icFTP 'Le protocole est FTP.
    .URL = "ftp://" & user & ":" & pwd & "@" & ftp 'connection au FPT
    .Execute , "CD /" + dest 'Aller dans le repertoire de stockage.
 End With
 
Do
    fichier = Dir(orig + "*.pdf") 'la variable fichier prend le nom du fichier pdf.
        If fichier = "" Then 'Si la variable fichier est vide alors on quite la boucle do.
            Exit Do
        Else
            fichiersource = orig + fichier
                While Inet1.StillExecuting = True 'tanque le controle inet est occupé
                    DoEvents 'Attente que le fichier soit copié pour continuer.
                Wend
                Inet1.Execute , "PUT " & fichiersource & " " & fichier 'copie du fichier.
                While Inet1.StillExecuting = True
                    DoEvents 'Attente que le fichier soit copié pour continuer.
                Wend
                Kill fichiersource 'supprimer le fichier pdf dans le répertoire source.
        End If
            
Loop
Inet1.Cancel 'Fin de la connection au FTP.
MsgBox "Transfert terminé."

A voir également

Ajouter un commentaire

Commentaires

Messages postés
24
Date d'inscription
samedi 31 décembre 2005
Statut
Membre
Dernière intervention
3 novembre 2007

FTP pas FPT !! :)
Messages postés
28
Date d'inscription
vendredi 12 avril 2002
Statut
Membre
Dernière intervention
21 août 2009

Y a t'il un moyen pour faire l'inverse, ie copier automatiquement un fichier sur un site FTP vers mon PC.

Merci
Messages postés
222
Date d'inscription
jeudi 15 janvier 2004
Statut
Membre
Dernière intervention
30 juin 2008

Je n'aime pas inet car en plus d'avoir à trainer Msvbm60.dll, il faut aussi le trainer... Et de toute façon, ya déjà plein de sources sur INET.
Messages postés
30
Date d'inscription
mardi 5 août 2003
Statut
Membre
Dernière intervention
2 août 2007

N'oubliez pas de rajouter le Composants "Microsoft Internet Transfer Control 6.0 (SP6)" .
Projet -> Composants -> "Microsoft Internet Transfer Control 6.0(SP6)"
Et de placer le controle sur votre WinForm.

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.