Page 1 sur 1
[PB4] SaveFileRequester ss extension
Publié : jeu. 06/juil./2006 8:09
par 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
Publié : jeu. 06/juil./2006 8:59
par 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
Publié : jeu. 06/juil./2006 9:24
par Dr. Dri
Pour connaitre le filtre ET pour savoir s'il y a eu une annulation
Dri
Publié : jeu. 06/juil./2006 9:25
par 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 !
Publié : jeu. 06/juil./2006 9:49
par Flype
Dr. Dri a écrit :Pour connaitre le filtre ET pour savoir s'il y a eu une annulation
Dri
ah ouais, je suis passé à coté de çà tiens.
