Mit Button Dateien auf eine CD kopieren und CD beschriften

Sam85 · 25. Oktober 2016, 10:12

Das ist was in meiner UF steht

VB.NET-Quellcode

Dim clsBurn As clsCDBurn
Private Sub Form7_Load(sender As Object, e As EventArgs) Handles Me.Load
'CD Brennen
Try
clsBurn = New clsCDBurn
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try
end Sub

Das ist was im Modul steht

VB.NET-Quellcode

Imports System.Runtime.InteropServices
Imports
Public Class clsCDBurn
Private imapiCD As IMAPI_CDBurner.ICDBurn
Private mbHasCDBurner As Boolean = False
Private mstrDrive As String
Private mstrBurnPath As String
<DllImport("shell32.dll", entrypoint:="SHGetFolderPathW", _
CallingConvention:=CallingConvention.StdCall)> _
Private Shared Function SHGetFolderPath(ByVal hWnd As Integer, _
ByVal nFolder As Integer, ByVal nToken As Integer, _
ByVal dwFlags As Integer, _
<MarshalAs(UnmanagedType.LPTStr)> ByVal lpszPath As String) As Boolean
End Function
Public Sub New()
Const CSIDL_CDBURN_AREA = &H3B
Dim os As OperatingSystem
os = Environment.OSVersion
If os.Platform <> PlatformID.Win32NT And os.Version.Major < 5 _
And os.Version.Minor < 1 Then
Throw New Exception("Unsupported Operating System")
Return
End If
Dim strPath As String = Space(260)
If SHGetFolderPath(0, CSIDL_CDBURN_AREA, 0, 0, strPath) = 0 Then
strPath = strPath.Trim
strPath = strPath.Substring(0, strPath.Length - 1)
mstrBurnPath = strPath + "\"
End If
imapiCD = New IMAPI_CDBurner.CDBurnClass
Dim intDrives As Integer
imapiCD.HasRecordableDrive(intDrives)
mbHasCDBurner = intDrives > 0
If Not mbHasCDBurner Then
Throw New Exception("No CD Burner")
Return
End If
End Sub
Public Function AddFileToBurn(ByVal strFile As String) As Boolean
Dim fl As System.IO.FileInfo
Dim strPath As String
Try
fl = New System.IO.FileInfo(strFile)
strPath = mstrBurnPath + fl.Name
System.IO.File.Copy(strFile, strPath)
Catch
Return False
End Try
Return True
End Function
Public Sub Burn(ByVal hWnd As IntPtr)
imapiCD.Burn(UInt32.Parse(hWnd.ToString))
End Sub
End Class

RodFromGermany · 25. Oktober 2016, 10:22

@Sam85 Ich hab mal die Projektvorlage aus Deinem Link runtergeladen, die funktioniert bei mir sofort: W10, VS2013 Professional.
Fang auch noch mal mit diesem Projekt an und übernimm einzeln Deine Änderungen.
Teste nach jedem Schritt.

Sam85 · 25. Oktober 2016, 10:24

Ich hab das Projekt auch mal so gestartet (er macht am Anfang automatische Veränderungen), es läuft. Kann ich es einfach komplett in mein Projekt hinzufügen?

RodFromGermany · 25. Oktober 2016, 10:27

@Sam85 Das wäre die falsche Herangehensweise, das wird nicht funktionieren.
Du musst mit einem laufenden Projekt beginnen.

Sam85 · 25. Oktober 2016, 10:38

Ah ok. Das habe ich mir gedacht. Ist es also sinnvoller das Projekt so zu verwenden und meins dahin zu übertragen.

RodFromGermany · 25. Oktober 2016, 10:48

@Sam85 Jou.

Sam85 · 25. Oktober 2016, 10:53

Super

Danke für deine Hilfe. Vielleicht bekomme ich es so rum besser hin.

RodFromGermany · 25. Oktober 2016, 11:05

@Sam85 Ich hab mal die Klasse clsCDBurn leicht aufgeräumt:

Spoiler anzeigen

VB.NET-Quellcode

