CD/DVD aus VBA heraus brennen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

In einem anderen Forum habe ich das als Funktion gefunden:
Er brennt damit auch einen Ordner, den ich dort angebe.
Leider kann ich damit nicht die CD benennen: Die heisst danach 2021.11.01_0930 , als nach Datum und Uhrzeit des Brennvorgangs benannt.
Kann jemand sagen, wie ich die Funktion aus dem Userform direkt aufrufe? Wie kann ich die Variablen übergeben?
Und: Wie kann ich das Benennen der Uhrzeit steuern? Am besten auch mit Übergabe in Form einer Variable aus dem Userform.


Function Brenne_Ordner_auf_CD_DVD()
Dim Index                      ' Index to recording drive.
Dim Recorder                   ' Recorder object
Dim Path                       ' Directory of files to burn
Dim Stream                     ' Data stream for burning device
Index = 0                      ' First and only drive on the system
Path = "Z:\Test"            ' Files to transfer to disc
' Create a DiscMaster2 object to connect to optical drives.
Dim g_DiscMaster
Set g_DiscMaster = CreateObject("IMAPI2.MsftDiscMaster2")
' Create a DiscRecorder object for the specified burning device.
Dim uniqueId
Set Recorder = CreateObject("IMAPI2.MsftDiscRecorder2")
uniqueId = g_DiscMaster.Item(Index)
Recorder.InitializeDiscRecorder (uniqueId)
' Create an image stream for a specified directory.
Dim FSI                        ' Disc file system
Dim Dir                        ' Root directory of the disc file system
Dim dataWriter
' Create a new file system image and retrieve root directory
Set FSI = CreateObject("IMAPI2FS.MsftFileSystemImage")
Set Dir = FSI.Root
'Create the new disc format and set the recorder
Set dataWriter = CreateObject("IMAPI2.MsftDiscFormat2Data")
dataWriter.Recorder = Recorder
dataWriter.ClientName = "IMAPIv2 TEST"
FSI.ChooseImageDefaults (Recorder)
' Add the directory and its contents to the file system
Dir.AddTree Path, False
' Create an image from the file system
Dim result
Set result = FSI.CreateResultImage()
'    Stream = result.ImageStream
' Write stream to disc using the specified recorder.
MsgBox "Schreibe auf CD / DVD"
'    dataWriter.Write (Stream)
dataWriter.Write (result.ImageStream)
MsgBox "----- Schreibvorgang beendet -----"
End Function

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

CD/DVD aus VBA heraus brennen

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread