Bonjour,
Tu ne peux pas faire ce que tu veux avec l'openfiledialog!
Je te propose de mettre le répertoire que tu désires dans une TreeView qui t'affichera son arborescence.
Ensuite en cliquant dans cette arborescence sur un dossier tu auras les fichiers qui s'afficheront dans une ListView. Ouverture du fichier en cliquant dessus.
Il te faut une Treeview et une ListView et mettre ce code:
Imports System.IO
Public Class Form1
Dim dossier As String
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ListView1.CheckBoxes = True
ListView1.View = View.List
End Sub
'ouvrir un fichier
Private Sub ListView1_Click(sender As Object, e As System.EventArgs) Handles ListView1.Click
Dim nom As String
nom = ListView1.SelectedItems.Item(0).Text
Process.Start(dossier & "\" & nom)
End Sub
Private Sub PopulateTreeView()
Dim rootNode As TreeNode
Dim info As New DirectoryInfo("C:\Users\LePivert\Pictures") 'a adapter le répertoire
If info.Exists Then
rootNode = New TreeNode(info.Name)
rootNode.Tag = info
GetDirectories(info.GetDirectories(), rootNode)
TreeView1.Nodes.Add(rootNode)
TreeView1.ExpandAll()
End If
End Sub
Private Sub GetDirectories(ByVal subDirs() As DirectoryInfo, ByVal nodeToAddTo As TreeNode)
Dim aNode As TreeNode
Dim subSubDirs() As DirectoryInfo
Dim subDir As DirectoryInfo
For Each subDir In subDirs
aNode = New TreeNode(subDir.Name, 0, 0)
aNode.Tag = subDir
aNode.ImageKey = "folder"
Try
subSubDirs = subDir.GetDirectories()
Catch e As UnauthorizedAccessException
subSubDirs = Nothing
End Try
If Not subSubDirs Is Nothing Then
If subSubDirs.Length <> 0 Then
GetDirectories(subSubDirs, aNode)
End If
End If
nodeToAddTo.Nodes.Add(aNode)
Next subDir
End Sub
Public Sub New()
InitializeComponent()
PopulateTreeView()
End Sub
'New
Private Sub treeView1_NodeMouseClick(ByVal sender As Object, ByVal e As TreeNodeMouseClickEventArgs) Handles TreeView1.NodeMouseClick
Dim newSelected As TreeNode = e.Node
ListView1.Items.Clear()
Dim nodeDirInfo As DirectoryInfo = CType(newSelected.Tag, DirectoryInfo)
Dim subItems() As ListViewItem.ListViewSubItem
Dim item As ListViewItem = Nothing
Dim dir As DirectoryInfo
For Each dir In nodeDirInfo.GetDirectories()
item = New ListViewItem(dir.Name, 0)
subItems = New ListViewItem.ListViewSubItem() {New ListViewItem.ListViewSubItem(item, "Directory"), New ListViewItem.ListViewSubItem(item, _
dir.LastAccessTime.ToShortDateString())}
item.SubItems.AddRange(subItems)
ListView1.Items.Add(item)
Next dir
Dim file As FileInfo
For Each file In nodeDirInfo.GetFiles()
item = New ListViewItem(file.Name, 1)
subItems = New ListViewItem.ListViewSubItem() {New ListViewItem.ListViewSubItem(item, "File"), New ListViewItem.ListViewSubItem(item, _
file.LastAccessTime.ToShortDateString())}
item.SubItems.AddRange(subItems)
ListView1.Items.Add(item)
dossier = file.DirectoryName
Next file
ListView1.AutoResizeColumns(ColumnHeaderAutoResizeStyle.HeaderSize)
End Sub
End Class
