Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic SHBrowseForFolder

SHBrowseForFolder

5 réponses
Avatar
Sacha \(Pacha\)
Bonne année 2007 à tous

Ma question concerne les "BIF values" des "ulFlags"
qui sont décrits par microsoft :
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/shell/reference/structures/browseinfo.asp

Grâce au site de Jean-Claude Bellamy ( http://www.bellamyjc.org ), je
connais quelques valeurs :
BIF_returnonlyfsdirs = &H0001
BIF_dontgobelowdomain = &H0002
BIF_editbox = &H0010
BIF_validate = &H0020
BIF_browseforcomputer = &H1000

Je cherche à connaître la valeur hexadécimale associée à
'BIF_NONEWFOLDERBUTTON'
(je suis aussi preneur des autres valeurs !)

Merci pour votre aide

Sacha
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Sacha \(Pacha\)
Merci pour cette réponse très rapide en ce jour de fête ...
Testé (avec 'NewDialogStyle' > boite redimensionnable) ... mais le bouton
'Créer un nouveau dossier' est toujours là malgré 'NoNewFolderButton'.

"Jean-marc" a écrit dans le message
de news: 45998f28$0$5523$
"Sacha (Pacha)" <pachaDOTlATclubDASHinternetDOTfr> a écrit dans le message
de news:
Bonne année 2007 à tous

Ma question concerne les "BIF values" des "ulFlags"
qui sont décrits par microsoft :
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/shell/reference/structures/browseinfo.asp

Grâce au site de Jean-Claude Bellamy ( http://www.bellamyjc.org ), je
connais quelques valeurs :
BIF_returnonlyfsdirs = &H0001
BIF_dontgobelowdomain = &H0002
BIF_editbox = &H0010
BIF_validate = &H0020
BIF_browseforcomputer = &H1000

Je cherche à connaître la valeur hexadécimale associée à
'BIF_NONEWFOLDERBUTTON'



Hello,

pas mal de constantes définies ici, dont celle que tu cherches:
http://vbnet.mvps.org/index.html?code/browse/browsenetwork.htm

'Do not add the "New Folder" button to the dialog.
'Only applicable with BIF_NEWDIALOGSTYLE: SHELL 5.0 or later only!
Private Const BIF_NONEWFOLDERBUTTON As Long = &H200

--
Jean-marc Noury (jean_marc_n2)
Microsoft MVP - Visual Basic
mailto: remove '_no_spam_' ;
FAQ VB: http://faq.vb.free.fr/




Avatar
Jean-marc
"Sacha (Pacha)" <pachaDOTlATclubDASHinternetDOTfr> a écrit dans le message
de news:
Bonne année 2007 à tous

Ma question concerne les "BIF values" des "ulFlags"
qui sont décrits par microsoft :
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/shell/reference/structures/browseinfo.asp

Grâce au site de Jean-Claude Bellamy ( http://www.bellamyjc.org ), je
connais quelques valeurs :
BIF_returnonlyfsdirs = &H0001
BIF_dontgobelowdomain = &H0002
BIF_editbox = &H0010
BIF_validate = &H0020
BIF_browseforcomputer = &H1000

Je cherche à connaître la valeur hexadécimale associée à
'BIF_NONEWFOLDERBUTTON'



Hello,

pas mal de constantes définies ici, dont celle que tu cherches:
http://vbnet.mvps.org/index.html?code/browse/browsenetwork.htm

'Do not add the "New Folder" button to the dialog.
'Only applicable with BIF_NEWDIALOGSTYLE: SHELL 5.0 or later only!
Private Const BIF_NONEWFOLDERBUTTON As Long = &H200

--
Jean-marc Noury (jean_marc_n2)
Microsoft MVP - Visual Basic
mailto: remove '_no_spam_' ;
FAQ VB: http://faq.vb.free.fr/
Avatar
Sacha \(Pacha\)
OK ... j'ai trouvé :
il faut tout simplement effectuer la somme des valeurs et appeler
BrowseForFolder
avec cette somme en paramètres ...
Const WINDOW_HANDLE = 0
Const OPTIONS = &H13C1
'vide = "C:" (pour restreindre la navigation ...) ou "." ou RIEN
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(WINDOW_HANDLE, "Sélection de
dossier : ", OPTIONS, vide)
If objFolder Is Nothing Then
Wscript.Quit
End If
Set objFolderItem = objFolder.Self
objPath = objFolderItem.Path
Wscript.Echo objPath
Merci à tous

"Jacques93" a écrit dans le message de news:

Jacques93 a écrit :

Es tu sûr de bien cocher :
Use New UI
et de pas cocher :
No 'New Folder' Button
???


Ou l'inverse, ou les deux, ou aucun ...
--
Cordialement,

Jacques.


Avatar
Jacques93
Bonsoir Sacha (Pacha),
Sacha (Pacha) a écrit :
Merci pour cette réponse très rapide en ce jour de fête ...
Testé (avec 'NewDialogStyle' > boite redimensionnable) ... mais le bouton
'Créer un nouveau dossier' est toujours là malgré 'NoNewFolderButton'.

"Jean-marc" a écrit dans le message
de news: 45998f28$0$5523$
"Sacha (Pacha)" <pachaDOTlATclubDASHinternetDOTfr> a écrit dans le message
de news:
Bonne année 2007 à tous

Ma question concerne les "BIF values" des "ulFlags"
qui sont décrits par microsoft :
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/shell/reference/structures/browseinfo.asp

Grâce au site de Jean-Claude Bellamy ( http://www.bellamyjc.org ), je
connais quelques valeurs :
BIF_returnonlyfsdirs = &H0001
BIF_dontgobelowdomain = &H0002
BIF_editbox = &H0010
BIF_validate = &H0020
BIF_browseforcomputer = &H1000

Je cherche à connaître la valeur hexadécimale associée à
'BIF_NONEWFOLDERBUTTON'


Hello,

pas mal de constantes définies ici, dont celle que tu cherches:
http://vbnet.mvps.org/index.html?code/browse/browsenetwork.htm

'Do not add the "New Folder" button to the dialog.
'Only applicable with BIF_NEWDIALOGSTYLE: SHELL 5.0 or later only!
Private Const BIF_NONEWFOLDERBUTTON As Long = &H200






Es tu sûr de bien cocher :

Use New UI

et de pas cocher :

No 'New Folder' Button

???

--
Cordialement,

Jacques.
Avatar
Jacques93
Jacques93 a écrit :

Es tu sûr de bien cocher :

Use New UI

et de pas cocher :

No 'New Folder' Button

???




Ou l'inverse, ou les deux, ou aucun ...

--
Cordialement,

Jacques.