en ce moment je peaufine mon logiciel de dépistage du diabète et comme il y a quelques aberrations, j'aimerais y remédier et en particulier éviter d'écraser un fichier existant.
J'ai bien compris qu'il fallait que j'utilise ExamineDirectory, NextDirectoryEntry etDirectoryName, mais je ne m'en sort pas, c'est pourquoi je fais appel à votre aide précieuse et je vous en remercie par avance.
Un petit bout de code:
Code : Tout sélectionner
Procedure NouveauSite()
Protected Resultat$
If IsWindow(#Fenetre_Img)
CloseWindow(#Fenetre_Img)
EndIf
Fichier_Patients = SaveFileRequester("Veuillez entrer le nom du site", FichierParDefaut$, Filtre$, Filtre)
If Fichier_Patients <> ""
;vérifier si le site existe
If ExamineDirectory(0, Repertoire$, Fichier_Patients)
While NextDirectoryEntry(0)
Resultat$ = DirectoryEntryName(0)
Debug Resultat$
If Resultat$ = Fichier_Patients
MessageRequester("Attention", "Ce site existe déjà", #PB_MessageRequester_Warning)
Fichier_Patients+".AFD"
EndIf
Wend
EndIf
Else
MessageRequester("Information", ~"Vous avez annulé la création\n\nLe programme va se fermer", #PB_MessageRequester_Info)
End
EndIf
Programme_principal()
EndProcedure