[RESOLU]DeleteFile et RenameFile sans effet, pourquoi???

[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:

Code : Tout sélectionner

DeleteFile("Client.txt")    

(Ce n'est pas à cause de cette nuance?)

Merci de votre aide

[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 

[anissa]

Non, le chemin est bon car j'ai affiché le chemin avec debug, j'ai essayé encore hier: même problème.

[Ar-S]

Code : Tout sélectionner

Resultat = DeleteFile(NomFichier$)
If Resultat=0
  Debug "fichier introuvable"
Else
  Debug "fichier "+NomFichier$+" effacé"
EndIf

tu seras fixé

[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