Discussion :

[Christophe.G]

Bonjour à tous, j'ai un problème probablement encore tout bête mais je ne trouve pas la solution.
Dans une fonction DeleteFiles() j'ai une boucle For Each qui boucle sur chaques fichiers d'un répertoire. Les fichiers sont supprimés et vient ensuite un test if else qui doit vérifier si les fichiers sont bien supprimés et écrire les résultat dans un fichier texte.
Si le fichier n'a pas été supprimé "if fso.FileExists(fichier)", ça écrit bien "Echec de supression du fichier..." mais par contre le Else (qui devrait écrire "Fichier supprimé avec succès...") n'est semble t'il pas pris en compte donc ça n'écrit rien du tout. Je ne comprend pas pourquoi.
Voici un bout du code:

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
Dim FolderName, TEMP, MyFile
 
Set WshShell = WScript.CreateObject("WScript.Shell" )
Set fso = WScript.CreateObject("Scripting.FileSystemObject" )
Set MyFile = fso.CreateTextFile("rapport.txt" , True)
 
WINDIR = WshShell.ExpandEnvironmentStrings("%WinDir%" )
DRIVE = WshShell.ExpandEnvironmentStrings("%SystemDrive%" )
TEMP = WshShell.ExpandEnvironmentStrings("%TEMP%" )
 
FolderName = TEMP
if fso.FolderExists(FolderName) then
	DeleteFiles(FolderName)
end if
MyFile.Close
msgbox("Suppression terminée!")
 
Function DeleteFiles(FolderName)   
        On Error Resume Next
        Dim ObjFolder
	Dim ObjFiles
	Dim ObjFile   
	Set ObjFolder = fso.GetFolder(FolderName)   
	Set ObjFiles = ObjFolder.Files
	For Each ObjFile In ObjFiles 
                set fichier = ObjFile
	        fichier.Delete
	        if fso.FileExists(fichier) then
		        MyFile.WriteLine("[Echec de suppression du fichier]--- " & fichier)
	        Else
		        MyFile.WriteLine("[Fichier supprimé avec succès]--- " & fichier)
	        end if
	Next
End Function

[hackoofr]

Si tu enlèves cette instruction qui se trouve au début de la fonction DeleteFiles

Code :

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

On Error Resume Next

ça vous donne quoi comme résultat ?

[Christophe.G]

Il y a surement de ça, seulement quand je la retire j'ai une erreur une fois fichier.Delete quand un fichier est en cours d'utilisation et ne peut être supprimé. mais le problème doit bien venir de la je pense.
y a t'il moyen d'ignorer cette erreur quand un fichier est utilisé pour pouvoir supprimer l'instruction On Error Resume Next ?

[Miistik]

Bonjour,

As-tu essayé via le File Scripting Object (ta variable fso) ?

Code :

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

fso.DeleteFile cheminFichier, True

[l_autodidacte]

Il y a peut-être un moyen de contourner le problème : c'est en essayant d'ouvrir le fichier (peut importe en lecture ou en écriture) puis intercepter l'erreur et choisir l'action à entreprendre en conséquence :

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
Function DeleteFiles(FolderName)   
    Dim ObjFolder
    Dim ObjFiles
    Dim ObjFile   
    Set ObjFolder = fso.GetFolder(FolderName)   
    Set ObjFiles = ObjFolder.Files
    For Each ObjFile In ObjFiles 
           On Error Resume Next
           'On tente d'ouvrir le fichier
           set fich=fso.OpenTextFile(objFile.Path, 1, False)
           If Err.Number = 0 Then
               Fich.Close
               MyFile.WriteLine("[Fichier supprimé avec succès]--- " & ObjFile) 
               ObjFile.Delete true
           Else
               MyFile.WriteLine("[Echec de suppression du fichier]--- " & ObjFile)
           End If
    Next
End Function

[hackoofr]

Il y a peut-être un moyen de contourner le problème : c'est en essayant d'ouvrir le fichier (peut importe en lecture ou en écriture) puis intercepter l'erreur et choisir l'action à entreprendre en conséquence :

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
Function DeleteFiles(FolderName)   
    Dim ObjFolder
    Dim ObjFiles
    Dim ObjFile   
    Set ObjFolder = fso.GetFolder(FolderName)   
    Set ObjFiles = ObjFolder.Files
    For Each ObjFile In ObjFiles 
           On Error Resume Next
           'On tente d'ouvrir le fichier
           set fich=fso.OpenTextFile(objFile.Path, 1, False)
           If Err.Number = 0 Then
               Fich.Close
               MyFile.WriteLine("[Fichier supprimé avec succès]--- " & ObjFile) 
               ObjFile.Delete true
           Else
               MyFile.WriteLine("[Echec de suppression du fichier]--- " & ObjFile)
           End If
    Next
End Function

J'ai fait un petit test de votre méthode et j'ai essayé de sorte qu'il m'ouvre le fichier en écriture, alors j'ai constaté quand il s'agit d'un exécutable qui est en cours d'exécution, il ne le supprime pas ce qui très normale, alors quand il s'agit d'un fichier texte ou bien image ou bien vidéo, il le supprime même quand il est ouvert ??

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
Option Explicit
Dim FolderName,fso,MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile("rapport.txt",True)
FolderName = "E:\Test\HackooDossier"
 
Call DeleteFiles(FolderName)
'**************************************************************************************
Function DeleteFiles(FolderName)   
    Dim ObjFolder,ObjFiles,ObjFile,Fich  
    Set ObjFolder = fso.GetFolder(FolderName)   
    Set ObjFiles = ObjFolder.Files
    For Each ObjFile In ObjFiles 
           On Error Resume Next
           'On tente d'ouvrir le fichier en écriture
           set Fich=fso.OpenTextFile(objFile.Path,2,True)
           If Err.Number = 0 Then
               Fich.Close
               MyFile.WriteLine("[Fichier supprimé avec succès]--- " & ObjFile) 
               ObjFile.Delete True
           Else
               MyFile.WriteLine("[Echec de suppression du fichier]--- " & ObjFile)
           End If
    Next
End Function
'**************************************************************************************