copier des fichiers et renommer les copies

Question

bonjour a tous, je suis nouveau sur ce site et completement n&#233;ophyte sur VB

n&#233;anmoins, j'essaie de m'y mettre petit &#224; petit, donc veuillez me pardonner si vous trouvez ma question completement nulle quant &#224; sa r&#233;solution.

sur mon serveur, j'ai un dossier contenant tous les dossiers perso des utilisateurs avec un sous dossier cach&#233; contenant le fichier Notes.ini

j'aurais besoin de copier dans le meme repertoire ce fichier mais en le renommant notes.sav

voila, est-ce possible de faire &#231;a avec vb ?

si quelqu'un avait la bont&#233; de m'aider je lui en serais reconnaissant


 


merci

kerberos69 · Answer

quelques pr&#233;cisions pour eclairer vos lanternes !

tous les fichier notes.ini doivent etre copi&#233;s et la copie renomm&#233;e.

le repertoire est le meme, a savoir notes\data
otes.ini, le tout plac&#233; sur le e:
om du user\

il faut pouvoir d'un coup de baguette magique revenir en arriere et renommer ces fichier notes.sav en notes.ini et ainsi ecraser le meme fichier du repertoire

crenaud76 · Answer

fonction pour copier un fichier en VB : FileCopy
Ex : 
FileCopy "[file://\Srv\Share\UName\Subdir\Notes.ini \Srv\Share\UName\Subdir\Notes.ini]", [file://\Srv\Share\UName\Subdir\Notes.sav \Srv\Share\UName\Subdir\Notes.sav]"

Christophe R

kerberos69 · Answer

ok merci

en revanche ta commande ne s'applique que sur un seul fichier. 
comment faire si je veux l'executer sur le meme volume mais pour 5000 
repertoires avec la meme architecture

@ bientot

crenaud76 · Answer

Si j'ai bien compris seul le UName va changer. Tu peux faire une boucle qui va scruter [file://\Srv\Share \Srv\Share] &#224; la recherche des Uname et faire le boulot dessus par exemple.

Dim UName as String
' Recherche le 1er dossier UName existant
UName = Dir("[file://\Srv\Share\* \Srv\Share\*]", vbDirectory)
' Tant qu'on a un dossier de User
 While Lenb(UName)>0
  ' On copie le fichier de config Lotus
  FileCopy "[file://\Srv\Share \Srv\Share], tu n'avais que des dossiers de config Lotus, et rien d'autre, sinon il faudra rajouter une condition ou deux
Christophe R

kerberos69 · Answer

ok merci christophe

sous [file://\srv\share \srv\share] , c'est organis&#233; de la maniere suivante :

il y'a les repertoires user de type pr&#233;nom.nom sauf une dizaine ou c'est initiale pr&#233;nom.nom

dans ces repertoires, il y'a le sous repertoire Notes\data\ (avec le notes.ini) mais aussi d'autres sous repertoires (mes docs, etc ...)

le sous repertoire Notes\data est un repertoire cach&#233; (je ne sais pas si &#231;a a son importance pour toi)

Copier des fichiers et renommer les copies

5 réponses

Discussions similaires