[PB4] SaveFileRequester ss extension

[Progi1984]

Utilisez ce code

Code : Tout sélectionner

FichierParDefaut$ = ""
  Filtre$ = "Texte (*.txt)|*.txt|PureBasic (*.pb)|*.pb|Tous les fichiers (*.*)|*.*"
  Filtre = 0
  Fichier$ = SaveFileRequester("Choisissez un fichier à sauvegarder", FichierParDefaut$, Filtre$, Filtre)
  If Fichier$
    MessageRequester("Information", "Vous avez choisi ce fichier :"+Chr(10)+Fichier$, 0)
  Else
    MessageRequester("Information", "La sélection a été annulée.", 0)
  EndIf

Enregistrez votre fichier sous "aeu" ou n'importe quoi sans écrire l'extension.

La valeur de fichier$ sera votre_path$+"aeu"

Comment peut on récupérer le filtre$ utilisé ?
Comment peut on avoir directement fichier$ =votre_path$+"aeu."+extension

[Flype]

moi je ferais comme çà :

Code : Tout sélectionner

FichierParDefaut$ = ""

Filtre$ = "Texte (*.txt)|*.txt|PureBasic (*.pb)|*.pb|Tous les fichiers (*.*)|*.*"

Filtre = 0

Fichier$ = SaveFileRequester("Choisissez un fichier à sauvegarder", FichierParDefaut$, Filtre$, Filtre)

Select LCase(GetExtensionPart(Fichier$))
  Case #Null$
    ext$ = "Attention, pas d'extension utilisée !"
  Case "pb"
    ext$ = "Extension utilisée: .PB"
  Case "txt"
    ext$ = "Extension utilisée: .TXT"
EndSelect

If Fichier$
  MessageRequester("Information", "Vous avez choisi ce fichier :"+Chr(10)+Fichier$+Chr(10)+ext$, 0)
Else
  MessageRequester("Information", "La sélection a été annulée.", 0)
EndIf 

[Dr. Dri]

Pour connaitre le filtre ET pour savoir s'il y a eu une annulation

Code : Tout sélectionner

SelectedFilePattern()

Dri

[Progi1984]

Ca ne marche pas !

Lance ton programme
Marque "truc" quelque soit l'endroit où tu es !

Et tu auras à ts les coups :
Vous avez choisi ce fichier :
C:\truc
Attention, pas d'extension utilisée !

[Flype]

Pour connaitre le filtre ET pour savoir s'il y a eu une annulation

Code : Tout sélectionner

SelectedFilePattern()

Dri

ah ouais, je suis passé à coté de çà tiens.