---

Kan det ikke lade sig gøre at når man klikker 1 gang på et katalog i Dir1
så viser den indeholdet i File1

Den må gerne åbne kataloget automatisk, men kun med et klik.

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

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

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

---

> Den må gerne åbne kataloget automatisk, men kun med et klik.
>
> Private Sub Dir1_Change()
> File1 = Dir1.Path
> End Sub
>
> Private Sub Dir1_Click()
> File1 = Dir1.Path
> End Sub
>
> Private Sub Drive1_Change()
> Dir1.Path = Drive1.Drive
> End Sub
>
>
Hej,
Lav din Dir1_Click() om til:

Private Sub Dir1_Click()
Dim dir As String
Dim i As Integer
i = Dir1.ListIndex
dir = Dir1.List(i)
Dir1.Path = dir
File1.Path = dir
End Sub

Så skulle den være der, hvis jeg forstår dig korrekt

--
Lasse