ouverture fichier dossier

Bonjour,

Dans ma Form j'aimerais rajouter un apercu des fichier - Boite de dialogue - lecteur+explorateur+nom des fichier

voici le détail

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

 

Private Sub Command1_Click()

  Form3.Hide

End Sub

 

Private Sub Dir1_Change()

File1.Path = Dir1.Path

End Sub

 

Private Sub Drive1_Change()

Dir1.Path = Drive1.Drive

End Sub

 

Private Sub File1_Click()

On Error Resume Next

Dim Document As String

Document = File1.Path & "\" & File1.FileName

ShellExecute Me.hWnd, vbNullString, Document, "", vbNullString, 1

End Sub

 
Merci de m'indiquer les contrôles ou objets à insérer + les codes

Salut!

alors bah si tu veux je te file un prgm que j'ai fait il y a longtemps, c'est un explorateur...donc file, dir, etc...

il est dispo en rar ici : [ Lien ]

ciao!

Gagou9

---

N'oubliez jamais de poster des reponses a votre propre question lorsque vous trouvez la solution, ça peut servir à d'autres !

Merci pour l'explorateur mais lorsque je sélectionne un fichier exe par exemple il me met "projet 1   32

c'est peut être une erreur de ma part
Merci de m'orienter

Pour ouvrir un fichier avec son application (déclarer shellexecuteA et écrire)
ShellExecuteA 0, "Open", Chemin & "\" & NomFichier, "", "", 10
Ou pour ouvrir un explorateur sur un répertoire défini
Shell "%SystemRoot%\explorer.exe /n,/e,c:"
TBBUIM

Pour répondre à tbbuim

je ne vois pas à quel endroit ou à quel modif que je dois mettre ta solution
et je pense qu'il faut que je rajoute un contrôle, Non ?
merci de m'aider

coco