Moin moin
Habe da ein Problem bei dem ich nicht weiter komme.
Also mein code läuft beim ersten Aufruf ohne Fehler durch.
Klicken ich nun erneut auf den Button zeigt sich ein Verhalten was ich nicht verstehe.
Hier wird dann aus plötzlich
Also der Filename wird nicht "zerstört". Ich dachte in dem Using Block werden die Variablen dann "zerstört"?
Spoiler anzeigen
Der openfileDialog
Der Kopiervorgang
*Topic verschoben*
Habe da ein Problem bei dem ich nicht weiter komme.
Also mein code läuft beim ersten Aufruf ohne Fehler durch.
Klicken ich nun erneut auf den Button zeigt sich ein Verhalten was ich nicht verstehe.
Hier wird dann aus plötzlich
Also der Filename wird nicht "zerstört". Ich dachte in dem Using Block werden die Variablen dann "zerstört"?
Der openfileDialog
VB.NET-Quellcode
- Private Sub btn_restore_Click(sender As Object, e As EventArgs) Handles btn_restore.Click
- Using OpenFileDialog As New OpenFileDialog
- OpenFileDialog.InitialDirectory = "C:\Devlop\Backup\"
- OpenFileDialog.Filter = "All|*.bak"
- OpenFileDialog.ShowDialog(Me)
- Dim FileFullName As String = OpenFileDialog.FileName
- Dim result1 As Boolean = String.IsNullOrWhiteSpace(FileFullName)
- If result1 = True Then
- klass.efehler("default")
- Else
- Dim FileName As String
- FileName = My.Computer.FileSystem.GetName(FileFullName)
- FileName = My.Computer.FileSystem.GetName(FileName)
- klass.sourcephath = FileFullName
- FileName = FileName.Remove(FileName.Length - 22, 22)
- tb_sourcephath.Text = klass.sourcephath
- tb_targetpath.Text = klass.restorepath & FileName
- klass.restorepath = klass.restorepath & FileName
- klass.ID = 2
- btn_start.Visible = True
- btn_start.Text = "Restore starten" <==== Da gehts dann zum kopieren der Datei
- End If
- End Using
- End Sub
Der Kopiervorgang
VB.NET-Quellcode
- Public Sub do_restore()
- Const message As String = "Aktion Restore wirklich ausführen?" & vbCrLf & "Die alte Datei wird überschrieben!"
- Const caption As String = "Aktion wird abgebrochen."
- If MessageBox.Show(message, caption, MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
- Try
- 'My.Computer.FileSystem.CopyFile(dbsource, dbrestore, overwrite:=True)
- efehler("restoreok")
- Catch ex As Exception
- MessageBox.Show(ex.Message)
- End Try
- Else
- efehler("cancel")
- End If
- End Sub
*Topic verschoben*
Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen.
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()