Effacer tous les fichier qui ce trouve dans un repertoire ftp
soundpanther
Messages postés68Date d'inscriptionvendredi 27 juillet 2007StatutMembreDernière intervention31 janvier 2009
-
7 août 2007 à 17:16
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 2021
-
8 août 2007 à 08:54
bonjour
Comment effacer tous les fichier qui ce trouve dans un repertoire ftp par extension en un seul clique.
j'ai trouver une source qui transfere par extention,
la voici
With Inet1
.AccessType = icDirect
.Protocol = icFTP 'Le protocole est FTP.
.URL = "ftp://" & id.Text & ":" & mdp.Text & "@" & serveur.Text
.Execute , "CD /Olivier/albums" + dest 'Aller dans le repertoire de stockage.
End With
Do
fichier = Dir(orig + "*.jpg") 'la variable fichier prend le nom du fichier jpg.
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 occupe'
DoEvents 'Attente que le fichier soit copie' pour continuer.
Wend
Inet1.Execute , "PUT " & fichiersource & " " & fichier 'copie du fichier.
'Inet1.Execute , "DELETE " & fichiersource & " " & fichier 'j'ai essayer avec, mais ca ne fonctionne pas While Inet1.StillExecuting = True
DoEvents 'Attente que le fichier soit copie' pour continuer.
Wend
Kill fichiersource 'supprimer le fichier jpg dans le re'pertoire source.
End If
Loop
Inet1.Cancel 'Fin de la connection au FTP.
merci
A voir également:
Effacer tous les fichier qui ce trouve dans un repertoire ftp