FileDelete() not deleting

[wth]

Hi There,

I've written this script but FileDelete isn't working all of the time. Today, 2 out of 10 were deleted. All of the files it is trying to delete it has access to. The filegetattrib only return "A" for those it cannot delete. All of the files are created at the same time through excel about 7 hours ago.

expandcollapse popup

_main()

Func _main()
    Local $sPOFolder
    Local $aFilelist
    Local $i
    Local $cProgressBar
    Local $aIndices[2]

    $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(2000)
            If FileExists($sDestFolder & $aFilelist[$i]) Then
                ProgressSet(Int(($i+1)/UBound($aFilelist)*100), "Deleting " & $aFilelist[$i], $i+1 & " of " & UBound($aFilelist))
                FileDelete($sPOFolder & $aFilelist[$i])
                If @error = 0 Then
                    MsgBox(0,"Error: " & @error, "This file was not deleted" &@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

I left out the _getdestfolder and global variables. They are all or return folder paths with a \ at the end.

Any suggestions?

Thanks,

[BrewManNH]

If the files are locked, maybe still in use, you can't delete them.

[wth]

Absolutely Correct!

It took me longer to create that post then it did for you to tell me what I did wrong. )

Thanks!

[BrewManNH]

At least it was that easy to fix