Discussion :

[meoliver]

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

[l_autodidacte]

Salut;

Je pense que la méthode "Delete" ne peut pas accéder au fichier car tu fournis uniquement le nom à partir du fichier texte contenant la liste des fichiers. Il faut donc fournir le chemin complet :

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
Option Explicit
Dim tb,Ret,Count,objFich,objFSO
Dim tobedeleted,myDir,AllFiles,Fich,FileName
 
Set objFSO=CreateObject("Scripting.FileSystemObject")
Set objFich = objFSO.OpenTextFile("testfranck.txt",1)
 
Ret=objFich.ReadAll
tb=Split(Ret,VbNewLine)
objFich.Close
 
Set myDir=objFSO.GetFolder("destination")
Set AllFiles=myDir.Files
 
For Each Fich in AllFiles
     FileName=Right(Fich.Path,Len(Fich.Path)-InStrrev(Fich.Path,"\"))
     For count=LBound(tb) to Ubound(Tb)
       if Ucase(tb(count))=Ucase(FileName)  then
          Set Tobedeleted=objFSO.GetFile(Fich.Path)
	  msgbox tobedeleted
	 ' Tobedeleted.delete
       end if
    Next
Next

Teste alors avec MsgBox (ou Echo) puis dé-commente la ligne de suppression(Tobedeleted.Delete)

[hackoofr]

Salut
1- il faut bien vérifier que le dossier destination et le fichier texte testfranck.txt et ce script se trouvent dans le même Dossier
2- il faut utiliser le chemin du fichier à supprimer !

Code :

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

Set Tobedeleted=objFSO.GetFile(Fichier.Path)

au lieu de son nom

Code :

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

Set Tobedeleted=objFSO.GetFile(Fichier.Name)

3-utiliser

Code :

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

verification=True et if verification(Fichier.Name)=True

au lieu de

Code :

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

verification=1 et if verification(Fichier.Name)=1

Donc le Code devient :

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
Function Verification(NomFichier)
verification=False
Set objFSO=CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("testfranck.txt",1)
Do Until objFile.AtEndOfStream
	strLigne=objFile.ReadLine
	if strLigne=NomFichier then
		verification=True
	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
	if verification(Fichier.Name)=True then
	MsgBox "Attention ! Le Fichier " &Fichier.path& "  Va être Supprimé ?",vbQuestion,"Supprimer ce Fichier ?"
		Set Tobedeleted=objFSO.GetFile(Fichier.Path)
		Tobedeleted.delete
		else
	MsgBox " Pas de Fichier à supprimer ! ",16,"Supprimer Fichier !"	
	End if
Next