Copier un fichier dans tous les dossier qui contiennent un .ini

Version imprimable

15/09/2009, 10h22
proteine1024

Copier un fichier dans tous les dossier qui contiennent un .ini

Bonjour,

Je cherche à faire un script qui viendrait coller un fichier (ou un dossier) dans tous les dossier qui contiennent un .ini.

Je pensais dans un premier temps faire une liste dans un fichier texte de tous les dossiers qui contiennent un .ini.
Puis ensuite une boucle For Each item de ce fichier texte -> coller le fichier x ou contenu du dossier x

Y a-t'il parmis vous quelqu'un qui pourrait m'aider à avancer ? Je continue à chercher de mon coté (mais ca fait un bout de temps que j'ai pas scripté, ca prend un peu de temps de s'y remettre)

Merci par avance de vos réponses.

Bonjour,

Un truc comme ça ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set Rept = fso.GetFolder(CheminParent)
    Set SousRept = Rept.SubFolders
 
    'Parcourir les sous-dossiers
    For Each direct In SousRept
        Set DirEnCours = fso.GetFolder(direct.Name)
        Set fichiers = DirEnCours.Files
        'Parcourir les fichiers
        For Each fichier In fichiers
            if righ(uCase(fichier.Name), 3) = "INI" then
               fso.CopyFile LeFichier, direct.Name\LeFichier
               Exit For
            end if
        Next
        Exit For
    Next
    Set SousRept = Nothing
    Set Rept = Nothing
    Set fso = Nothing

PS : Pas testé, mais l'idée doit y être

15/09/2009, 16h02
proteine1024

Citation:

Envoyé par pc75

Un truc comme ça ?

Ah cool :D Merci pc75 C'est super sympa ! Je suis tout content, comme un gosse qui recoit un jouet :D
je l'adapte, test et te tien au courant.

Ca change beaucoup de chose si on veut copier / coller le contenu d'un repertoire plutot qu'un fichier ?

Merci encore ! C Genial !!!!

PC75, j'ai adapté et testé mais il me reste une erreur en ligne 6, je ne la vois pas. Vois tu quelque chose ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Set fso = CreateObject("Scripting.FileSystemObject")
    Set Rept = fso.GetFolder("C:\Data")
    Set SousRept = Rept.SubFolders
    'Parcourir les sous-dossiers
    For Each direct In SousRept
        Set DirEnCours = fso.GetFolder(direct.Name)
        Set fichiers = DirEnCours.Files
        'Parcourir les fichiers
        For Each fichier In fichiers
            if righ(uCase(fichier.Name), 3) = "*.ini" then
               fso.CopyFile "C:\test.txt", direct.Name\test.txt
               Exit For
            end if
        Next
        Exit For
    Next
    Set SousRept = Nothing
    Set Rept = Nothing
    Set fso = Nothing

Si je comprends bien "direct" est un item dans la collection SousRept ? C'est bien ca ?

16/09/2009, 08h21
pc75
Re,

C'est laquelle la ligne 6 ?

Par contre, je vois deux choses :

Citation:

if righ(uCase(fichier.Name), 3) = "*.ini" then

Soit tu fais un right de 3, soit tu enlèves le point dans ".ini"

Citation:

fso.CopyFile "C:\test.txt", direct.Name\test.txt

Je ferais plutot :
Code:

1 2 fso.CopyFile "C:\test.txt", direct.Name & "\test.txt"
Et "direct" est bien un item de la collection SousRept
16/09/2009, 10h08
pitchalov

Salut.

Je pense qu'il est possible que ton script fonctionne mieux en remplaçant

Code:

direct.Name

par

Code:

direct.Path

pour ton GetFolder et ton CopyFile.

Pour tes questions, direct est un objet Folder, que tu récupère dans la collection SousRept qui contient tous les sous-dossiers de l'objet Folder Rept.
Pour copier un répertoire, tu peux t'intéresser à la méthode CopyFolder de l'objet File System (fso).
16/09/2009, 10h43
proteine1024

