Filelistbox hvor min filer kommer ind hvordan kan jeg klikke på d

Private Sub File1_DblClick()
Dim strPath As String
  With File1
      strPath = .Path
      If Right$(strPath, 1) <> "\" Then
        strPath = strPath & "\"
      End If
      ' her er loader du din file ind i Text1
      Text1.Text = LoadFile(strPath & .filename)
  End With
End Sub

Private Sub Form_Load()
  File1.Path = "D:\" '<- D:\ eller en sti D:\mine\filer\
End Sub

Public Function LoadFile(ByVal strPath As String) As String
Dim strOut As String
Dim strData As String
Dim intFree As Integer
  intFree = FreeFile
  Open strPath For Input As #intFree
    Do Until EOF(intFree)
      Input #intFree, strData
      strOut = strOut & strData & vbCrLf
    Loop
  Close #intFree
  LoadFile = strOut
End Function

Tja eller bare for at være kedelig :o)

  With dlgCommonDialog
    .Flags = cdlOFNAllowMultiselect Or cdlOFNExplorer
    .MaxFileSize = 16384
    .DialogTitle = "Importer filer"
    .CancelError = False
    'ToDo: set the flags and attributes of the common dialog control
    .Filter = "Txt-Filer |*.txt"
    .ShowOpen
    If Len(.FileName) = 0 Then
      GoTo Luk
    End If
    sFile = .FileName
  End With

/Peik