Kill erreur 70

Fermé
Herve_be Messages postés 1015 Date d'inscription mercredi 4 août 2010 Statut Membre Dernière intervention 10 mars 2024 - 15 juin 2020 à 09:44
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 15 juin 2020 à 10:48
Bonjour,
En VB6, parfois sur certains PC j'obtiens une erreur 70 (Permission denied) sur Kill d'un fichier;
j'ai vérifié que le fichier existe :
Dim oFile As New Scripting.FileSystemObject
If oFile.FileExists(BakFile) Then Kill BakFile

Comment vérifier avant le Kill qu'il ne va pas recevoir une erreur 70 ?
Ou quelle autre fonction utiliser au lieu de Kill ?
Merci

3 réponses

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 743
Modifié le 15 juin 2020 à 09:53
Bonjour,

Si tu utilises fso, autant utiliser la méthode DeleteFile :

Dim oFile As New Scripting.FileSystemObject
If oFile.FileExists(BakFile) Then oFile.DeleteFile BakFile


Ce code présuppose que BakFile est un String contenant le chemin d'accès complet au fichier.

0
Herve_be Messages postés 1015 Date d'inscription mercredi 4 août 2010 Statut Membre Dernière intervention 10 mars 2024 8
15 juin 2020 à 10:04
Merci pour ta réponse rapide,
C'est en effet plus logique.
J'aurais cependant voulu comprendre pourquoi cette erreur 70 occasionnelle (sur la plupart des PC ça fonctionne sans problème) et surtout si la même erreur ne risque pas de se produire avec FSO.
0
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 743
15 juin 2020 à 10:48
0