Citation:

Envoyé par pitchalov

Salut.

Je pense qu'il est possible que ton script fonctionne mieux en remplaçant

Code:

direct.Path

Merci à tous,

J'ai remplacé .name par .path mais j'ai l'impression qu'il y a un hic plus haut, pour la definition de DirEnCours car si je mets un wscript.echo "folder.Path" pour verifier ca m'affiche forlder.path (pareil avec name) Comme si il ne savait pas reprendre la valeur de l'item direct de la collection SousRept

Set DirEnCours = fso.GetFolder(folder.path)
16/09/2009, 11h01
pitchalov

et si t'enlèves les guillemets : WScript.Echo folder.path ?
16/09/2009, 11h17
proteine1024

Citation:

Envoyé par pitchalov

et si t'enlèves les guillemets : WScript.Echo folder.path ?

:D LOL en effet ca tourne mieux !

Le script se déroule sans erreur mais le fichier test.txt ne se copie toujours pas dans les sous rep de C:\Data\ qui contiennent pourtant un fichier ini.

Je ne vois pas ou ca coince :(

J'ai essayé de modifier 2 - 3 trucs (rendre récursif, simplifier...)
A voir si c'est ce que tu voulais, et à voir si ça marche....

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub CopyFileToIniFolder (objFolderBase)
  Set SousRept = objFolderBase.SubFolders
  For Each direct In SousRept
    'Parcourir les fichiers
    For Each fichier In direct.Files
      if righ(uCase(fichier.Name), 4) = ".ini" then
        fso.CopyFile "C:\test.txt", direct.Path\test.txt
        Exit For
      end if
    Next
    CopyFileToIniFolder SousRept 
  Next
End Sub
 
Set fso = CreateObject("Scripting.FileSystemObject")
Set Rept = fso.GetFolder("C:\Data")
CopyFileToIniFolder Rept

Merci Pitchalov, je test dans l'apres midi.

Nous avons réussi a faire un truc qui fonctionne avec ca: :D

Le contenu du folder c:\test est bien copié dans tous les sous rep de C:\Data qui contiennent un .id (initialement .ini mais ca change rien)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 DIM File Set fso = CreateObject("Scripting.FileSystemObject") set objfolder = FSO.GetFolder("C:\Data") Set colSubfolders = objFolder.Subfolders for Each objsubFolder in colSubfolders FOR EACH File IN objsubFolder.Files if FSO.GetExtensionName(File) = "id" then fso.Copyfolder "C:\test", objsubFolder.path end if set file = nothing next set objsubfolder = nothing next wscript.quit
Un Enorme Merci à tous pour votre aide et votre savoir. :D

16/09/2009, 15h59
proteine1024

Je reviens avec une nouvelle question. :D

avant la commande qui copie le contenu de C:\Test dans le dossier qui contient le .ini

Code:

fso.Copyfolder "\C:\test", objsubFolder.path

j'aimerais placer une msgbox (afin de confirmer au cas ou il y aurait un .ini qui trainerait par là et avoir un visuel de ce qu'on met à jour)

Code:

MsgBox "Voulez vous procéder à la mise à jour du Répertoire "&objsubFolder.path& " ?" , vbYesNo + vbQuestion, "Mise à jour"

Si le resultat de cette MsgBox est Yes -> enchainer avec le CopyFolder si No -> zapper le CopyFolder et enchainer les autres boucles.

Savez vous comment je peux dire à mon script "if MSGBox=No GOTO next" en quelques sortes ?

Re,

Code:

1
2
3
4
5
 
    Msg = "Voulez vous procéder à la mise à jour du Répertoire "&objsubFolder.path& " ?"
    Reponse = MsgBox(Msg, vbQuestion + vbYesNo, "Titre de la fenêtre")
    If Reponse = vbYes Then
       ......