Kill erreur 70

Herve_be Messages postés 1176 Statut Membre -  
pijaku Messages postés 13513 Statut Modérateur -
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 13513 Statut Modérateur 2 763
 
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 1176 Statut Membre 11
 
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 13513 Statut Modérateur 2 763
 
0