help

[Nunos]

Trying to get this to work but I am in Do Until Loop hell. The result I am looking for is that the burn does not happen unless a blank cd that can be written to is in the drive. But in various experiments I am not getting the desired results. Perhaps someone can tell me what I am doing wrong.

The include is located at the following link.

expandcollapse popup

#include "IMAPI2.au3"

Local $sImage = @DesktopDir & "\my.iso"
; Get the unique ids of all the drives on the system
$ids = _IMAPI2_DrivesGetID()


; Get the object of the first drive
$drive = _IMAPI2_DriveGetObj($ids[1])

Do
_IMAPI2_DriveEject($drive)
MsgBox(64, "Info", "Insert cd-r or cd-rw into drive " & _IMAPI2_DriveGetLetter($drive)& ":")
_IMAPI2_DriveClose($drive)
Do
Sleep(1000)
$code = _IMAPI2_DriveGetMedia($drive)
Until $code <> -1 ; Wait until the drive is ready
Until $code = $IMAPI_MEDIA_TYPE_CDR Or $code = $IMAPI_MEDIA_TYPE_CDRW ; Force the user to insert cd-r or cd-rw


$blank = _IMAPI2_DriveMediaIsBlank($drive)
Do
$blank = False
MsgBox(64, "Info", "The disk is not blank please insert a blank cd-r or cd-rw.")
Do
Sleep(1000)
$code = _IMAPI2_DriveGetMedia($drive)
Until $code <> -1 ; Wait until the drive is ready
Until $blank = True

_IMAPI2_BurnImageToDrive($drive, $sImage,"_Progress")


Func _Progress($array)
ConsoleWrite("Current action: "&$array[0]&@CRLF)
ConsoleWrite("Remaing time: "&$array[1]&@CRLF)
ConsoleWrite("Elapsed time: "&$array[2]&@CRLF)
ConsoleWrite("Total time: "&$array[3]&@CRLF)
EndFunc

_IMAPI2_DriveEject($drive) ; Eject when Burn is complete

[JohnOne]

Do
    Sleep(1000)
Until _IMAPI2_DriveGetMedia($drive) And _IMAPI2_DriveMediaIsBlank($drive)

[water]

Nunos,

could you please add a more descriptive title to your threads? Everyone on this forum is seeking for help. A descriptive title helps people to easily decide if they can help on the subject.