[RESOLU] DeleteFile ne fonctionne pas

[omega]

Bonsoir,

Je ne comprends pas pourquoi la suppression ne marhe pas.

Code : Tout sélectionner

fichier$=GetCurrentDirectory()+"Data\bts.db"
 If DeleteFile(fichier$,#PB_FileSystem_Force)
   Debug "Le fichier " + fichier$ + " a été supprimé!"
 Else
    Debug "Le fichier " + fichier$ + " n'a pas été supprimé!"
 EndIf

Quelqu'un a une idée?

Merci

[Ar-S]

Salut,
Ton fichier existe bien à cet endroit ? (vérifier avec filesize)
Ton fichier n'est pas ouvert ailleurs ?
Au cas ou tu as mis le flag #PB_FileSystem_Force ?

[omega]

Bosoir Ar_s

Mon fichier existe bien à cet endroit: \data\bts.db

[Ar-S]

Oui mais ton fichier n'est pas ouvert ailleurs ou ton exe qui l'utilise n'est pas en train de tourner en tâche de fond ?

[Marc56]

Ton fichier est une base de donnée (.db) et la connexion n'a pas été fermée avant ?

Code : Tout sélectionner

If IsDatabase(0) : CloseDatabase(0) : EndIf
If DeleteFile(fichier$,#PB_FileSystem_Force)
...

Ou ton fichier est la propriété d'un autre utilisateur (Propriétés > Sécurité)

[SPH]

Crée un fichier TXT, et essaye de le deleter par ta routine pour voir si ça marche.

[omega]

Merci à tous,
Effectivement il fallait fermer la base de données avant de la supprimer,

Merci et bonne continuation