Page 1 sur 1
[R] FileSelectFolder Flag
Posté : jeu. 13 janv. 2022 12:26
par Faco
Bonjour,
Question rapide j'espère.
J'ai voulu faire une petite modif sur un de mes vieux scripts de 2016 et la seule fonction GUI que j'utilise ne donne plus le même rendu. Je préférai avant (et oui, c'était mieux avant
).
Puis je forcer l'ancien style ?
Code : Tout sélectionner
FileSelectFolder("Selectionnez le dossier à convertir","",6,@ScriptDir)
Image :
https://ibb.co/55pvtF5
Merci d'avance
++
Re: [..] FileSelectFolder Flag
Posté : jeu. 13 janv. 2022 17:18
par walkson
Bonjour,
Il y a quelques années j'avais regardé les boites de dialogue existantes avec Autoit, je vous mets le code, _WinAPI_BrowseForFolderDlg() devrait correspondre à votre demande
Code : Tout sélectionner
#include <Array.au3>
#include <WinAPIDlg.au3>
#include <APIDlgConstants.au3>
$aa = FileRead(@DesktopDir & "\xcopy.txt")
$aFile = _WinAPI_GetSaveFileName("My Save File Dialog", _
"Text File (*.txt)|AutoIt File (*.au3)", @DesktopDir, "ww.txt", _
"", 1, $OFN_CREATEPROMPT, $OFN_EX_NOPLACESBAR, 0)
_ArrayDisplay($aFile)
FileWrite($aFile[1]&"\"&$aFile[2],$aa)
$aFile = _WinAPI_GetOpenFileName("My Open File Dialog", _
"Text File (*.txt)|AutoIt File (*.au3)", ".", @ScriptName, _
"", 2, BitOR($OFN_ALLOWMULTISELECT, $OFN_EXPLORER), $OFN_EX_NOPLACESBAR, 0)
_ArrayDisplay($aFile)
Local $sPath = _WinAPI_BrowseForFolderDlg(@DesktopDir, 'Select a folder from the list below.', BitOR($BIF_NEWDIALOGSTYLE, $BIF_EDITBOX, $BIF_VALIDATE))
MsgBox(0,"",$sPath)
$aFile = _WinAPI_GetOpenFileName("My Open File Dialog", _
"Text File (*.txt)|AutoIt File (*.au3)", ".", @ScriptName, _
"", 2, $OFN_EXPLORER, $OFN_EX_NOPLACESBAR)
_ArrayDisplay($aFile)
J'ai essayé de rapatrier l'image sur le forum pour ne pas la perdre mais je n'ai pas réussi. Merci de le faire (mieux que moi
)
Re: [..] FileSelectFolder Flag
Posté : sam. 15 janv. 2022 11:12
par Tlem
@walkson
Lorsque vous étes dans l'éditeur complet, vous avez un onglet "Fichiers joints".
Voilà.
Re: [..] FileSelectFolder Flag
Posté : sam. 15 janv. 2022 12:47
par walkson
Bonjour Tlem
Cela m'affiche
Désolé, le quota de fichiers joints a été atteint.
Il faudra peut être que je fasse le ménage dans les fichiers joints ?
Je suppose que les images supprimées dans la gestions des fichiers joints persistent dans les commentaires ?
Re: [..] FileSelectFolder Flag
Posté : mar. 18 janv. 2022 21:26
par Faco
Tlem a écrit : ↑sam. 15 janv. 2022 11:12
@walkson
Lorsque vous étes dans l'éditeur complet, vous avez un onglet "Fichiers joints".
Voilà.
@Tlem
J'ai eu le même problème pour la pièce jointe que @walkson.
Merci walkson
Code : Tout sélectionner
#include <Array.au3>
#include <WinAPIDlg.au3>
#include <APIDlgConstants.au3>
Local $sPath = _WinAPI_BrowseForFolderDlg(@DesktopDir, 'Select a folder from the list below.', BitOR($BIF_NEWDIALOGSTYLE, $BIF_EDITBOX, $BIF_VALIDATE))