Bouton parcourir

Bonjour à tous,
J'aimerai simplement savoir si il existe un controle permettant de selectionner un ou plusieurs fichier présent sur le disque dur
Comme celui que l'on peut trouver dans la commande demarrer ===> executer ====> parcourir .

Merci d'avance

Marc

Bonjour

Dans l'onglet CommonDialog du panneau controles, tu as un BrowseDialog, tu peux l'utiliser.

Il est plus facile de batiser quelqu'un que de la convertir. (surtout en programmation)
NHenry (VB6, VBA excel, VB.NET, C++, C#.Net)

merci !!!

en fait je trouve pas le controls browsedialog,  par contre j'ai trouvé le controle commundialog, c'est celui la ? 

Bonjour

CommonDialog, c'est du VB6 ?
En .NET, tu as SaveFileFialog, OpenFileDialog, ...

Il est plus facile de batiser quelqu'un que de la convertir. (surtout en programmation)
NHenry (VB6, VBA excel, VB.NET, C++, C#.Net)

Bonjour

ps, je pars en vacances, je n'irais sur internet que rarement.

Il est plus facile de batiser quelqu'un que de la convertir. (surtout en programmation)
NHenry (VB6, VBA excel, VB.NET, C++, C#.Net)

oui j'ai vb 6.0, tu connais l'equivalent ?
bonne vacance !

 Bonjour,

Exemple de CommonDialog:

MsgBox BrowseForFile("D:\", "Fichier Excel|*.xls|")
Function BrowseForFile(pstrPath, pstrFilter)
Set objDialog = CreateObject("UserAccounts.CommonDialog")
objDialog.Filter = pstrFilter
objDialog.InitialDir = pstrPath
objDialog.Flags = &H80000 + &H4 + &H8
intResult = objDialog.ShowOpen
BrowseForFile = objDialog.FileName
end function

jean-marc

Salut jean-marc,
peux tu expliquer un peu ton code car je comprend presque rien stp ?

 Bonsoir,

IL y a plusieurs variantes de CommanDialog.

Ci-dessous, un script un petit peu détaillé:
'Ce script permet d'ouvrir une fenêtre Explorer
'et affiche le nom du fichier selectionné par l'utilisateur
Dim WshShell, objDlg
Set WshShell = wscript.CreateObject("wscript.Shell")
Set objDlg = wscript.CreateObject("MSComDlg.CommonDialog")
'choix de l'affichage
objDlg.Filter = "All Files (*.*)|*.*|coucou Files (*.txt)|*.txt|jean-marc"
'Positionnement de la fenêtre
objDlg.FilterIndex = 2
objDlg.MaxFileSize = 260
objDlg.CancelError = true
objDlg.ShowOpen

MsgBox "Répertoire et Fichier: " & objDlg.FileName &vbCrLf&_
       "Fichier: " & Mid(objDlg.FileName, InStrRev(objDlg.FileName, "\") + 1)

Set WshShell = Nothing
Set objDlg = Nothing
Set fso = Nothing


'Donc, possiblité d'ouvrir le fichier ou d'activer une application
' Ci-dessous, un autre exemple:
Dim oUA, WshShell, chemin, fichier
Set oUA = CreateObject("UserAccounts.CommonDialog")
Set WshShell=CreateObject("WScript.Shell")
chemin = oUA.ShowOpen
fichier = oUA.FileName
WshShell.Run(fichier)
Set oUA = Nothing
Set WshShell = Nothing


jean-marc