Comparaison entre Repertoire_Fichier

Version imprimable

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:

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

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:

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)

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:

Set Tobedeleted=objFSO.GetFile(Fichier.Path)

au lieu de son nom

Code:

Set Tobedeleted=objFSO.GetFile(Fichier.Name)

3-utiliser

Code:

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

au lieu de

Code:

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

Donc le Code devient :
Code:

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