FileCopy Problem

[comanche]

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)

[Nessie]

Take a look here:

Hi!

[BrewManNH]

Try this change.

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   ;==>LocateDrive
$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)

Also, please use autoit tags around all your code, it makes it much easier to read.