Bouton parcourirRésolu

Question

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

stolken · Accepted Answer

merci beaucoup à tous notement Renfield !

NHenry · Answer

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)

stolken · Answer

merci !!!

stolken · Answer

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

NHenry · Answer

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)

NHenry · Answer

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)

stolken · Answer

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

cs_JMO · Answer

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

stolken · Answer

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

cs_JMO · Answer

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

Renfield · Answer

Projet > Composants (Ctrl + T)

Microsoft Common Dialog 6.0

OK

Ensuite tu as accès au controle CommonDialog, et a sa méthode ShowOpen

Mais surtout Accès à de la documentation, via l'explorateur d'objets (F2)

Voilà qui devrait te permettre de comprendre comment cela fonctionne...


les constantes spécifiées dans le flag, par JMO sont :

Const cdlOFNExplorer = 524288 (&H80000)

    Membre de MSComDlg.FileOpenConstants

    Modèle de boîte de dialogue Ouvrir un fichier Windows 95.

Const cdlOFNHideReadOnly = 4

    Membre de MSComDlg.FileOpenConstants

    Masque la case à cocher Lecture seule.

Const cdlOFNNoChangeDir = 8

    Membre de MSComDlg.FileOpenConstants

    Définit le répertoire en cours à celui qui était actif lors de l'ouverture de la boîte de dialogue.


Comme tu le vois, tout est là.... documenté, et en français...

Renfield
Admin CodeS-SourceS- MVP Visual Basic

lazlolb · Answer

C'est pas un peu compliqué ça Renfield?  On est dans la catégorie débutants je crois. Moi, ma solusse, c'est ça:

1. Crée un CommonDialog et nomme la "dialogParcourir" (par exemple  =p )

2. Ensuite, rentre ce code dans un bouton_Click avec le texte Parcourir... dessus. Il va rentrer le chemin d'accès (path) du fichier sélectionné par l'utilisateur dans la text box txtNomFichier. Je crois que c'est ce que tu veux, non?

dialogParcourir.Filter = "Fichier texte|*.TXT|Tous les fichiers|*.*"'Les types de fichiers affichés dans la liste

dialogParcourir
.FilterIndex = 1 '1 pour que l'utilisateur ne puisse sélectionner que les types de fichiers en-haut

dialogParcourir
.ShowOpen 'Choisis: ShowOpen: Dialogue ouvrir...  ShowSave: Dialogue enregistrer

txtNomFichier.Text 
= 
dialogParcourir
.FileName 

'Affiche le path dans le textbox

Voila! Merci à qui?

stolken · Answer

Nickel merci

Renfield · Answer

je ne te suis pas, lazlob....
je n'ai donné AUCUN code. J'ai juste indiqué comment ajouter un CommonDialog.


j'ai également éclaircit quelques peu le code fournit par JMO (page 1) en explicitant les flags utilisés.


concernant ton code, il est a prendre avec des pincettes...


en général, le filtre est plutôt de la forme :

"Fichier texte (*.txt)|*.TXT|Tous les fichiers (*.*)|*.*"


de plus, tu n'effectue aucun test... que se passe-t'il si l'utilisateur presse le bouton Annuler ?

ta textbox se vide.


l'utilisateur peut, ici encore, saisir un nom de fichier inexistant, sans qu'il soit géné de quelque manière que ce soit...

(d'où l'utilité des Flags, que j'ai décrit plus haut)

Renfield
Admin CodeS-SourceS- MVP Visual Basic

Bouton parcourir

14 réponses

Votre réponse

Discussions similaires