Kill erreur 70

Herve_be Messages postés 1121 Date d'inscription   Statut Membre Dernière intervention   -  
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   -
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

Réponse 1 / 3
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761
 
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
Réponse 2 / 3
Herve_be Messages postés 1121 Date d'inscription   Statut Membre Dernière intervention   9
 
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
Réponse 3 / 3
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761
 
Voici des informations sur l'erreur 70 :
https://docs.microsoft.com/fr-fr/office/vba/language/reference/user-interface-help/permission-denied-error-70

Je n'en sais pas plus...
0

Discussions similaires

Voxbone ? qui est-ce ?
fanfan54 -
ntrece13 -

159 réponses
Erreur 3005 sur France TV
Cambodgil -
PK -

5 réponses
NUMERO 09 70 26 21 40
BAY1964 -
Pipo -

7 réponses
Code erreur 3000
Laurent -
JM -

5 réponses
Numéro commençant par le 09 70 : qui est-ce?
NuagedOr -
Patou -

33 réponses