Hallo,
ich habe einen Ordner voll mit Bildern und ich möchte ein Tool erstellen, welches bestimmte Bilder an eine Position kopiert. Welche Bilder genau kopiert werden sollen, steht in einer Textdatei (goo.gl/bxSIQx). Ein Bild in dem Ordner heißt z.B. SAM_0001.jpg aber in der Textdatei steht nur 0001. Der Nutzer soll nur Bilder-Ordner, Ziel-Order (also wo hin kopiert werden soll) und Textdatei mit entsprechenden Bildernummern angeben. Ich habe es mit folgendem Code versucht aber es kommt beim Debuggen ein Fehler bei Klick auf Button 4 (www11.pic-upload.de/18.07.15/qqth3i6b7s6.png) Datei nicht gefunden. Code:
Ich hoffe, ihr könnt mir helfen.
LG
ich habe einen Ordner voll mit Bildern und ich möchte ein Tool erstellen, welches bestimmte Bilder an eine Position kopiert. Welche Bilder genau kopiert werden sollen, steht in einer Textdatei (goo.gl/bxSIQx). Ein Bild in dem Ordner heißt z.B. SAM_0001.jpg aber in der Textdatei steht nur 0001. Der Nutzer soll nur Bilder-Ordner, Ziel-Order (also wo hin kopiert werden soll) und Textdatei mit entsprechenden Bildernummern angeben. Ich habe es mit folgendem Code versucht aber es kommt beim Debuggen ein Fehler bei Klick auf Button 4 (www11.pic-upload.de/18.07.15/qqth3i6b7s6.png) Datei nicht gefunden. Code:
VB.NET-Quellcode
- Imports System.IO
- Public Class Form1
- Dim Pfad_SOurce As String
- Sub BilderListe() 'Eigentliches Kopieren
- For i As Integer = 0 To Label4.Text()
- Dim Daten_Lesen() As String = IO.File.ReadAllLines(Label3.Text)
- Dim Source As String = Pfad_SOurce + "\SAM_" & Daten_Lesen(i) & ".jpg"
- Dim Destination As String = Label2.Text & "\Pic" & (i) & ".jpg"
- System.IO.File.Copy(Source, Destination, True)
- Next
- End Sub
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 'Ordner mit den Bildern
- FolderBrowserDialog1.ShowDialog()
- Dim Pfad_SOurce As String
- Pfad_SOurce = FolderBrowserDialog1.SelectedPath
- Label2.Text = Pfad_SOurce
- End Sub
- Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 'Zielordner
- FolderBrowserDialog2.ShowDialog()
- Dim Pfad_Ziel As String
- Pfad_Ziel = FolderBrowserDialog2.SelectedPath
- Label2.Text = Pfad_Ziel
- End Sub
- Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click 'Textdatei
- OpenFileDialog1.ShowDialog()
- Dim Textdatei As String
- Textdatei = OpenFileDialog1.FileName
- Label3.Text = Textdatei
- End Sub
- Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click 'Startbefehl
- Dim Lines() As String = System.IO.File.ReadAllText(Label3.Text).Split(Environment.NewLine) 'Hier wird geschaut, wie viele Zeilen die Textdatei hat.
- Dim LineCount As Integer = Lines.Count
- Label4.Text = LineCount
- BilderListe()
- End Sub
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- End Sub
- End Class
Ich hoffe, ihr könnt mir helfen.
LG