Discussion :

[proteine1024]

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.

[pc75]

Bonjour,

Un truc comme ça ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[proteine1024]

Un truc comme ça ?

Ah cool Merci pc75 C'est super sympa ! Je suis tout content, comme un gosse qui recoit un jouet
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 !!!!

[proteine1024]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[pc75]

Re,

C'est laquelle la ligne 6 ?

Par contre, je vois deux choses :

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

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

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

Je ferais plutot :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Et "direct" est bien un item de la collection SousRept

[pitchalov]

Salut.

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

direct.Name

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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).

[proteine1024]

Salut.

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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)