UTILISATION SIMPLE DES DRIVELISTBOX/FILELISTBOX/DIRLISTBOX

Commentaire de nouna81 le 14/12/2005 10:05:24

bonjour, ton code est suppert géniale , mais lors de son utilisation, les fichiers sans extentions ne s'ouvrent pas . si vous avez une suggestion n'esitez à me la communiquer ! merci d'avance.

Commentaire de Renfield le 16/03/2011 08:36:25 administrateur CS

Faux positif : il n'y a pas d'executable dans le zip, uniquement du code...


Je rejoint SeeNapse, trop de code inutile, utilisation d'un Timer inutile, etc.


Allez, un peu de ménage :


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 Const SW_NORMAL As Long = 1

Private Sub Drive1_Change()
On Local Error GoTo Handler
    Dir$ Drive1.Drive
    Dir1.Path = Drive1.Drive
Exit Sub
Handler:
    If Err.Number = 52 Then
        MsgBox "Le lecteur " & Drive1.Drive & " n'est pas accessible.", vbExclamation, "Lecteur non prêt."
        Drive1.Drive = Left$(Dir1.Path, 2)
    Else
        MsgBox Err.Description, , "Error " & Err.Number
    End If
End Sub

Private Sub Dir1_Change()
    File1.Path = Dir1.Path
End Sub

Private Sub File1_Click()
    If File1.ListIndex <> -1 Then
        Text1.Text = File1.FileName
        Text2.Text = Len(File1.FileName)
    End If
End Sub

Private Sub File1_DblClick()
    OuvrirFichierSelectionne
End Sub

Private Sub Command1_Click()
    OuvrirFichierSelectionne
End Sub

Private Sub OuvrirFichierSelectionne()
    If File1.ListIndex <> -1 Then
        ShellExecute 0, "Open", File1.FileName, vbNullString, Dir1.Path, SW_NORMAL
    End If
End Sub