Soyez le premier à donner votre avis sur cette source.
Vue 5 743 fois - Téléchargée 728 fois
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
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
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à ;-)
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.