Bonjour,

Je cherche à modifier des fichiers dans mon lecteur C: en remplacant une chaîne de caractères :

Je sais le faire avec un script vbs sur un répertoire précis en mettant le script dans le répertoire. J'ai trouvé un script qui permet de balayer le lecteur C: et trouve tous les fichiers recherchés. Je voudrais maintenant combiner les 2. Mais je bute sur le 'préfixe' à mette devant OpenTextFile.

Voici le texte que j'ai monté, sur base de butinage internet. Je suis loin de maîtriser la programmation vbs, j'ai fait du C, du VBA, et je comprends ce que je lis mais je ne sais absolument pas voir ce qui ne fonctionne pas. Voici mon script :

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Dim vDossier
Dim vNom
Dim vFile
Dim fso
Dim vNomEtChemin
 
Set Shell = CreateObject("wscript.Shell")
Set env = Shell.environment("Process")
 
strComputer = env.Item("Computername")
wscript.echo strComputer
 
set objWMIService = GetObject("winmgmts:\\" & strComputer)
set colFiles = objWMIService.ExecQuery ("Select * from CIM_DataFile Where Extension = 'xsc' and Drive = 'c:'")
'*** Boucle For pour lister tous les fichiers qui ont l'extension "xsc"
For Each objFile in colFiles
<div style="margin-left:40px">Wscript.Echo "Dossier => " & objFile.Drive & objFile.Path
    vDossier = objFile.Drive & objFile.Path
    Wscript.Echo "Nom     => " & objFile.FileName & "." & objFile.Extension
    vNom = objFile.FileName & "." & objFile.Extension
    Wscript.Echo "Taille  => " & objFile.FileSize & " Octets"
    Wscript.Echo "vDossier : " & vDossier
    Wscript.Echo "vNom : " & vNom
    vNomEtChemin= vDossier & vNom
    Wscript.Echo vNomEtChemin
    Wscript.Echo "--------------------------------------------"
'*** Ecriture dans chaque fichier ***
Set fso = CreateObject("Scripting.FileSystemObject")	
    Set vFile = fso.OpenTextFile(vNomEtChemin, ForReading)
		while Not vFile.AtEndOfStream 
		playlist = vFile.ReadAll
		wend
		playlist = Replace (playlist, "Win,", "xxxx") '& vNomEtChemin)
		Set vFile = fsp.OpenTextFile(vNomEtChemin, ForWriting)
		vFile.write playlist</div>'*** Destruction des objets
Set Shell = Nothing
Set env = Nothing
 
WScript.Quit

Merci à ceux qui me lisent,

Olivier