Hallo,
ich wollte über ein Button Daten auf eine CD kopieren und die CD gleichzeitig beschriften.
Kopieren von "C:\x" zu "C:\y" hatte funktioniert aber von "C:\x" auf "E:\x" funktioniert scheinbar nicht auf die gleiche Art und Weise.
Kann mir jemand sagen, wie ich das CD Laufwerk ansprechen soll, um Dateien drauf zu kopieren und wie man diese dann beschriften kann?
(Es kann auch gut sein, dass im Abfrage Kontext noch Fehler sind.)
Freue mich über Feedback.
ich wollte über ein Button Daten auf eine CD kopieren und die CD gleichzeitig beschriften.
Kopieren von "C:\x" zu "C:\y" hatte funktioniert aber von "C:\x" auf "E:\x" funktioniert scheinbar nicht auf die gleiche Art und Weise.
Kann mir jemand sagen, wie ich das CD Laufwerk ansprechen soll, um Dateien drauf zu kopieren und wie man diese dann beschriften kann?
(Es kann auch gut sein, dass im Abfrage Kontext noch Fehler sind.)
Freue mich über Feedback.
VB.NET-Quellcode
- Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
- Dim sPfad As String = "C:\300export"
- Dim ePfad As String = "E:\"
- Dim Monat As String = ComboBox1.SelectedItem
- Dim Jahr As String = Strings.Right(NumericUpDown1.Value, 2)
- Dim Text As String = "TA4 Images "
- Dim Dateiname As String = Text & Monat & Jahr
- Dim Counter = My.Computer.FileSystem.GetFiles(sPfad)
- 'CD beschriften und Daten auf CD kopieren
- '
- 'Prüfen ob eine CD im Laufwerk
- If New IO.DriveInfo(ePfad).IsReady = False Then
- MsgBox("Es befindet sich keine CD im Laufwerk.")
- Else
- 'Prüfen ob Dateien im sPfad sind
- If Counter.count = 0 Then
- MsgBox("Es sind keine Dateien zum Kopieren in C:\300export vorhanden.")
- Else
- 'Prüfen ob Text und Jahr eingetragen sind
- If Monat = "" And Jahr = "" Then
- MsgBox("Es wurde kein oder kein vollständiger Abrechnungszeitraum ausgewählt.")
- Else
- 'CD Beschriften
- MsgBox(Dateiname)
- 'Dateien aus sPfad auf die CD kopieren
- My.Computer.FileSystem.CopyDirectory(sPfad, ePfad, True)
- End If
- End If
- End If
- End Sub