Directory - Filelist - Drivelist

Kom nuuuu... det lyder da til at være et rimeligt indlysene spm!

*/ Addy

Du kan prøve med følgende koder:

Private Sub Drive1_Change()
    \' When the drive is changed, update the directory list box control.
    \' (This also triggers the Dir1_Change event for the directory list box control).
On Error GoTo fejl
Dir1.Path = Drive1.Drive
Exit Sub
fejl:
Err.Clear
svar = MsgBox(Drive1.Drive & \" er ikke klar\", vbOKOnly, \"Ups der opstod en fejl\")
Drive1.Drive = Dir1.Path
End Sub

Private Sub Dir1_Change()
  \' When the directory is changed, update the path in the file list box control.
    File1.Path = Dir1.Path
   
End Sub

Super mange gange tak!!!

*/ Addy

kommer som kaldet fra himlen.... stod med det samme problem..... thx