Probleme avec fonction Kill

Version imprimable

18/04/2013, 22h22
napoalle

Probleme avec fonction Kill
Bonsoir,
voilà une procedure toute simple que j'utilise. Or celle ci qui fonctionnait correctement sous WinXP et Excel 2007 ne semble plus fonctionner suite à ma migration sur Windows 7 et Excel 2010.
Je reçois un message d'erreur "acces non autorisé" comme si le fichier était ouvert (ce qui n'est pas le cas), et O miracle la même procedure fonctionne à merveille si je l'execure en mode pas à pas... Je vous remercie par avance de votre aide.
Code:

1 2 3 4 5 Public Sub killkill() If Dir("c:\temp\temp\*.zip") <> "" Then Kill "c:\temp\temp\*.zip" If Dir("c:\temp\temp\*.xls") <> "" Then Kill "c:\temp\temp\*.xls" End Sub
19/04/2013, 10h29
issoram

Bonjour,

J'ai testé sur Win7 et Excel 2010 aucun souci. Es tu sûr d'avoir les droits sur "C\..."

regard ça et dis moi

Code:

1
2
3
4
5
6
7
'Vérifie l'existante d'un fichier dont le nom est précisé en argument.
Public Function Fichier_RD_Exite(DelFichier As String)
Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
Fichier_RD_Exite = FSO.FileExists(DelFichier)
Set FSO = Nothing
End Function

Code:

1
2
3
4
5
6
7
8
9
10
 
 'Supprime le ou les fichiers dont le nom est précisé en argument.
Public Sub Supprimer_Fichier_RD(DelFichier As String)
If Fichier_RD_Exite(DelFichier) = True Then
    Dim FSO As Object
    Set FSO = CreateObject("Scripting.FileSystemObject")
    FSO.DeleteFile DelFichier, True
    Set FSO = Nothing
End If
End Sub

Code:

1
2
3
4
5
6
7
'Permet de vérifier si le répertoire dont le nom est précisé en paramètre (Repertoires) existe. Retourne True s'il existe, sinon False
Public Function Repertoires_Existe_RD(Repertoires As String) As Boolean
Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
If FSO.FolderExists(Repertoires) Then Repertoires_Existe_RD = True
Set FSO = Nothing
End Function

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Public Sub killkill()
Dim FSO
If Repertoires_Existe_RD("c:\temp\temp") = True Then
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set f = FSO.GetFolder("c:\temp\temp").Files
    For Each ff In f
        If "zip" = FSO.GetExtensionName(ff.Name) Then Supprimer_Fichier_RD ff.Path
        If "xls" = FSO.GetExtensionName(ff.Name) Then Supprimer_Fichier_RD ff.Path
    Next
    Set FSO = Nothing
End If
End Sub