FileCopy Problem

I want to distribute software to PCs on CDs. I thought this would work but it doesn't.

Will someone help?

Func LocateDrive($sPath)
Local $aDrive = DriveGetDrive("CDROM")
For $iLetter = 1 To $aDrive[0] Step 1
if FileExists($aDrive[$iLetter] & "\" & $sPath) then return $aDrive[$iLetter]
Next
Return -1
EndFunc

$DriveLetter = LocateDrive("MySetup\Setup.exe")

ConsoleWrite($DriveLetter & @CRLF)

DirCreate("c:\web\software")
DirCreate("c:\web\in progress")
DirCreate("c:\web\hold")
FileCopy("$DriveLetter:\website\software\*.*", "c:\web\software",1)
FileCopy("$DriveLetter:\website\*.*", "c:\web\hold",1)
FileCopy("$DriveLetter:\website\*.*", "c:\web\in progress",1)