Première question , est-ce que NomFichier$ peut contenir un chemin complet ? ou seulement le nom du fichier ?
Si c'est seulement le nom du fichier , dans ce cas , il y a
fichier$ = GetFilePart(Chemin$)
Seulement , je suppose qu'il faut être dans le bon répertoire pour que la commande DeleteFile() fonctionne ?
j'ai essayé avec
Repertoire = GetPathPart(Chemin$)
SetCurrentDirectory_(@Repertoire)
je ne sais pas comment ça marche , est-ce qu'il y a une erreur ?
et ensuite je fais mon DeleteFile()
et oh joie , oh bonheur, j'ai un fichier indestructible
voila comment j'ai fait
Code : Tout sélectionner
Procedure SupprimePartie()
Repertoire.s = Space(256)
GetCurrentDirectory_(256,@Repertoire)
Titre$ = "Supprime une partie"
FichierParDefaut$ = Repertoire+"\Sauve\*.SFF" ; Sokoban Forum Français
Filtre$ = "Fichiers Sokoban3D |*.SFF"
FiltrePosition = 0
Chemin$ = OpenFileRequester(Titre$, FichierParDefaut$, Filtre$, FiltrePosition)
If ReadFile(0,Chemin$) ; pour tester si le fichier existe, il y a un autre moyen ??
fichier$ = GetFilePart(Chemin$)
MessageRequester("Supprime un fichier","Voulez vous supprimer " + fichier$ + " ? ",0) ; je ne laisse pas le choix pour l'instant :)
Repertoire = GetPathPart(Chemin$)
SetCurrentDirectory_(@Repertoire)
DeleteFile(Fichier$)
EndIf
EndProcedure