Bonjour,
j'ai un message d'erreur lors de l'exécution d'un script.
Je précise que j'utilise le même repertoire pour d'autre script est tout se déroule normalement
Si quelqu'un a une idée
Merci
message d'erreur:
Script : C:\Users\habib\Desktop\testnew.vbs
Ligne : 15
Caract. : 12
Erreur : Chemin d'accès introuvable
Code : 800A004C
Source : Erreur d'exécution Microsoft VBScript

ci-dessous 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
Dim filesys, file, folderName, objFile, folderObj, fileColl, objRegExp, newFile
Set filesys = CreateObject("Scripting.FileSystemObject")
 
folderName = "C:\Users\reptest"
Set folderObj = filesys.GetFolder(folderName)
Set fileColl = folderObj.Files
 
Set objRegExp = New RegExp
objRegExp.Pattern = ".txt" 'looking for .txt (extension) match
objRegExp.IgnoreCase = True
 
For Each objFile In fileColl
     If objRegExp.Test(objFile.Name) Then
           newFile = objRegExp.Replace(objFile.Name, ".bak") 
           filesys.MoveFile objFile, folderName & "backup\" & newFile 
     End If
Next