Private Sub Command1_Click() End Sub Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub Private Sub Drive1_Change() Dim v v = Drive1.Drive Dir1.Path = v End Sub Private Sub File1_Click() End Sub Private Sub File1_DblClick() Dim v v = Drive1.Drive a = Left(v, 2) If File1.Path = a + "\" Then Shell File1.Path + File1.FileName, vbNormalFocus Else Shell File1.Path + "\" + File1.FileName, vbNormalFocus End If End Sub Private Sub Form_Load() Drive1.Drive = "c:" Dir1.Path = "c:\" File1.Path = "c:\" End Sub
Je préfère utiliser comdlg32.ocx (Microsoft Common Dialog Control 6.0) Parce que là on se croirait retournés sous win 3.x !
Peut etre leneuf, mais ca marche aussi avec une listview et la, c exactement la meme méthode a peu de chose pres en créant des tableaux, et ca a rien a voir avec Win 3.1
Et si tu veux selectionner un dossier, tu fait comment avec un comdlg32.ocx ? Alors que cette methode fonctionne aussi. A++ Hervé
Se souvenir du profil
Mot de passe oublié ? / Activation de compteCréer un compte
1 598 987 membres 248 nouveaux aujourd'hui 15 441 membres club