Public Class clsCDBurn
Public ReadOnly Property HasCDBurner As Boolean
Get
Return Me.mbHasCDBurner
End Get
End Property
Private mbHasCDBurner As Boolean
Private imapiCD As IMAPI_CDBurner.ICDBurn
Public Sub New()
Me.imapiCD = New IMAPI_CDBurner.CDBurnClass
Dim intDrives As Integer
Me.imapiCD.HasRecordableDrive(intDrives)
Me.mbHasCDBurner = intDrives > 0
If Not Me.mbHasCDBurner Then
Throw New Exception("No CD Burner")
End If
End Sub
Public Function AddFileToBurn(ByVal source As String) As Boolean
Try
Dim pathBurn = Environment.GetFolderPath(Environment.SpecialFolder.CDBurning) & "\"
Dim fi = New System.IO.FileInfo(source)
System.IO.File.Copy(source, pathBurn & fi.Name)
Return True
Catch
Return False
End Try
End Function
Public Sub Burn(ByVal hWnd As IntPtr)
Me.imapiCD.Burn(UInt32.Parse(hWnd.ToString))
End Sub
End Class

Sam85 · 25. Oktober 2016, 11:34

Dankeschön

sieht um einiges ordentlicher aus

Sam85 · 25. Oktober 2016, 13:32

Was mir gerade noch eingefallen ist, kann ich theoretisch meine Forms einfach in das andere Projekt einfügen ohne Schwierigkeiten zu erhalten?

RodFromGermany · 25. Oktober 2016, 13:34

@Sam85 Mach Dir eine Sicherungskopie und dann probier das.

Sam85 · 1. November 2016, 14:14

Hallöchen,

ich hab das endlich mal angefangen und es verbunden. Nun will ich den Pfad unterbringen, dieser wird in einer ComboBox angezeigt aber ich bin mir nicht sicher, wo/wie ich den Pfad am besten deklariere?

VB.NET-Quellcode

Imports System.Runtime.InteropServices
Public Class clsCDBurn
Public ReadOnly Property HasCDBurner As Boolean
Get
Return Me.mbHasCDBurner
End Get
End Property
Private mbHasCDBurner As Boolean
Private imapiCD As IMAPI_CDBurner.ICDBurn
Public Sub New()
Me.imapiCD = New IMAPI_CDBurner.CDBurnClass
Dim intDrives As Integer
Me.imapiCD.HasRecordableDrive(intDrives)
Me.mbHasCDBurner = intDrives > 0
If Not Me.mbHasCDBurner Then
Throw New Exception("No CD Burner")
End If
End Sub
Public Function AddFileToBurn(ByVal source As String) As Boolean
Try
Dim pathBurn = Environment.GetFolderPath(Environment.SpecialFolder.CDBurning) & "\"
Dim fi = New System.IO.FileInfo(source)
System.IO.File.Copy(source, pathBurn & fi.Name)
Return True
Catch
Return False
End Try
End Function
Public Sub Burn(ByVal hWnd As IntPtr)
Me.imapiCD.Burn(UInt32.Parse(hWnd.ToString))
End Sub
End Class

bzw. kann ich den "Pfad" da irgendwo einbauen?

VB.NET-Quellcode

Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
Dim sPfad As String = y:\300archiv\open\
Dim Pfad = sPfad & "\" & ComboBox2.SelectedItem & "\"
If ofdBurn.ShowDialog = DialogResult.OK Then
clsBurn.AddFileToBurn(ofdBurn.FileName)
End If
End Sub

Sam85 · 2. November 2016, 08:12

Vielleicht habe ich mich etwas falsch erklärt, wenn ich so darüber nachdenke.

Das sind die Codes die ich habe

1. Das Modul

Spoiler anzeigen

VB.NET-Quellcode

Imports System.Runtime.InteropServices
Public Class clsCDBurn
Public ReadOnly Property HasCDBurner As Boolean
Get
Return Me.mbHasCDBurner
End Get
End Property
Private mbHasCDBurner As Boolean
Private imapiCD As IMAPI_CDBurner.ICDBurn
Public Sub New()
Me.imapiCD = New IMAPI_CDBurner.CDBurnClass
Dim intDrives As Integer
Me.imapiCD.HasRecordableDrive(intDrives)
Me.mbHasCDBurner = intDrives > 0
If Not Me.mbHasCDBurner Then
Throw New Exception("No CD Burner")
End If
End Sub
Public Function AddFileToBurn(ByVal source As String) As Boolean
Try
Dim pathBurn = Environment.GetFolderPath(Environment.SpecialFolder.CDBurning) & "\"
Dim fi = New System.IO.FileInfo(source)
System.IO.File.Copy(source, pathBurn & fi.Name)
Return True
Catch
Return False
End Try
End Function
Public Sub Burn(ByVal hWnd As IntPtr)
Me.imapiCD.Burn(UInt32.Parse(hWnd.ToString))
End Sub
End Class

2. Ein add to List Button

