Код:

$sTag = "WIN51"
$sDVD = ""

$aDrives = DriveGetDrive("ALL")

While 1
    For $i=1 To $aDrives[0]
        If FileExists($aDrives[$i] &"\"& $sTag) Then 
			$sDVD = $aDrives[$i]
			MsgBox(64, "Ура!", "Файл найден - запущена одна прога!")
			Exit
		EndIf
	  Next
    If StringLen($sDVD)>0 Then ExitLoop
    MsgBox(16, "Ошыбко", "Файл не найден - запущена другая прога!")
	Exit
WEnd