Copie fichiers sur un fpt

Commenter

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

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.