Bonjour,

J'ai un répertoire contenant certains fichiers et un fichier texte contenant des noms de fichiers par ligne.

Je voudrais effectuer une verification telle que pour fichier dans le repertoire dont le nom de fichier se trouve dans mon fichier texte, le fichier dans le repertoire soit supprimé.

Pour cela j'ai fait un script, et celui ci ne fonctionne pas, voudriez vous m'apporter votre aide svp.


*******Mon Script*************
'Ma fonction de verification

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
Function Verification(NomFichier)
Set objFSO=CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("testfranck.txt",1)
Do Until objFile.AtEndOfStream
	strLigne=objFile.ReadLine
	if strLigne=NomFichier then
		verification=1
	End if
Loop
objFile.Close
End Function
 
'le corps du script même
Set objFSO= CreateObject("Scripting.FileSystemObject")
Set MonRepertoire=objFSO.GetFolder("destination")
Set CollecFichier=MonRepertoire.Files
' Pour chaque element du repertoire sur le lecteur réseau verifier s'il existe dans le fichier texte des mp4, si c'est le cas, il faut le supprimer
For Each Fichier in CollecFichier
	'wscript.echo Fichier.Name
	if verification(Fichier.Name)=1 then
		Set Tobedeleted=objFSO.GetFile(Fichier.Name)
		 Tobedeleted.delete
	End if
Next