Brennen aus VBA - Loop verlassen
08.01.2022 10:53:31
Andy
ich hoffe es kennt sich hier jemand mit einer Brennoption aus Excel heraus aus. Ich habe derweilen einen Code laufen gehabt, der eigentlich soweit funktioniert hatte. Leider haben wir jetzt externe Brenner bekommen und seither kommt mir das Programm nicht mehr aus dem Do..Loop heraus.
Ich starte die Funktion, das Brenner-LW öffnete sich bisweilen, er wartete in einer Do...Loop Schleife solange, bis eine CD eingelegt und der Brenner wieder geschlossen wurde und brannte im Anschluss einen vorgegebenen Ordner, die CD wurde benanntn und am Ende des Brennvorgangs wieder ausgeworfen. Dazu habe ich ein Userform als "Anzeige" missbraucht, um dem User die Schritte zu signalisieren.
Leider führt er seit der Verwendung neuer PCs und eines externen LW die Brennfunktion nicht mehr aus. DH. das LW wird zwar noch geöffnet, aber er erkennt die eingelegte CD nicht mehr, so dass die Anwendung im Loop versackt und das Programm zum Absturz bringt. Kann sich einer vielleicht meinen Fehler erklären?
LG Andy
Public Sub Brenne_DVD(ByVal sPfad As String, ByVal TextBox3 As String)
Dim Index ' Index to recording drive.
Dim Recorder ' Recorder object
Dim Stream ' Data stream for burning device
Dim g_DiscMaster
Dim FSI ' Disc file system
Dim Dir ' Root directory of the disc file system
Dim dataWriter
Dim Result
Dim uniqueId
Dim objWMIService As Object, obColItems As Object, objItem As Object
Dim lngCounter As Long
Index = 0 ' First and only drive on the system
Dim fs As Object
Dim F As Object
Dim OrdnerSize
Set fs = CreateObject("Scripting.FileSystemObject")
Set F = fs.GetFolder(sPfad)
Select Case F.Size
Case Is