SAUVEGARDER

Option Strict Off
Option Explicit On
Public Class Form1
    Inherits System.Windows.Forms.Form

 ' ouvrir les fichiers dans leur programme
    'C'est nécessaire pour ouvrir n'importe quel dossier, il déclare ce qui va être exécuté plus tard 
    Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Integer, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Integer) As Integer
    'Cela met le windowsize quand il devient ouvert
    Private Const SW_SHOW As Short = 5
    Private Const SW_SHOWMAXIMIZED As Short = 3
    'Cela actualisera le sentier du dossier quand vous cliquez sur l'annuaire
    Private Sub DirListBox1_Change(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles DirListBox1.Change
        FileListBox1.Path = DirListBox1.Path

    End Sub

    Private Sub DriveListBox1_SelectedIndexChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles DriveListBox1.SelectedIndexChanged
        'Cela actualisera le sentier de trajet quand vous cliquez sur la lettre de trajet
        DirListBox1.Path = DriveListBox1.Drive

    End Sub

    Private Sub FileListBox1_SelectedIndexChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles FileListBox1.SelectedIndexChanged
        Dim selectedfile As Object
        'Cela actualisera la variable selectedfile basé sur la lettre de trajet et le sentier du dossier
        selectedfile = FileListBox1.Path & "\" & FileListBox1.FileName
        'Cela ouvrira finalement le dossier choisi avec le programme approprié
        ShellExecute(0, "open", selectedfile, "", "", SW_SHOWMAXIMIZED)

    End Sub

    Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
        'Cela met l'annuaire initial et les sentiers de trajet, vous pouvez le changer si vous voulez
        DirListBox1.Path = "c:\Documents and Settings\"
    End Sub

End Class