Lister un repertoire, copier certains fichiers, puis les renommerRésolu

Question

Bonjour &#224; tous,

Voil&#224;, j'ai besoin d'un petit prog qui liste les fichiers avec l'extension ".xls" dans les sous-dossier "C:\Data" et de les copi&#233;s dans un dossier "Sauv" dans "D:\sauv" en les renommants "Files001, Files002 etc etc" avec l'extension ".sav"

Pour les renomm&#233;s en .sav en leur donnant un nouveau nom et un num&#233;ro j'ai trouv&#233; une source pour le faire donc c'est &#224; priori Ok (avec un DirListBox, une FileListbox et un DriveListBox) mais les anciens fichiers n'existe plus.. logique puisqu'ils sont renomm&#233;s.

Par contre, apr&#232;s plusieurs heures de recherche (je suis nul en VB oui...), j'arrive a copi&#233; un fichier un par un (copyfile Dossier A, DossierB), mais pas &#224; copier les fichiers dans le listing obtenu (en fait, il faudrai copi&#233; les fichiers list&#233;s dans le dossier Sauv, puis ensuite les renomm&#233;s)

Merci &#224; tous de votre aide, ca doit pas &#234;tre bien compliqu&#233; pour vous, si vous avez au pire des id&#233;es ou des bouts de sources je peux essay&#233; de regard&#233; mais vu mon niveau....je doute d'y arriv&#233;.

ReMerci &#224; vous pour l'aide que vous m'apportez.

cs_Tioneb · Accepted Answer

&#231;a y est
http://www.vbfrance.com/code.aspx?ID=32733

jpleroisse · Answer

Bonsoir,

Essaye ceci, cel&#224; devrait marcher. (Je ne sais pas chez moi, je n'ai
pas de disque D). Sur le m&#234;me disque C:\ chez moi, cel&#224; fonctionne.

Le Fichier d'origine est toujours dans son r&#233;pertoire.



Private Sub Command1_Click()

FileCopy "C:\Data\MonFichier.xls", "D:\sauv\MonFichier.xls"

FileCopy "C:\Data\TonFichier.xls", "D:\sauv\TonFichier.xls"



Name "D:\sauv\MonFichier.xls" As "D:\sauv\Files001.sav"

Name "D:\sauv\TonFichier.xls" As "D:\sauv\Files002.sav"

End Sub



jpleroisse

Si cel&#224; fonctionne, clique r&#233;ponse accept&#233;e.

cs_mauris · Answer

Non ce n'est pas ca que je cherche, en fait il faut que ca copie tous les .xls (dont je ne connais pas les noms) dans tout les dossiers d'un repertoire, en locurance ceux dans C:\Data\ (qui contient de nombreux sous dossiers avec des .xls), dans un autre repertoire.

Puis les renomm&#233;s (bon ca, je pense que je peux m'en occup&#233; une fois que j'aurai trouv&#233; comment faire pour r&#233;cup tout les .xls)

Merci quand m&#234;me enorm&#233;ment pour t'as r&#233;ponse ;)

cs_CanisLupus · Answer

Salut,
Il existe plusieurs codes sur le site sur ce sujet, cherche un peu avec liste fichier ou filecopy ou copyfile ou ....

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

cs_Tioneb · Answer

Salut,
d'ici quelques minutes, je vais poster la solution dans les sources de vbfrance. Dis moi si c'est ce que tu voulais...

cs_mauris · Answer

Tioneb.. comment te dire, tu es formidable ! Mille merci pour le code qui fonctionne &#224; merveille, je ne sais comment te remercier..

Vraiment sympas de m'avoir fais ca.

Je te remercie encore

Lister un repertoire, copier certains fichiers, puis les renommer

6 réponses

Discussions similaires