slim4ddl

Und wie soll ich das machen?

Das scheint so doch nicht zu gehen... Jemand eine andere Idee?

Hab das jetzt so gelöst: For Each zeile As String In ListBox2.Items ListBox4.Items.Contains(zeile) Next Beim Debuggen sehe ich nun auch welche Dateien in beiden Listboxen Vorhanden sind nur wie kann ich mir die Dateien in einer variablen ausgeben lassen? Weil ich das hier irgendwie einbauen muss... Zur Info, ich möchte die Dateien umbennen (Auf dem Server), die in beiden Listboxen vorhanden sind, damit beim hochladen die Datei nicht ersetzt wird. Und die die nur in Listbox 2 vorhanden ist normal hochladen. For Each zeileaufserver As String In ListBox4.Items For Each Zeile As String In ListBox2.Items If Zeile = zeileaufserver Then Dim Request As Net.FtpWebRequest = Net.WebRequest.Create(ftpserver & zeileaufserver) Dim Response As Net.FtpWebResponse Request.Credentials = New Net.NetworkCredential(Benutzername, passwort) Request.Method = Net.WebRequestMethods.Ftp.Rename Request.Timeout = (60000 * 1) ' timeout Request.RenameTo = zeileaufserver + "1" 'Neuer Name Response = Request.GetResponse() Response.Close() My.Computer.Network.UploadFile(uppathall & "\" & Zeile, ftpserver & Zeile, Benutzername, passwort) Else My.Computer.Network.UploadFile(uppathall & "\" & Zeile, ftpserver & Zeile, Benutzername, passwort) End If Timer1.Start() lblausgabe.Text = "Alle Dateien erfolgreich hochgeladen!" lblhaken.Visible = True Next Next End If

Hey Leute, Ich habe ein Problem. Und zwar habe ich zwei Listboxen, diese möchte ich gerne miteinander vergleichen. Z.B. Listbox1: test1.txt test2.txt test3.txt test4.txt Listbox2: test2.txt test3.txt test5.txt Nun möchte ich wissen welche Dateien in Listbox 1 und in Listbox 2 Vorhanden sind. Also welche es in Beiden gibt. D.h. am ende möchte ich dieses Ergebnis haben: test2.txt test3.txt Habe aber leider keine Ahnung und noch nicht mal einen Ansatz wie ich das lösen könnte. Ein einfacher Vergleich der beiden Listboxen hilft mir ja leider nicht weiter, da die Einträge an verschiedenen Stellen stehen. Und ein sortieren der Einträge auch nicht, weil z.B in Listbox 1 mehr einträge stehen können als in Listbox 2... Hat einer von euch eine Idee oder einen Code Ansatz? Gruß!

Hey, Ich arbeite immernoch an einem FTP Uploader... Immer wenn ich meine Dateien mit diesem Code: Kleine Erklärung hierzu: Ich frage erst ab welche Dateien hochgeladen werden sollen, lasse sie in der Listbox anzeigen. Dann lese ich die namen aus der Listbox ab und lade sie hoch. For Each Zeile As String In ListBox2.Items My.Computer.Network.UploadFile(uppathall & "\" & Zeile, ftpserver & Zeile, Benutzername, passwort) Next Nun werden allerdings alle Dateien überschrieben, die auf dem FTP Server schon vorhanden sind. Ich möchte allerdings überprüfen, ob die Datei vorhanden ist und wenn sie vorhanden ist, dass sie umbenannt wird. Beispielsweise habe ich die Datei test.txt, diese Datei ist auf dem Server schon vorhanden. Dann soll sie unter dem Namen test1.txt hochgeladen werden. Habt ihr ne Idee oder nen Code um das zu realisieren? Gruß und danke schon mal!

Habs hinbekommen ! Dankesehr !

Ja das habe ich schon versucht ... Allerdings bekomme ich dann eine Fehlermeldung : Danke schonmal für deine Hilfe

Könntest du das genauer erklären verstehe das nicht so ganz... Wo soll ich das & hinschreiben und wie komme ich dann zu meinem Shortcut "ALT + B" ?!

Hey Leute, ich möchte mit dem Shortcut ALT und B den Button ber betätigen... Habe es mit diesem Code versucht, der funktioniert allerdings nicht. Wenn ich einfach nur Enter einsetze geht es allerdings ich möchte aber 2 Tasten dafür belegen! Jemand eine Idee? Private Sub Kalkulationsprogramm_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown If e.KeyCode = Keys.Alt + Keys.B Then ber.PerformClick() End If End Sub Gruß und danke schonmal!

Hat geklappt die Lösung war ganz einfach ... For Each Zeile As String In ListBox1.Items My.Computer.Network.DownloadFile(ftpserver & Zeile, txtdownpath.Text + "/" + Zeile, Benutzername, passwort) Next

Visual Basic 2010 mit dem ebook macht spaß und du lernst was Galileo Computing :: Einstieg in Visual Basic 2010 - Ideal fr Programmieranfnger geeignet - openbook

ELO office - ELO professional - ELO enterprise

Hey, bin dabei ein FTP Programm mit VB.NET zu programieren nun hab ich folgendes Problem ich möchte mehrere Dateien von dem FTP Server herunterladen. Einzelne Dateien herunterzuladen ist kein Problem nur mit mehreren auf einmal wird es für mich schwierig... Ich lasse mir bis jetzt die Dateien die auf dem Server liegen in einer ListBox anzeigen und möchte jetzt halt das er alle einzelnen Dateien herunterläd. Hier ma ein Bild von meinem Programm: hab schon mehrere Möglichkeiten probiert... ' For Each Zeile As String In ListBox1.Items 'My.Computer.Network.DownloadFile(ftpserver & Zeile, 'txtdownpath.Text + "/" + Zeile, Benutzername, passwort) ' Exit For ' My.Computer.Network.DownloadFile(ftpserver & Zeile, 'txtdownpath.Text + "/" + Zeile, Benutzername, passwort) 'Next und Dim i As Single For i = 0 To x Step 1 lbeinträge = ListBox1.Items(i).ToString() My.Computer.Network.DownloadFile(ftpserver & lbeinträge, txtdownpath.Text + "/" + lbeinträge, Benutzername, passwort) Next und Dim wc As New WebClient wc.Credentials = New NetworkCredential(Benutzername, passwort) wc.Encoding = System.Text.Encoding.Default wc.Headers.Add("Content-Type", "binary/octet-stream") Dim uri As New Uri(ftpserver) '& TextBox2.Text) Dim Datei For Each Datei In My.Computer.FileSystem.GetFiles(path, FileIO.SearchOption.SearchAllSubDirectories, "*.txt") wc.UploadFile(uri, "POST", Datei) Next ' Dim wc As New WebClient ' For Each foundFile As String In My.Computer.FileSystem.GetFiles _ '(My.Computer.FileSystem.SpecialDirectories.MyDocuments) ' wc.UploadFile("ftpserver", "POST", foundFile) ' Next Das funktioniert aber alles nicht richtig ist auch warscheinlich vollkommen falsch... Schleifen sind auch nicht so mein Ding Muss auch nicht unbedingt mit einer Schleife gearbeitet werden, aber geht warscheinlich nicht anders. könnt ihr mir vielleicht helfen wäre echt cool! Danke schon mal!