FileDelete()

[wth]

Hi There,

I'm using FileDelete() in a function and it is deleting the file but I must be trying to use the return incorrectly.

Here is the function that I'm using.

expandcollapse popup

Func _main()
    Local $sPOFolder
    Local $aFilelist
    Local $i
    Local $cProgressBar

    $cProgressBar = ProgressOn("Copy Retail Text Files", "", "", 0, @DesktopHeight - 200)

    ProgressSet(0, "", "Starting copy files")

    If $cmdline[1] = "CFC" Then
        $sPOFolder = $sPACCRootCFC & "daily_po\"
    ElseIf $cmdline[1] = "SFC" Then
        $sPOFolder = $sPACCRootSFC & "daily_po\"
    EndIf

    $aFilelist = _FileListToArray($sPOFolder, $cmdline[2] & "*.txt")

    _ArrayDelete($aFilelist, 0)

    ProgressSet(0,"Files 0 of " & UBound($aFilelist) & " completed", "0 of " & UBound($aFilelist))

    For $i = 0 to UBound($aFilelist) - 1

        If Not $aFilelist[$i] = "" Then
            $sDestFolder = _getDestFolder($aFilelist[$i], $cmdline[1])

            ProgressSet(Int(($i+1)/UBound($aFilelist)*100), "Copying " & $aFilelist[$i] & " to " &@CRLF& $sDestFolder &@CRLF& $aFilelist[$i], $i+1 & " of " & UBound($aFilelist))
            FileCopy($sPOFolder & $aFilelist[$i], $sDestFolder & $aFilelist[$i], 1)
            Sleep(250)
            If FileExists($sDestFolder & $aFilelist[$i]) Then
                ProgressSet(Int(($i+1)/UBound($aFilelist)*100), "Deleting " & $aFilelist[$i], $i+1 & " of " & UBound($aFilelist))
                Sleep(250)
                If FileDelete($sPOFolder & $aFilelist[$i]) = 0 Then
                    MsgBox(0,"Error: " & @error, "This file was not deleted" &@CRLF& "Ensure that the Celerant that made the POs is closed."&@CRLF&@CRLF&"File attributes are: " & FileGetAttrib($sPOFolder&$aFilelist[$i]))
                EndIf
            Else
                MsgBox(0,"File not copied!!!", $aFilelist[$i] & " was not copied.  Please report this error and verify that the file was in fact not copied.")
            EndIf
        EndIf
    Next
    ProgressOff()
EndFunc

It will delete the file but it's still showing the message that the file was not deleted.

Thanks for any help!

[guinness]

Maybe...

If FileDelete($sPOFolder & $aFilelist[$i]) <> 1 Then MsgBox(...)