commondialogboks? vælg fler filer adgangen?

Husk en List1 og CommonDialog1


Private Sub Form_Load()
Dim i As Integer
Dim strPath As String
Dim arrFiles() As String
  With CommonDialog1
        .FileName = ""
        .Flags = cdlOFNAllowMultiselect Or cdlOFNExplorer
        .Filter = "Alle (*.*)|*.*|Tekst (*.txt)|*.txt|Billeder (*.bmp;*.jpg)|*.bmp;*.jpg"
        .ShowOpen
        If .FileName <> "" Then
          arrFiles = Split(.FileName, Chr$(0))
          If UBound(arrFiles) > 0 Then
            strPath = arrFiles(0) & "\"
            For i = 1 To UBound(arrFiles)
              ' Tilføjer hvis der er flere filer. (List1)
              List1.AddItem CStr(strPath & arrFiles(i))
            Next
              Else
            ' Tilføjer hvis der kun er 1 fil. (List1)
            List1.AddItem .FileName
          End If
        End If
  End With
End Sub

Tak!

ændre lige koden, så bruger blev i den mappe, altid rart.

Private Sub Form_Load()
Dim i As Integer
Dim strPath As String
Dim arrFiles() As String
  With CommonDialog1
        .Flags = cdlOFNAllowMultiselect Or cdlOFNExplorer
        .Filter = "Alle (*.*)|*.*|Tekst (*.txt)|*.txt|Billeder (*.bmp;*.jpg)|*.bmp;*.jpg"
        .ShowOpen
        If .FileName <> "" Then
          arrFiles = Split(.FileName, Chr$(0))
          If UBound(arrFiles) > 0 Then
            strPath = arrFiles(0) & "\"
            For i = 1 To UBound(arrFiles)
              ' Tilføjer hvis der er flere filer. (List1)
              List1.AddItem CStr(strPath & arrFiles(i))
              .FileName = strPath & arrFiles(i)
            Next
              Else
            ' Tilføjer hvis der kun er 1 fil. (List1)
            List1.AddItem .FileName
          End If
        End If
  End With
End Sub

Private Sub Form_Load()
Dim i As Integer
Dim strPath As String
Dim arrFiles() As String
  With CommonDialog1
        .Flags = cdlOFNAllowMultiselect Or cdlOFNExplorer
        .Filter = "Alle (*.*)|*.*|Tekst (*.txt)|*.txt|Billeder (*.bmp;*.jpg)|*.bmp;*.jpg"
        .InitDir = "C:\bla\bla\bla" ' <- ændre det selv her
        .MaxFileSize = 10240
        .ShowOpen
        If .FileName <> "" Then
          arrFiles = Split(.FileName, Chr$(0))
          If UBound(arrFiles) > 0 Then
            strPath = arrFiles(0) & "\"
            For i = 1 To UBound(arrFiles)
              ' Tilføjer hvis der er flere filer. (List1)
              List1.AddItem CStr(strPath & arrFiles(i))
              .FileName = strPath & arrFiles(i)
            Next
              Else
            ' Tilføjer hvis der kun er 1 fil. (List1)
            List1.AddItem .FileName
          End If
        End If
  End With
End Sub

Selv tak ;)