Une dllactivex pour copier supprimer déplacer et renommer facilement un ou des fichiers d'un répertoire

Soyez le premier à donner votre avis sur cette source.

Vue 5 640 fois - Téléchargée 704 fois


Description

tout est dans le titre

pour voir la facilité d'utilisation , voir le code suivant :

Source / Exemple :


Option Explicit

Private FicAction As New FileAction

Private Sub Command1_Click()

    FicAction.Copier App.Path & "\tmp\*.*", App.Path & "\tmp2\", Files_Only + No_Confir_MkDir + No_Confirmation + No_Error_Box + No_Progress_Dialog + No_Recursion
    MsgBox "copie terminée"
    
End Sub

Private Sub Command2_Click()
    
    FicAction.Supprimer App.Path & "\tmp\*.*", Files_Only + No_Confirmation + No_Error_Box + No_Progress_Dialog + No_Recursion
    MsgBox "suppression terminée"
    
End Sub

Private Sub Command3_Click()

    FicAction.Deplacer App.Path & "\tmp2\*.*", App.Path & "\tmp\", Files_Only + No_Confir_MkDir + No_Confirmation + No_Error_Box + No_Progress_Dialog + No_Recursion
    MsgBox "déplacement terminé"
    
End Sub

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

yomm
Messages postés
515
Date d'inscription
dimanche 17 février 2002
Statut
Membre
Dernière intervention
10 mars 2008
2 -
Salut a tous,

Très présent sur le réseau je me permets de vous demandez un petit geste.
Voilà un concour est ouvert pour des jeunse artistes musicaux et un groupe me tien particulièrement à coeur puiske ma cousine en fait partie.

Il s'agit d'un concour important sur RTL2...
je vous demande simplement d'aller sur le lien suivant :
http://www.rtl2.fr/jeux/playlist/votes_prt2005.asp

et de voter si cela vous plait , pour le groupe Lezard. L'inscription est gratuite et on peut voter une fois par jour....s'il vous plait c'est tellement difficile de percer dans ce millieux alors je vous demande un petit geste...

les votes s'arretent le 13

merci pour eux
yomm
Messages postés
515
Date d'inscription
dimanche 17 février 2002
Statut
Membre
Dernière intervention
10 mars 2008
2 -
je pensais pas k'il fallait ke je donne un exemple pour les 4 procédure LOL...

donc voilà un exemple fonctionnant avec le source du zip, en ajoutant un nouveau bouton :

Private Sub Command4_Click()
FicAction.Renommer App.Path & "\tmp\01.txt", App.Path & "\tmp\nouveau 01.txt", No_Confirmation + No_Error_Box + No_Progress_Dialog
MsgBox "Fichier recommer"
End Sub

voilà ;-)
cs_jupiter
Messages postés
34
Date d'inscription
lundi 5 août 2002
Statut
Membre
Dernière intervention
9 janvier 2009
-
Si comme tu le dis, tout est dans le titre... Alors comment fait-on pour renommer un fichier ?

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.