Page 1 sur 1
[RESOLU]DeleteFile et RenameFile sans effet, pourquoi???
Publié : sam. 20/nov./2010 18:00
par anissa
Bonjour,
J'ai essayé Deletefile et RenameFile mais sans résultat, l'instruction a été exécutée (resultat=1) mais rien n'a été fait en réalité (fichier non supprimé, et non renommé). Pourquoi?
J'ai juste une précision à ajouter (peut être que c'est à cause de ça):
Voici le code:
Code : Tout sélectionner
If DeleteFile(NomFichier$)
debug "Fichier " + NomFichier$ + " supprimé"
endif
If RenameFile(AncienNom$,NouveauNom$)
Debug "Fichier " + AncienNom$ + " renommé"
endif
Note: on suppose que AncienNom$ et NouveauNom$ contiennent q chose bien sûr
Après exécution, le fichier (NomFichier$) existe toujours (??) bizarre...
De même, le fichier NomFichier$ n'a pas changé de nom???
Pourriez-vous m'éclaircir ? Peut être qu'il faut obligatoirement indiquer le nom du fichier
et non pas un nom de chaine, c'est à dire:
(Ce n'est pas à cause de cette nuance?)
Merci de votre aide
Re: DeleteFile et RenameFile sans effet, pourquoi???
Publié : sam. 20/nov./2010 18:34
par falsam
Peut être que le chemin du fichier concerné n'est pas renseigné.
Code : Tout sélectionner
FichierParDefaut$ = ""
Filtre$ = "Tous les fichiers (*.*)|*.*"
Filtre = 0
Fichier$ = OpenFileRequester("Choisissez un fichier à supprimer", FichierParDefaut$, Filtre$, Filtre)
If Fichier$
DeleteFile(Fichier$)
MessageRequester("Information", "Le fichier "+Chr(10)+Fichier$+" est supprimé", 0)
Else
MessageRequester("Information", "La sélection a été annulée.", 0)
EndIf
Re: DeleteFile et RenameFile sans effet, pourquoi???
Publié : dim. 21/nov./2010 13:00
par anissa
Non, le chemin est bon car j'ai affiché le chemin avec debug, j'ai essayé encore hier: même problème.
Re: DeleteFile et RenameFile sans effet, pourquoi???
Publié : lun. 22/nov./2010 10:42
par Ar-S
Code : Tout sélectionner
Resultat = DeleteFile(NomFichier$)
If Resultat=0
Debug "fichier introuvable"
Else
Debug "fichier "+NomFichier$+" effacé"
EndIf
tu seras fixé
Re: DeleteFile et RenameFile sans effet, pourquoi???
Publié : lun. 22/nov./2010 11:00
par boddhi
Teste ce bout de code et vois si cela fonctionne...
Sinon es-tu sûr d'avoir les autorisations adéquates pour supprimer/renommer les fichiers que tu souhaites traiter ???
Code : Tout sélectionner
NomFichier$="C:\Test fichier a supprimer.txt"
AncienNom$="C:\Test fichier a renommer.txt"
NouveauNom$="C:\Test fichier renommé.txt"
; **** Supression de fichier
If OpenFile(0,NomFichier$)
WriteStringN(0,"Fichier à supprimer")
CloseFile(0)
Debug "Fichier : "+NomFichier$
Debug " Le fichier créé fait "+Str(FileSize(NomFichier$))+" octets"
If DeleteFile(NomFichier$)
Debug " Fichier "+Chr(34)+NomFichier$+Chr(34)+" supprimé"
EndIf
Select FileSize(NomFichier$)
Case -1
Debug " Le fichier a bien été supprimé !"
Case -2
Debug " Suppression impossible puisque c'est un dossier"
Default
Debug " Là, y a comme qui dirait un problème !!!"
EndSelect
Else
Debug "Erreur lors de la création de "+NomFichier$
EndIf
; **** Renommage de fichier
If CreateFile(0,AncienNom$)
WriteStringN(0,"Fichier à renommer")
CloseFile(0)
DeleteFile(NouveauNom$)
Debug "Fichier : "+AncienNom$
Debug " Le fichier créé fait "+Str(FileSize(AncienNom$))+" octets"
If RenameFile(AncienNom$,NouveauNom$)
Debug " Fichier "+Chr(34)+NomFichier$+Chr(34)+" renommé"
EndIf
FileSize(AncienNom$)
Select FileSize(AncienNom$)
Case -1
Debug " Le fichier a bien été supprimé !"
Case -2
Debug " Suppression impossible puisque c'est un dossier"
Default
Debug " Là, y a comme qui dirait un problème !!!"
EndSelect
Debug "Fichier : "+NouveauNom$
Select FileSize(NouveauNom$)
Case -1
Debug " Là, y a comme qui dirait un problème !!!"
Case -2
Debug " Renommage impossible puisque c'est un dossier"
Default
Debug " Le fichier a bien été renommé"
EndSelect
DeleteFile(NouveauNom$)
Else
Debug "Erreur lors de la création de "+AncienNom$
EndIf