PureBasic

Forums PureBasic
Nous sommes le Lun 17/Déc/2018 11:37

Heures au format UTC + 1 heure




Poster un nouveau sujet Répondre au sujet  [ 9 messages ] 
Auteur Message
 Sujet du message: [Résolu] Comment savoir si un fichier existe
MessagePosté: Mer 24/Oct/2018 16:04 
Hors ligne
Avatar de l’utilisateur

Inscription: Dim 02/Oct/2011 16:17
Messages: 2027
Localisation: 50200 Coutances
Bonjour à tous,

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

_________________
Microsoft Windows 10 Famille 64 bits : Carte mère : ASRock 970 Extreme3 R2.0 : Carte Graphique NVIDIA GeForce GT 640 : Processeur AMD FX 6300 6 cœurs 12 threads 3,50 GHz PB 5.62, 5.70 LTS
Un homme doit être poli, mais il doit aussi être libre !


Dernière édition par Micoute le Jeu 25/Oct/2018 6:36, édité 1 fois.

Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: Comment savoir si un fichier existe
MessagePosté: Mer 24/Oct/2018 17:00 
Hors ligne

Inscription: Jeu 07/Juin/2007 22:54
Messages: 206
Code:
if FileSize("nom du fichier") >= 0


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: Comment savoir si un fichier existe
MessagePosté: Mer 24/Oct/2018 17:33 
Hors ligne

Inscription: Jeu 05/Fév/2009 17:58
Messages: 844
@Micoute
Si le ficher recherché est dans le même répertoire que ton logiciel
If ReadFile(300, "xxx.mld") = 0; il n'est pas la
CreateFile(300,"xxx.mld"); il faut le créer
EndIf


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: Comment savoir si un fichier existe
MessagePosté: Mer 24/Oct/2018 22:44 
Hors ligne
Avatar de l’utilisateur

Inscription: Dim 09/Oct/2005 16:51
Messages: 8545
+1 pour FileSize c'est le plus simple.

_________________
~~~~Règles du forum ~~~~
.: Ar-S :. Tour + portable W10 x64 PB 5.4x / 5.6x
LDV MULTIMEDIA : Dépannage informatique Aude (11) Isère (38)
RESIZER GOLD : Mon logiciel de redimensionnement par lot


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: [Résolu] Comment savoir si un fichier existe
MessagePosté: Jeu 25/Oct/2018 6:37 
Hors ligne
Avatar de l’utilisateur

Inscription: Dim 02/Oct/2011 16:17
Messages: 2027
Localisation: 50200 Coutances
Merci à tous pour vos réponses qui m'ont été très utiles.

_________________
Microsoft Windows 10 Famille 64 bits : Carte mère : ASRock 970 Extreme3 R2.0 : Carte Graphique NVIDIA GeForce GT 640 : Processeur AMD FX 6300 6 cœurs 12 threads 3,50 GHz PB 5.62, 5.70 LTS
Un homme doit être poli, mais il doit aussi être libre !


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: [Résolu] Comment savoir si un fichier existe
MessagePosté: Mer 31/Oct/2018 13:37 
Hors ligne
Avatar de l’utilisateur

Inscription: Mer 29/Juin/2011 14:11
Messages: 1557
Localisation: Belgique
filLeSize(fileName.s) ; -1 le fichier n'existe pas
filLeSize(fileName.s) ; -2 c'est un répertoire

_________________
Linux Mint / Windows 10 64 bits PB: 5.61 ; 5.62 beta


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: [Résolu] Comment savoir si un fichier existe
MessagePosté: Mer 31/Oct/2018 14:52 
Hors ligne
Avatar de l’utilisateur

Inscription: Dim 02/Oct/2011 16:17
Messages: 2027
Localisation: 50200 Coutances
Merci microdevweb

_________________
Microsoft Windows 10 Famille 64 bits : Carte mère : ASRock 970 Extreme3 R2.0 : Carte Graphique NVIDIA GeForce GT 640 : Processeur AMD FX 6300 6 cœurs 12 threads 3,50 GHz PB 5.62, 5.70 LTS
Un homme doit être poli, mais il doit aussi être libre !


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: [Résolu] Comment savoir si un fichier existe
MessagePosté: Mer 31/Oct/2018 18:49 
Hors ligne
Avatar de l’utilisateur

Inscription: Ven 16/Oct/2015 18:22
Messages: 235
Localisation: France
Bonjour,

Code:
Procedure fileExist(f$)
  If FileSize(f$) < 0
    ProcedureReturn #False
  Else
    ProcedureReturn #True
  EndIf
EndProcedure

Procedure.a folderExist(f$)
  If FileSize(f$) = -2
    ProcedureReturn #True
  Else
    ProcedureReturn #False
  EndIf
EndProcedure

Fichier$ = "un fichier quelconque"

If Not folderExist(Fichier$)
  If fileExist(Fichier$)
    ;
    ;
  EndIf
Endif

cage

_________________
■ Win10 64-bit (Intel Celeron CPU N2920 @ 1.86GHz, 4,0GB RAM, Intel HD Graphics) & PB 5.62
■ Vivre et laisser vivre.
■ PureBasic pour le fun
■ Mes sites: http://pbcage.free.fr - http://yh.toolbox.free.fr


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: [Résolu] Comment savoir si un fichier existe
MessagePosté: Jeu 01/Nov/2018 7:03 
Hors ligne
Avatar de l’utilisateur

Inscription: Dim 02/Oct/2011 16:17
Messages: 2027
Localisation: 50200 Coutances
Merci aussi cage, une preuve de plus que tous les bons raisonnements mènent au même résultat.

_________________
Microsoft Windows 10 Famille 64 bits : Carte mère : ASRock 970 Extreme3 R2.0 : Carte Graphique NVIDIA GeForce GT 640 : Processeur AMD FX 6300 6 cœurs 12 threads 3,50 GHz PB 5.62, 5.70 LTS
Un homme doit être poli, mais il doit aussi être libre !


Haut
 Profil  
Répondre en citant le message  
Afficher les messages postés depuis:  Trier par  
Poster un nouveau sujet Répondre au sujet  [ 9 messages ] 

Heures au format UTC + 1 heure


Qui est en ligne

Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 2 invités


Vous ne pouvez pas poster de nouveaux sujets
Vous ne pouvez pas répondre aux sujets
Vous ne pouvez pas éditer vos messages
Vous ne pouvez pas supprimer vos messages

Rechercher:
Aller à:  

 


Powered by phpBB © 2008 phpBB Group | Traduction par: phpBB-fr.com
subSilver+ theme by Canver Software, sponsor Sanal Modifiye