Ouverture de répertoire dans Form MDIRésolu

Question

Bonjour à tous,

je suis novice en programmation visual basic 2012, je réalise un programme qui doit ouvrir un répertoire dans un Form MDI.
J'arrive a ouvrir des nouvelles Form dans le Form MDI, mais pas la fenêtre du répertoire qui s'ouvre toujours à l'extérieur du Form MDI.
Depuis 1 semaine je cherche sur le net mais je ne trouve que des exemples d'ouverture de fichier PDF, TXT etc... mais pas avec des répertoires.
Quelqu'un pourrai m'apporter une aide, un bout de code, un tuto ou une autre façon de faire?
EN vous remerciant d'avance.

Djay

cs_Le Pivert · Answer

Bonjour,

tu peux ouvrir un dossier et afficher les fichiers qu'il contient dans une listBox, comme ceci:

Option Strict On
Imports System.IO
Public Class Form1
    Dim chemin As String
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim opendir As New FolderBrowserDialog
        With opendir
            .ShowNewFolderButton = False
            .RootFolder = Environment.SpecialFolder.MyDocuments
            If .ShowDialog = Windows.Forms.DialogResult.OK Then
                Dim di As New IO.DirectoryInfo(.SelectedPath)
                chemin = .SelectedPath
                Dim extFi As IO.FileInfo() = di.GetFiles("*.*") 'filtrer les fichiers
                Dim fi As IO.FileInfo
                For Each fi In extFi
                    ListBox1.Items.Add(fi.Name) 'affiche les noms avec extension

'ListBox1.Items.Add(fi.Name.Replace(fi.Extension, ""))'affiche les noms sans extension
                Next
            Else
                MessageBox.Show("Operation annulée par l'utilisateur!", "Ouverture dossier", MessageBoxButtons.OK, MessageBoxIcon.Information)
            End If
            .Dispose()
        End With
    End Sub
    'récupérer chemin complet en cliquant dans la listBox
    Private Sub ListBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        MsgBox(chemin & "\" & ListBox1.SelectedItem.ToString)
    End Sub
End Class

cs_Le Pivert · Answer

J'ai fait un explorateur avec une treview, si cela t'interesse:

 http://www.cjoint.com/c/EGbrr6ZcFuQ

glodylmg · Answer

Bonjour Djay essai avec ce code

Private Sub OpenFile(ByVal sender As Object, ByVal e As EventArgs) Handles OpenToolStripMenuItem.Click, OpenToolStripButton.Click
       
 Dim OpenFileDialog As New OpenFileDialog
        OpenFileDialog.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
       
    End Sub

djay90 · Answer

Bonjour à tous,

merci pour toute les pistes qui m'ont permis de trouver une solution provisoire.

Mon choix c'est tourné sur une ListeView avec SmallImageList.

Ainsi, j'ai créé un Form MDI dans lequel j'insère 1 Form child.

Ce Form child accueille une ListeView avec SmallImageList (icônes des fichiers a traiter).

La ListeView est en affichage "détail" contenant les colonnes du Nom, Type et Taille du fichier.

Je créé une fonction "mise à jour" et j'intègre un FileSystemWatcher sur le répertoire que je veux scruté. Ainsi, lorsque des fichiers se présentent dans le répertoire, le FileSystemWatcher déclenche la mise à jour de la ListeView qui m'affiche la liste des fichiers présent a traiter.

Mon programme n'est pas encore terminé mais il avance à grand pas grâce à vos suggestions.

Je vous en remercie très chaleureusement.

djay90 · Answer

Pour la poursuite de de mon programme je souhaite faire un copier, collé, effacé, renommé sur chaque fichier de la ListView. J'ai créé un ContextMenuStrip (avec son menu déroulant) que j'ai affilié à la ListView (dans les propriétés de ListView dans le menu déroulant j'attribue le ContextMenuStrip créé).

Mon soucis actuellement est d'effectuer la fonction "copier" dans le presse papier (Clipboard) avec Clipboard.SetFileDropList, mais sans résultats.

Mon code est le suivant:

 Dim list As System.Collections.Specialized.StringCollection

        list = My.Computer.FileSystem.GetFiles("C:\mon\fichier	oto.ext")
        Dim listReader As New System.Collections.Specialized.StringCollection
        listReader.Add(item\de listview)

        My.Computer.Clipboard.SetFileDropList("C:\mon\fichier	oto.ext")

Pour la ligne : list = My.Computer.FileSystem.GetFiles("C:\mon\fichier	oto.ext") il ne peut pas prendre l'adresse du fichier à copier dans presse papier car c'est un String.

Quelqu'un pourrai m'aider sur la commande Clipboard.SetFileDropList pour copier un fichier présent dans un répertoire (et non le nom du fichier en txt).

En vous remerciant d'avance.

cs_Le Pivert · Answer

Pour le copier, déplacer et supprimer d'un fichier. Cela ne passe pas par le Clipboard.
Il y a des méthodes faites pour cela:

https://msdn.microsoft.com/en-us/library/ms127964(v=vs.110).aspx

Voilà un exemple avec listview:

http://codes-sources.commentcamarche.net/source/50894-listview-tri-extensions

Ouverture de répertoire dans Form MDI

6 réponses

Votre réponse