Public Class Form1
    Dim user = Environment.UserName
    Dim array() As Array
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
        FolderBrowserDialog1.ShowDialog()
        MsgBox(FolderBrowserDialog1.SelectedPath)
        Dim sPath As String
        'Dim arr2 As ArrayList
        sPath = FolderBrowserDialog1.SelectedPath
 
 
        'AUFRUF
        Dim arr2 As New ArrayList
        Me.GetFiles(sPath, "DSC*.jpg", arr2)
        Me.GetFiles(sPath, "img*.jpg", arr2)
        'Me.ListBox1.Items.AddRange(CType(arr2.ToArray(GetType(String)), String( 
        ' )))
 
        For i = 0 To arr2.Count - 1
            'array(i) = arr2.Item(i)
            'ListBox1.Items.Add(array(i))
            MsgBox(arr2.Item(i).ToString) 'funktioniert
        Next
 
 
    End Sub
    Sub GetFiles(ByVal path As String, ByVal pattern As String, ByRef arr As  _
      ArrayList)
        arr.AddRange(IO.Directory.GetFiles(path, pattern))
        For Each s As String In IO.Directory.GetDirectories(path)
            getFiles(s, pattern, arr)
            Application.DoEvents()
        Next
    End Sub
 
    Private Sub upload(ByVal datei As String)
 
        Try
 
            'Hier können Sie die Datei festlegen, welche Hochgeladen werden 
            ' soll:
 
            Dim SourceFile As New IO.FileInfo(datei)
 
            'Geben Sie hier die Zugangsdaten zu Ihrem Server ein, sofern 
            ' erforderlich:
 
            Dim Username As String = "Username"
 
            Dim Password As String = "FTP-Passwort"
 
            'Die Serveradresse Plus Zieldateiname
            Dim Server As String = "Server-Adresse" & user & " - " & _
              SourceFile.Name
 
            'Der Upload:
 
            My.Computer.Network.UploadFile(SourceFile.ToString, Server, _
              Username, Password)
 
        Catch ex As Exception
 
 
 
        End Try
    End Sub
End Class

Mein Blog @ http://ideebuzz.de