GRAVER UN CD / DVD AVEC NEROCMD

Rem declaration des api qui permettent d'attendre la fin de l'execution avant de passer a autre chose

Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessID As Long) As Long
Private Const SYNCHRONIZE = &H100000
Private Const WAIT_TIMEOUT = &H102&

Private Sub burn_it()



Dim driveletter As String
 driveletter = "d"    ' obligatoire :la lettre du lecteur cd


Dim en_plus_dvd  As String
en_plus_dvd = " --DVD"  ' a mettre obligatoirement si on grave un cd ,sinon en_plus_dvd="" ( sinon, ca plante nerocmd :( )

Dim Import  As String
Import = " --import " ' pour importer les sessions precedentes, sinon import=""


Dim enplus_finalise  As String
enplus_finalise = " --close_session"  ' pour finaliser la session

Dim ze_burn_path  As String
ze_burn_path = "c:\mon_dossier_a_graver\" ' emplacement du dossier a graver

Dim batch_action As String
 batch_action = App.Path + "\nerocmd --write --drivename " + drivelettre + en_plus_dvd + Import + enplus_finalise + " --real  --recursive --iso BEDOT " + Chr(34) + ze_burn_path + "*.*" + Chr(34)

Rem : la fonction --recursive permet de graver l'interieur des dossier, sous dossiers ....
Rem   --real permet de graver reellement, si on ne le met pas, ca fait juste une simulation
Rem   --iso BEDOT : a la place de BEDOT, mettez le nom de votre cd


Dim filenum As Long
       filenum = FreeFile
       Open App.Path + "\nerobatch.bat" For Output As filenum
       Print #filenum, batch_action
       Close filenum


 Démarre = Shell(App.Path + "\nerobatch.bat", vbHide)
        ProcessHandle = OpenProcess(SYNCHRONIZE, False, Démarre)
        retour = WaitForSingleObject(ProcessHandle, 1)
        
        Do While retour = WAIT_TIMEOUT
            retour = WaitForSingleObject(ProcessHandle, 1)
            DoEvents
            
        Loop
        retour = CloseHandle(ProcessHandle)

Rem pour la liste complete des fonctions : en mode dos, nerocmd.exe /?
rem vous pouvez ensuite tester la presence du fichier d'erreur et l'analyser par prog si vous voulez une confirmation de reussite
End Sub