Un script qui ouvre une boite de dialogu pour sélectionner un dossier

Question

Bonjour, j'aimerai ajouter &#224; mon scrip un option qui d&#233;fiisse sur quel r&#233;pertoire va s'ouvrir la boit de dialogue:

Const BIF_EDITBOX = &H10 
Const BIF_NEWDIALOGSTYLE = &H40 
Set sa = CreateObject("Shell.Application") 
Set Folder = sa.BrowseForFolder(0, "My Computer:", BIF_EDITBOX Or BIF_NEWDIALOGSTYLE) 
VarTest= Folder.items.Item.Path 
wscript.echo "Set VarTest=" & VarTest

Quelqu'un saurait-il m'aider ?

econs · Answer

Salut,



Cette page d&#233;crit tout le processus :


http://www.freeweb.hu/wsh2/ch12f.html


Manu

lunnatick · Answer

Bonjour, et merci

S'est cette ligne:

Set objF = objDlg.BrowseForFolder(hWnd, Title, Options[, Root])

??

lunnatick · Answer

Ok j'ai trouver ailleur:

Const BIF_EDITBOX = &H10 
Const BIF_NEWDIALOGSTYLE = &H40
RepDepart = "C:"
Set sa = CreateObject("Shell.Application") 
Set Folder = sa.BrowseForFolder(0, "My Computer:", BIF_EDITBOX Or BIF_NEWDIALOGSTYLE,RepDepart) 
BrowseAndCreate = Folder.items.Item.Path 
MsgBox BrowseAndCreate

Et pour se script s'est possible ?

set objDialog = CreateObject("SafrcFileDlg.FileOpen") 
objDialog.OpenFileOpenDlg 
wscript.echo objDialog.FileName

Un script qui ouvre une boite de dialogu pour sélectionner un dossier

3 réponses

Discussions similaires