Hallo,
ich möchte eine .png Datei aus einem bestimmten Verzeichnis in dein anderes bestimmtes Verzeichnis kopieren und dabei umbenennen. Dies klappt soweit auch ganz gut, bis darauf, dass bei nochmaligen Betätigen des Speicherbuttons eine Kopie der .png Datei ohne Umbenennung erfolgt.
Ich weiß, man sollte keine den Fehler nicht per Catch abfangen, dies hab ich mehr zur Diagnose benutzt. Des weiteren habe ich die Frage, wie ich den Catch als korrekt ausgebe.
ich möchte eine .png Datei aus einem bestimmten Verzeichnis in dein anderes bestimmtes Verzeichnis kopieren und dabei umbenennen. Dies klappt soweit auch ganz gut, bis darauf, dass bei nochmaligen Betätigen des Speicherbuttons eine Kopie der .png Datei ohne Umbenennung erfolgt.
VB.NET-Quellcode
- Private Hauptordner As DirectoryInfo
- Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
- If TextBox2.Text = "" Then
- MessageBox.Show("Bitte geben Sie eine Datei an!")
- Else
- Hauptordner = New DirectoryInfo(Path.Combine("Aufträge", TextBox1.Text))
- If Not Hauptordner.Exists Then
- Hauptordner.Create()
- End If
- Dim Speicherpfad As String = "Aufträge\"
- Dim file = New FileInfo(TextBox2.Text)
- Try
- file.CopyTo(Path.Combine(Speicherpfad, TextBox1.Text, file.Name), True)
- My.Computer.FileSystem.RenameFile(Speicherpfad & TextBox1.Text & "\" & TextBox3.Text, "Pos" & ComboBox1.Text & "_" & "Foto" & ComboBox1.Text & ".png")
- Me.PictureBox1.Image.Save(Path.Combine("Aufträge\" & TextBox1.Text & "\" & "Pos" & ComboBox1.Text & "_" & "Skizze" & ComboBox1.Text & ".png"))
- Catch ex As Exception
- MsgBox(ex.Message)
- End Try
- End If
- End Sub
Ich weiß, man sollte keine den Fehler nicht per Catch abfangen, dies hab ich mehr zur Diagnose benutzt. Des weiteren habe ich die Frage, wie ich den Catch als korrekt ausgebe.