Spoiler anzeigen

3. Ein burn to CD Button

Spoiler anzeigen

Nun will ich den add to List Button ersetzen mit einen fixen Pfad und einer Orderauswahl in diesem Pfad mit einer ComboBox. Und dann will ich alle Dateien in diesem Ordner auf die CD brennen. Wo muss ich den Pfad ansetzen?
Ich habe erst vermutet im Modul aber dann dachte ich, vielleicht reicht es auch den Befehl in add to List abzuwandeln, nur war ich dort bzgl. der Codierung nicht wirklich auf dem Dampfer.
Oder bin ich auf dem Holzweg?
Freue mich über Feedback.

Hier der geplante Pfad:

Spoiler anzeigen

RodFromGermany · 2. November 2016, 08:27

@Sam85 Das machst Du genau so wie mit dem OpenFileDialog, nur dass Du einen FolderBrowserDialog nimmst und dann mit New DirectoryInfo().GetFiles() die Dateien einsammelst:

VB.NET-Quellcode

Using dlg = New FolderBrowserDialog
dlg.SelectedPath = "c:\temp"
If dlg.ShowDialog <> Windows.Forms.DialogResult.OK Then
Return
End If
Dim files() = New IO.DirectoryInfo(dlg.SelectedPath).GetFiles("*.*", IO.SearchOption.TopDirectoryOnly)
Me.ListBox1.Items.AddRange(files)
End Using

Sam85 · 2. November 2016, 08:48

@RodFromGermany

In Ordnung :)...wozu ist die ListBox oder kann ich das ausklammern bzw. kann ich das mit meiner ComboBox ersetzen?

RodFromGermany · 2. November 2016, 09:06

Sam85 schrieb:

wozu ist die ListBox

Dich zum Mitdenken anzuregen.

Da kannst Du natürlich machen, was immer Du benötigst.
Mein Snippet zeigt die vorhandenen Dateien an.

Sam85 · 2. November 2016, 09:16

das ist auch gut so...
was ich jetzt nicht ganz verstehe: Es wird diese Dateisuche geöffnet..kann ich diese auch stoppen, so das direkt der ausgewählte Inhalt aus der ComboBox (ausgewählter Pfad) angesprochen wird?
Weil wozu benötige ich dann die letzte Zeile? Und der Showdialog sollte dann ja auch weg oder? :?:

VB.NET-Quellcode

Dim sPfad As String = \\rs-win1\Ablage\300archiv\open\
Dim Pfad = sPfad & "\" & ComboBox2.SelectedItem & "\"
Using dlg = New FolderBrowserDialog
dlg.SelectedPath = Pfad
If dlg.ShowDialog <> Windows.Forms.DialogResult.OK Then
Return
End If
Dim files() = New IO.DirectoryInfo(dlg.SelectedPath).GetFiles("*.*", IO.SearchOption.TopDirectoryOnly)
Me.ComboBox2.Items.AddRange(files)
End Using

RodFromGermany · 2. November 2016, 09:34

@Sam85 Klar. Wenn der Pfad fix ist, kannst Du Dir den Dialog sparen.

Sam85 · 2. November 2016, 09:40

so jetzt sieht es bei mir so aus. Nur wird jetzt nichts gebrannt. :?:

Habe ich etwas vergessen oder spreche ich etwas falsch an?
Es kommt nur die Meldung "Es wurden keine Dateien zum Brennen bereitgestellt." In dem Pfad sind aber zwei Dateien vorhanden. :?:

VB.NET-Quellcode

Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
Dim sPfad As String = \\rs-win1\Ablage\300archiv\open\
Dim Pfad = sPfad & ComboBox2.SelectedItem & "\"
Using dlg = New FolderBrowserDialog
dlg.SelectedPath = Pfad
Dim files() = New IO.DirectoryInfo(dlg.SelectedPath).GetFiles("*.*", IO.SearchOption.TopDirectoryOnly)
End Using
End Sub

RodFromGermany · 2. November 2016, 09:42

Sam85 schrieb:

VB.NET-Quellcode

Dim files() = New IO.DirectoryInfo(dlg.SelectedPath).GetFiles("*.*", IO.SearchOption.TopDirectoryOnly)

Die Dateien befinden sich im Array files. Von dort musst Du sie zum Brennen übertragen.

Mit Button Dateien auf eine CD kopieren und CD beschriften

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Sam85 schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

Sam85 schrieb:

VB.NET-Quellcode

Ähnliche Themen

5 Benutzer haben hier geschrieben