Jump to content

Array Trouble again

engjcowi

By engjcowi,
in AutoIt General Help and Support

 Share

Recommended Posts

engjcowi Polymath

engjcowi

Posted
Posted (edited)

Hi guys

Im trying to create a file backup program. This will backup the documents directory and others automatically. I would like to give the option of selecting additional folders and have the program search for specific file types. Ive created a basic gui with an edit box to show whats going on. but im having an issue. I think this line is the issue For $s = 1 To Ubound($avArray) - 1 in the smeg function (lol sorry)

Whenever i run the prog itcopies the files over with no problem however the gui freezes at a certain point and only a certain amount of the files copied get listed. I tried using only a small amount of files to copy so i could have a completed message but again the gui seems to freeze. i tried changing the line above to For $s = 1 To $avArray and For $s = 1 To $avArray[1] and to For $s = 1 To 100 but i just cant seem to get it right. could someone please take a look at my array and see if im doing something wrong or missing something please.

thank you

jamie

#RequireAdmin
#NoTrayIcon

#include <GUIConstants.au3>
#include <StaticConstants.au3>
#include <EditConstants.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#include <GuiEdit.au3>
#include <Array.au3>
local $Destination, $seladdfol
Local $avArray[1]
$Form1 = GUICreate("Backup", 622, 450, 193, 125)
$Label1 = GUICtrlCreateLabel("Backup Destination:", 4, 12, 175, 19, BitOR($SS_CENTER,$SS_CENTERIMAGE))
GUICtrlSetFont(-1, 11, 400, 0, "Lucida Console")
$Input1 = GUICtrlCreateInput("", 184, 11, 353, 23)
GUICtrlSetFont(-1, 11, 400, 0, "Lucida Console")
$Button1 = GUICtrlCreateButton("Browse", 540, 10, 75, 25, 0)
GUICtrlSetFont(-1, 11, 400, 0, "Lucida Console")
$Edit1 = GUICtrlCreateEdit("", 4, 40, 613, 369, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN,$WS_VSCROLL))
GUICtrlSetFont(-1, 11, 400, 0, "Lucida Console")
GUICtrlSetColor(-1, 0x00FF00)
GUICtrlSetBkColor(-1, 0x000000)
_GUICtrlEdit_SetReadOnly($Edit1, True)
$BACKUP = GUICtrlCreateButton("Backup", 460, 416, 75, 25, 0)
GUICtrlSetFont(-1, 11, 400, 0, "Lucida Console")
$Addfol = GUICtrlCreateButton("Add Folder", 360, 416, 85, 25, 0)
GUICtrlSetFont(-1, 11, 400, 0, "Lucida Console")
$Exit = GUICtrlCreateButton("Exit", 540, 416, 75, 25, 0)
GUICtrlSetFont(-1, 11, 400, 0, "Lucida Console")
$Checkbox1 = GUICtrlCreateCheckbox("Compress Backup", 8, 420, 157, 17)
GUICtrlSetFont(-1, 11, 400, 0, "Lucida Console")
GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            _Exitcode()
        Case $Exit
            _Exitcode()
        Case $Button1
            _BackupDestination()
  Case $Addfol
            _Addfolder()
        Case $BACKUP
   ;MsgBox(4096,"",$Destination)
   ;_ArrayDisplay($avArray, "$avArray AFTER _ArrayAdd()")
   smeg()
        
   GuiCtrlSetData($Edit1,@CRLF & @CRLF, 1)
   GuiCtrlSetData($Edit1, "Completed" & @CRLF, 1)
  
        
    EndSwitch
WEnd
Func _Exitcode()
    GUIDelete()
    Exit
EndFunc
Func _BackupDestination()
    $Destination = FileSelectFolder("Select backup destination", "" , 7)
    GUICtrlSetData($Input1 , $Destination)
EndFunc

func smeg()
;_ArrayDisplay($avArray, "$avArray ")
For $s = 1 To Ubound($avArray) - 1
  GuiCtrlSetData($Edit1, "Working on Folder: " & $avArray[$s] & @CRLF, 1)
  $Array = _RecFileListToArray($avArray[$s], '*.pdf; *.xls; *.doc; *.mdb', 1, 1, 1, 2)
   ;If Not @error Then _ArrayDisplay($Array, 'Matching Files in ' & $avArray[$s])
    For $i = 1 To $Array[0]
    GuiCtrlSetData($Edit1, "Copying file: " & $Array[$i] & " to " & $Destination & @CRLF, 1)
    FileCopy($Array[$i], $Destination)
    Next
Next
EndFunc
func _Addfolder()
;_ArrayDisplay($avArray, "$avArray BEFORE _ArrayAdd()")
$seladdfol = FileSelectFolder("Choose a folder.", "")
;MsgBox(4096,"seladdfolder",$seladdfol)
_ArrayAdd($avArray, $seladdfol)
GuiCtrlSetData($Edit1, "Folder Added: " & $seladdfol & @CRLF, 1)
EndFunc

; #INDEX# =======================================================================================================================
; Title .........: _RecFileListToArray
; AutoIt Version : v3.3.1.1 or higher
; Language ......: English
; Description ...: Lists files and\or folders in a specified path with optional recursion and sort.
; Remarks .......:
; Note ..........:
; Author(s) .....: Melba23
; Remark ........: Modified Array.au3 functions - credit: Jos van der Zande, LazyCoder, Tylo, Ultima, SolidSnake and gcriaco
; ===============================================================================================================================
; #CURRENT# =====================================================================================================================
; _RecFileListToArray: Lists files and\or folders in a specified path with optional recursion and sort.
; ===============================================================================================================================
; #INTERNAL_USE_ONLY#============================================================================================================
; _RFLTA_AddFileLists ....; Add element to list which is resized if necessary
; _RFLTA_AddToList .......; Add internal arrays after resizing and optional sorting
; _RFLTA_ArraySearch .....; Search array for partial match
; _RFLTA_ArraySort .......; Wrapper for QuickSort function
; _RFLTA_QuickSort .......: Recursive array sort
; _RFLTA_ArrayConcatenate : Join 2 arrays
; _RFLTA_ArrayInsert .....: Insert element into array
; ===============================================================================================================================
; #FUNCTION# ====================================================================================================================
; Name...........: _RecFileListToArray
; Description ...: Lists files and\or folders in a specified path with optional recursion and sort.  Compatible with existing _FileListToArray syntax
; Syntax.........: _RecFileListToArray($sPath[, $sInclude_List = "*"[, $iReturn = 0[, $fRecur = 0[, $fSort = 0[, $sReturnPath = 1[, $sExclude_List = ""]]]]]])
; Parameters ....: $sPath - Initial path used to generate filelist.  If path ends in \ then folders will be returned with an ending \
;                 $sInclude_List - Optional: the filter for included results (default is "*"). Multiple filters must be separated by ";"
;                 $iReturn - Optional: specifies whether to return files, folders or both
;                 |$iReturn = 0 (Default) Return both files and folders
;                 |$iReturn = 1 Return files only
;                 |$iReturn = 2 Return folders only
;                 $fRecur - Optional: specifies whether to search recursively in subfolders
;                 |$fRecur = 0 (Default) Do not search in subfolders
;                 |$fRecur = 1 Search in subfolders
;                 $fSort - Optional: sort ordered in alphabetical and depth order
;                 |$fSort = 0 (Default) Not sorted
;                 |$fSort = 1 Sorted
;                 $sReturnPath - Optional: specifies displayed path of results
;                 |$sReturnPath = 0 File/folder name only
;                 |$sReturnPath = 1 (Default) Initial path not included
;                 |$sReturnPath = 2 Initial path included
;                 $sExclude_List - Optional: the filter for excluded results (default is ""). Multiple filters must be separated by ";"
; Requirement(s).: v3.3.1.1 or higher
; Return values .: Success: One-dimensional array made up as follows:
;                 |$array[0] = Number of Files\Folders returned
;                 |$array[1] = 1st File\Folder
;                 |$array[2] = 2nd File\Folder
;                 |...
;                 |$array[n] = nth File\Folder
;                  Failure: Null string and @error = 1 with @extended set as follows:
;                 |1 = Path not found or invalid
;                 |2 = Invalid $sInclude_List
;                 |3 = Invalid $iReturn
;                 |4 = Invalid $fRecur
;                 |5 = Invalid $fSort
;                 |6 = Invalid $iFullPath
;                 |7 = Invalid $sExclude_List
;                 |8 = No files/folders found
; Author ........: Melba23 using SRE code from forums
; Remarks .......:
; Related .......:
; Link ..........;
; Example .......; Yes
; ===============================================================================================================================
Func _RecFileListToArray($sInitialPath, $sInclude_List = "*", $iReturn = 0, $fRecur = 0, $fSort = 0, $sReturnPath = 1, $sExclude_List = "")
    Local $asReturnList[100] = [0], $asFileMatchList[100] = [0], $asRootFileMatchList[100] = [0], $asFolderMatchList[100] = [0], $asFolderList[100] = [1]
    Local $sFolderSlash = "", $sInclude_List_Mask, $sExclude_List_Mask, $hSearch, $fFolder, $sRetPath = "", $sCurrentPath, $sName
    ; Check valid path
    If Not FileExists($sInitialPath) Then Return SetError(1, 1, "")
    ; Check if folders should have trailing \ and ensure that $sInitialPath does have one
    If StringRight($sInitialPath, 1) = "\" Then
        $sFolderSlash = "\"
    Else
        $sInitialPath = $sInitialPath & "\"
    EndIf
    ; Add path to folder list
    $asFolderList[1] = $sInitialPath
    ; Determine Filter mask for SRE check
    If $sInclude_List = "*" Then
        $sInclude_List_Mask = ".+" ; Set mask to exclude base folder with NULL name
    Else
        If StringRegExp($sInclude_List, "\\|/|:|\<|\>|\|") Then Return SetError(1, 2, "") ; Check For invalid characters within $sInclude_List
        $sInclude_List = StringReplace(StringStripWS(StringRegExpReplace($sInclude_List, "\s*;\s*", ";"), 3), ";", "|") ; Strip WS and insert | for ;
        $sInclude_List_Mask = "(?i)^" & StringReplace(StringReplace(StringReplace($sInclude_List, ".", "\."), "*", ".*"), "?", ".") & "\z" ; Convert SRE pattern
    EndIf
    ; Determine Exclude mask for SRE check
    If $sExclude_List = "" Then
        $sExclude_List_Mask = ":" ; Set unmatchable mask
    Else
        If StringRegExp($sExclude_List, "\\|/|:|\<|\>|\|") Then Return SetError(1, 7, "") ; Check For invalid characters within $sInclude_List
        $sExclude_List = StringReplace(StringStripWS(StringRegExpReplace($sExclude_List, "\s*;\s*", ";"), 3), ";", "|") ; Strip WS and insert | for ;
        $sExclude_List_Mask = "(?i)^" & StringReplace(StringReplace(StringReplace($sExclude_List, ".", "\."), "*", ".*"), "?", ".") & "\z" ; Convert $sExclude_List to SRE pattern
    EndIf
    ; Verify other parameter values
    If Not ($iReturn = 0 Or $iReturn = 1 Or $iReturn = 2) Then Return SetError(1, 3, "")
    If Not ($fRecur = 0 Or $fRecur = 1) Then Return SetError(1, 4, "")
    If Not ($fSort = 0 Or $fSort = 1) Then Return SetError(1, 5, "")
    If Not ($sReturnPath = 0 Or $sReturnPath = 1 Or $sReturnPath = 2) Then Return SetError(1, 6, "")
    ; Search in listed folders
    While $asFolderList[0] > 0
        ; Set path to search
        $sCurrentPath = $asFolderList[$asFolderList[0]]
        ; Reduce folder array count
        $asFolderList[0] -= 1
        ; Determine return path to add to file/folder name
        Switch $sReturnPath
            ; Case 0 ; Name only
            ; Leave as ""
            Case 1 ; Initial path not included
                $sRetPath = StringReplace($sCurrentPath, $sInitialPath, "")
            Case 2 ; Initial path included
                $sRetPath = $sCurrentPath
        EndSwitch
        If $fSort Then
            ; Get folder name
            $sName = StringRegExpReplace(StringReplace($sCurrentPath, $sInitialPath, ""), "(.+?\\)*(.+?)(\\.*?(?!\\))", "$2")
            ; Get search handle
            $hSearch = FileFindFirstFile($sCurrentPath & "*")
            ; If folder empty move to next in list
            If $hSearch = -1 Then ContinueLoop
            ; Search folder
            While 1
                $sName = FileFindNextFile($hSearch)
                ; Check for end of folder
                If @error Then ExitLoop
                ; Check for file - @extended set for subfolder in 3.3.1.1 +
                If @extended Then
                    ; If recursive search, add subfolder to folder list
                    If $fRecur Then _RFLTA_AddToList($asFolderList, $sCurrentPath & $sName & "\")
                    ; Add folder name if matched against Include/Exclude masks
                    If StringRegExp($sName, $sInclude_List_Mask) And Not StringRegExp($sName, $sExclude_List_Mask) Then _
                            _RFLTA_AddToList($asFolderMatchList, $sRetPath & $sName & $sFolderSlash)
                Else
                    ; Add file name if matched against Include/Exclude masks
                    If StringRegExp($sName, $sInclude_List_Mask) And Not StringRegExp($sName, $sExclude_List_Mask) Then
                        If $sCurrentPath = $sInitialPath Then
                            _RFLTA_AddToList($asRootFileMatchList, $sRetPath & $sName)
                        Else
                            _RFLTA_AddToList($asFileMatchList, $sRetPath & $sName)
                        EndIf
                    EndIf
                EndIf
            WEnd
            ; Close current search
            FileClose($hSearch)
        Else ; No sorting required
            ; Get search handle
            $hSearch = FileFindFirstFile($sCurrentPath & "*")
            ; If folder empty move to next in list
            If $hSearch = -1 Then ContinueLoop
            ; Search folder
            While 1
                $sName = FileFindNextFile($hSearch)
                ; Check for end of folder
                If @error Then ExitLoop
                ; Check for subfolder - @extended set in 3.3.1.1 +
                $fFolder = @extended
                ; If recursive search, add subfolder to folder list
                If $fRecur And $fFolder Then _RFLTA_AddToList($asFolderList, $sCurrentPath & $sName & "\")
                ; Check file/folder type against required return value and file/folder name against Include/Exclude masks
                If $fFolder + $iReturn <> 2 And StringRegExp($sName, $sInclude_List_Mask) And Not StringRegExp($sName, $sExclude_List_Mask) Then
                    ; Add final "\" to folders
                    If $fFolder Then $sName &= $sFolderSlash
                    _RFLTA_AddToList($asReturnList, $sRetPath & $sName)
                EndIf
            WEnd
            ; Close current search
            FileClose($hSearch)
        EndIf
    WEnd
    If $fSort Then
        ; Check if any file/folders have been added
        If $asRootFileMatchList[0] = 0 And $asFileMatchList[0] = 0 And $asFolderMatchList[0] = 0 Then Return SetError(1, 8, "")
        Switch $iReturn
            Case 2 ; Folders only
                ; Correctly size folder match list
                ReDim $asFolderMatchList[$asFolderMatchList[0] + 1]
                ; Copy size folder match array
                $asReturnList = $asFolderMatchList
                ; Simple sort list
                _RFLTA_ArraySort($asReturnList)
            Case 1 ; Files only
                If $sReturnPath = 0 Then ; names only so simple sort suffices
                    ; Combine file match lists
                    _RFLTA_AddFileLists($asReturnList, $asRootFileMatchList, $asFileMatchList)
                    ; Simple sort combined file list
                    _RFLTA_ArraySort($asReturnList)
                Else
                    ; Combine sorted file match lists
                    _RFLTA_AddFileLists($asReturnList, $asRootFileMatchList, $asFileMatchList, 1)
                EndIf
            Case 0 ; Both files and folders
                If $sReturnPath = 0 Then ; names only so simple sort suffices
                    ; Combine file match lists
                    _RFLTA_AddFileLists($asReturnList, $asRootFileMatchList, $asFileMatchList)
                    ; Set correct count for folder add
                    $asReturnList[0] += $asFolderMatchList[0]
                    ; Resize and add file match array
                    ReDim $asFolderMatchList[$asFolderMatchList[0] + 1]
                    _RFLTA_ArrayConcatenate($asReturnList, $asFolderMatchList)
                    ; Simple sort final list
                    _RFLTA_ArraySort($asReturnList)
                Else
                    ; Combine sorted file match lists
                    _RFLTA_AddFileLists($asReturnList, $asRootFileMatchList, $asFileMatchList, 1)
                    ; Add folder count
                    $asReturnList[0] += $asFolderMatchList[0]
                    ; Sort folder match list
                    ReDim $asFolderMatchList[$asFolderMatchList[0] + 1]
                    _RFLTA_ArraySort($asFolderMatchList)
                    ; Now add folders in correct place
                    Local $iLastIndex = $asReturnList[0]
                    For $i = $asFolderMatchList[0] To 1 Step -1
                        ; Find first filename containing folder name
                        Local $iIndex = _RFLTA_ArraySearch($asReturnList, $asFolderMatchList[$i])
                        If $iIndex = -1 Then
                            ; Empty folder so insert immediately above previous
                            _RFLTA_ArrayInsert($asReturnList, $iLastIndex, $asFolderMatchList[$i])
                        Else
                            ; Insert folder at correct point above files
                            _RFLTA_ArrayInsert($asReturnList, $iIndex, $asFolderMatchList[$i])
                            $iLastIndex = $iIndex
                        EndIf
                    Next
                EndIf
        EndSwitch
    Else ; No sort
        ; Check if any file/folders have been added
        If $asReturnList[0] = 0 Then Return SetError(1, 8, "")
        ; Remove any unused return list elements from last ReDim
        ReDim $asReturnList[$asReturnList[0] + 1]
    EndIf
    Return $asReturnList
EndFunc   ;==>_RecFileListToArray
; #INTERNAL_USE_ONLY#============================================================================================================
; Name...........: _RFLTA_AddToList
; Description ...: Add element to list which is resized if necessary
; Syntax ........: _RFLTA_AddToList(ByRef $asList, $sValue)
; Parameters ....: $asList - List to be added to
;                 $sValue - Value to add
; Return values .: None - array modified ByRef
; Author ........: Melba23
; Remarks .......: This function is used internally by _RecFileListToArray
; ===============================================================================================================================
Func _RFLTA_AddToList(ByRef $asList, $sValue)
    ; Increase list count
    $asList[0] += 1
    ; Double list size if too small (fewer ReDim needed)
    If UBound($asList) <= $asList[0] Then ReDim $asList[UBound($asList) * 2]
    ; Add value
    $asList[$asList[0]] = $sValue
EndFunc   ;==>_RFLTA_AddToList
; #INTERNAL_USE_ONLY#============================================================================================================
; Name...........: _RFLTA_AddFileLists
; Description ...: Add internal arrays after resizing and optional sorting
; Syntax ........: _RFLTA_AddFileLists(ByRef $asReturnList, $asRootFileMatchList, $asFileMatchList[, $iSort = 0])
; Parameters ....: $asReturnList - Base list
;                 $asRootFileMatchList - First list to add
;                 $asFileMatchList - Second list to add
;                 $iSort - (Optional) Whether to sort lists before adding
;                 |$iSort = 0 (Default) No sort
;                 |$iSort = 1 Sort in descending alphabetical order
; Return values .: None - array modified ByRef
; Author ........: Melba23
; Remarks .......: This function is used internally by _RecFileListToArray
; ===============================================================================================================================
Func _RFLTA_AddFileLists(ByRef $asReturnList, $asRootFileMatchList, $asFileMatchList, $iSort = 0)
    ; Correctly size root file match array
    ReDim $asRootFileMatchList[$asRootFileMatchList[0] + 1]
    ; Simple sort root file match array if required
    If $iSort = 1 Then _RFLTA_ArraySort($asRootFileMatchList)
    ; Copy root file match array
    $asReturnList = $asRootFileMatchList
    ; Add file match count
    $asReturnList[0] += $asFileMatchList[0]
    ; Correctly size file match array
    ReDim $asFileMatchList[$asFileMatchList[0] + 1]
    ; Simple sort file match array if required
    If $iSort = 1 Then _RFLTA_ArraySort($asFileMatchList)
    ; Add file match array
    _RFLTA_ArrayConcatenate($asReturnList, $asFileMatchList)
EndFunc   ;==>_RFLTA_AddFileLists
; #INTERNAL_USE_ONLY#============================================================================================================
; Name...........: _RFLTA_ArraySearch
; Description ...: Search array downwards for partial match
; Syntax ........: _RFLTA_ArraySearch(Const ByRef $avArray, $vValue)
; Parameters ....: $avArray - Array to search
;                 $vValue - PValue to search for
; Return values .: Success: Index of array in which element was found
;                 Failure: returns -1
; Author ........: SolidSnake, gcriaco, Ultima
; Modified.......: Melba23
; Remarks .......: This function is used internally by _RecFileListToArray
; ===============================================================================================================================
Func _RFLTA_ArraySearch(Const ByRef $avArray, $vValue)
    For $i = 1 To UBound($avArray) - 1
        If StringInStr($avArray[$i], $vValue) > 0 Then Return $i
    Next
    Return -1
EndFunc   ;==>_RFLTA_ArraySearch
; #INTERNAL_USE_ONLY#============================================================================================================
; Name...........: _RFLTA_ArraySort
; Description ...: Wrapper for QuickSort function
; Syntax ........: _RFLTA_ArraySort(ByRef $avArray)
; Parameters ....: $avArray - Array to sort
;                 $pNew_WindowProc - Pointer to new WindowProc
; Return values .: None - array modified ByRef
; Author ........: Jos van der Zande, LazyCoder, Tylo, Ultima
; Modified.......: Melba23
; Remarks .......: This function is used internally by _RecFileListToArray
; ===============================================================================================================================
Func _RFLTA_ArraySort(ByRef $avArray)
    Local $iStart = 1, $iEnd = UBound($avArray) - 1
    _RFLTA_QuickSort($avArray, $iStart, $iEnd)
EndFunc   ;==>_RFLTA_ArraySort
; #INTERNAL_USE_ONLY#============================================================================================================
; Name...........: _RFLTA_QuickSort
; Description ...: Recursive array sort
; Syntax ........: _RFLTA_QuickSort(ByRef $avArray, ByRef $iStart, ByRef $iEnd)
; Parameters ....: $avArray - Array to sort in descending alphabetical order
;                 $iStart - Start index
;                 $iEnd - End index
; Return values .: None - array modified ByRef
; Author ........: Jos van der Zande, LazyCoder, Tylo, Ultima
; Modified.......: Melba23
; Remarks .......: This function is used internally by _RFLTA_ArraySort
; ===============================================================================================================================
Func _RFLTA_QuickSort(ByRef $avArray, ByRef $iStart, ByRef $iEnd)
    Local $vTmp
    If ($iEnd - $iStart) < 15 Then
        Local $i, $j, $vCur
        For $i = $iStart + 1 To $iEnd
            $vTmp = $avArray[$i]
            If IsNumber($vTmp) Then
                For $j = $i - 1 To $iStart Step -1
                    $vCur = $avArray[$j]
                    If ($vTmp >= $vCur And IsNumber($vCur)) Or (Not IsNumber($vCur) And StringCompare($vTmp, $vCur) >= 0) Then ExitLoop
                    $avArray[$j + 1] = $vCur
                Next
            Else
                For $j = $i - 1 To $iStart Step -1
                    If (StringCompare($vTmp, $avArray[$j]) >= 0) Then ExitLoop
                    $avArray[$j + 1] = $avArray[$j]
                Next
            EndIf
            $avArray[$j + 1] = $vTmp
        Next
        Return
    EndIf
    Local $L = $iStart, $R = $iEnd, $vPivot = $avArray[Int(($iStart + $iEnd) / 2)], $fNum = IsNumber($vPivot)
    Do
        If $fNum Then
            While ($avArray[$L] < $vPivot And IsNumber($avArray[$L])) Or (Not IsNumber($avArray[$L]) And StringCompare($avArray[$L], $vPivot) < 0)
                $L += 1
            WEnd
            While ($avArray[$R] > $vPivot And IsNumber($avArray[$R])) Or (Not IsNumber($avArray[$R]) And StringCompare($avArray[$R], $vPivot) > 0)
                $R -= 1
            WEnd
        Else
            While (StringCompare($avArray[$L], $vPivot) < 0)
                $L += 1
            WEnd
            While (StringCompare($avArray[$R], $vPivot) > 0)
                $R -= 1
            WEnd
        EndIf
        If $L <= $R Then
            $vTmp = $avArray[$L]
            $avArray[$L] = $avArray[$R]
            $avArray[$R] = $vTmp
            $L += 1
            $R -= 1
        EndIf
    Until $L > $R
    _RFLTA_QuickSort($avArray, $iStart, $R)
    _RFLTA_QuickSort($avArray, $L, $iEnd)
EndFunc   ;==>_RFLTA_QuickSort
; #INTERNAL_USE_ONLY#============================================================================================================
; Name...........: _RFLTA_ArrayConcatenate
; Description ...: Joins 2 arrays
; Syntax ........: _RFLTA_ArrayConcatenate(ByRef $avArrayTarget, Const ByRef $avArraySource)
; Parameters ....: $avArrayTarget - Base array
;                 $avArraySource - Array to add from element 1 onwards
; Return values .: None - array modified ByRef
; Author ........: Ultima
; Modified.......: Melba23
; Remarks .......: This function is used internally by _RecFileListToArray
; ===============================================================================================================================
Func _RFLTA_ArrayConcatenate(ByRef $avArrayTarget, Const ByRef $avArraySource)
    Local $iUBoundTarget = UBound($avArrayTarget) - 1, $iUBoundSource = UBound($avArraySource)
    ReDim $avArrayTarget[$iUBoundTarget + $iUBoundSource]
    For $i = 1 To $iUBoundSource - 1
        $avArrayTarget[$iUBoundTarget + $i] = $avArraySource[$i]
    Next
EndFunc   ;==>_RFLTA_ArrayConcatenate
; #INTERNAL_USE_ONLY#============================================================================================================
; Name...........: _RFLTA_ArrayInsert
; Description ...: Insert element into array
; Syntax ........: _RFLTA_ArrayInsert(ByRef $avArray, $iElement, $vValue = "")
; Parameters ....: $avArray - Array to modify
;                 $iElement - Index position for insertion
;                 $vValue - Value to insert
; Return values .: None - array modified ByRef
; Author ........: Jos van der Zande, Ultima
; Modified.......: Melba23
; Remarks .......: This function is used internally by _RecFileListToArray
; ===============================================================================================================================
Func _RFLTA_ArrayInsert(ByRef $avArray, $iElement, $vValue = "")
    Local $iUBound = UBound($avArray) + 1
    ReDim $avArray[$iUBound]
    For $i = $iUBound - 1 To $iElement + 1 Step -1
        $avArray[$i] = $avArray[$i - 1]
    Next
    $avArray[$iElement] = $vValue
EndFunc   ;==>_RFLTA_ArrayInsert
Edited by engjcowi

Drunken Frat-Boy Monkey Garbage

Link to comment
Share on other sites
JohnOne Universalist

JohnOne

Posted
Posted

Seems you tried everything except what the function header tells you

Return values .: Success: One-dimensional array made up as follows: ;

|$array[0] = Number of FilesFolders returned

So

To $avArray[0]

AutoIt Absolute Beginners    Require a serial    Pause Script    Video Tutorials by Morthawt   ipify 

Monkey's are, like, natures humans.

Link to comment
Share on other sites
kylomas Universalist

kylomas

Posted
Posted (edited)

jamie, Check the return from _recfilelisttoarray() @error = 1 if failure @extended = 8 if no files found kylomas

edit: also, why are you starting at offset 1 when spinning $avarray, should be offset 0

Edited by kylomas

Forum Rules         Procedure for posting code

"I like pigs.  Dogs look up to us.  Cats look down on us.  Pigs treat us as equals."

- Sir Winston Churchill

Link to comment
Share on other sites
ripdad Universalist

ripdad

Posted
Posted

Whenever i run the prog itcopies the files over with no problem however the gui freezes at a certain point and only a certain amount of the files copied get listed.

---

Below can probably be improved some - but, here's something to work with ...

Func smeg()
    GUICtrlSetData($Edit1, ''); reset edit control
    If Not IsArray($avArray) Then Return
    If Not $avArray[0] Then Return
    Local $n = 0
    For $s = 1 To $avArray[0]
        GUICtrlSetData($Edit1, "Working on Folder: " & $avArray[$s] & @CRLF, 1)
        $Array = _RecFileListToArray($avArray[$s], '*.pdf; *.xls; *.doc; *.mdb', 1, 1, 1, 2)
        If Not IsArray($Array) Then Return
        For $i = 1 To $Array[0]
            $n += 1
            If $n > 500 Then
                GUICtrlSetData($Edit1, ''); reset edit control
                $n = 0
            EndIf
            GUICtrlSetData($Edit1, "Copying file: " & $Array[$i] & " to " & $Destination & @CRLF, 1)
            ;FileCopy($Array[$i], $Destination)
        Next
    Next
EndFunc
;
Func _Addfolder()
    Local $seladdfol = FileSelectFolder("Choose a folder.", "")
    If @error Or Not $seladdfol Then Return
    If Not FileExists($seladdfol) Then Return
    GUICtrlSetData($Edit1, "Folder Added: " & $seladdfol & @CRLF, 1)
    _ArrayAdd($avArray, $seladdfol)
    $avArray[0] = UBound($avArray) - 1
EndFunc

You will need to reset $avArray for new runs or you'll get duplicated runs.

Case $BACKUP
            ;MsgBox(4096,"",$Destination)
            ;_ArrayDisplay($avArray, "$avArray AFTER _ArrayAdd()")
            smeg()
            GUICtrlSetData($Edit1, @CRLF & @CRLF & "Completed" & @CRLF, 1)
            ReDim $avArray[1]
            $avArray[0] = 0

"The mediocre teacher tells. The Good teacher explains. The superior teacher demonstrates. The great teacher inspires." -William Arthur Ward

Link to comment
Share on other sites
kylomas Universalist

kylomas

Posted
Posted

jamie,

if you are tripping on the edit control limit use the following stmt to increase this 

GUICtrlSetLimit($edit1, 1000000) ; 1 million byte edit char limit

Good Luck,

kylomas

Forum Rules         Procedure for posting code

"I like pigs.  Dogs look up to us.  Cats look down on us.  Pigs treat us as equals."

- Sir Winston Churchill

Link to comment
Share on other sites
ripdad Universalist

ripdad

Posted
Posted

what?

one can override the maximum character limit?

amazing ... and it works too.

thanks, i'll remember that one.

"The mediocre teacher tells. The Good teacher explains. The superior teacher demonstrates. The great teacher inspires." -William Arthur Ward

Link to comment
Share on other sites
engjcowi Polymath

engjcowi

Posted
  • Author
Posted (edited)

jamie,

if you are tripping on the edit control limit use the following stmt to increase this 

GUICtrlSetLimit($edit1, 1000000) ; 1 million byte edit char limit

Good Luck,

kylomas

Thanks for the info. I have a minor problem that im trying to overcome. Ive taken the advice and info from above and ran with it and added to my script and im quite happy except for 1 thing.

My script is designed to look through folders and check for the user if there is any word or excel etc.. files and copy them to save them for him. it works great on folders with those files in. On folders where there is nothing then the program stops or closes. I beleive its down to this line - If Not IsArray($Array) Then Return and ive tried some different options (as seen below) including commenting the line out. Does anyone know how i can have the script comment that there is no files in that particular directory and then move on to the next directory.

Im eternally greatful for all and any help. Been playing with this for hours now!

Jamie

#NoTrayIcon
#RequireAdmin
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=..\..\..\healthcheck source code 24 2 2011\Files\Hardware-HardDrive.ico
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_Res_requestedExecutionLevel=asInvoker
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****


#include <GUIConstants.au3>
#include <StaticConstants.au3>
#include <EditConstants.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#include <GuiEdit.au3>
#include <Array.au3>
local $Destination, $seladdfol, $numfound = 0
Local $avArray[1], $Arraycheck, $coperr , $coperrmsg
#cs ; percentage
$perc = 100 * ($i+1) / $count
  GUICtrlSetData($pr_files, $perc)
  $perc_str = Round($perc) & "% [" & String($i+1) & " of " & $count & "]"
  GUICtrlSetData($lab_prog1, $perc_str)
 #ce
$Form1 = GUICreate("Backup", 622, 450, 193, 125)
$Label1 = GUICtrlCreateLabel("Backup Destination:", 4, 12, 175, 19, BitOR($SS_CENTER,$SS_CENTERIMAGE))
GUICtrlSetFont(-1, 11, 400, 0, "Lucida Console")
$Input1 = GUICtrlCreateInput("", 184, 11, 353, 23)
GUICtrlSetFont(-1, 11, 400, 0, "Lucida Console")
$Button1 = GUICtrlCreateButton("Browse", 540, 10, 75, 25, 0)
GUICtrlSetFont(-1, 11, 400, 0, "Lucida Console")
$Edit1 = GUICtrlCreateEdit("", 4, 40, 613, 369, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN,$WS_VSCROLL))
GUICtrlSetLimit(-1, 9999999)
GUICtrlSetFont(-1, 11, 400, 0, "Lucida Console")
GUICtrlSetColor(-1, 0x00FF00)
GUICtrlSetBkColor(-1, 0x000000)
_GUICtrlEdit_SetReadOnly($Edit1, True)
$BACKUP = GUICtrlCreateButton("Backup", 460, 416, 75, 25, 0)
GUICtrlSetFont(-1, 11, 400, 0, "Lucida Console")
$Addfol = GUICtrlCreateButton("Add Folder", 360, 416, 85, 25, 0)
GUICtrlSetFont(-1, 11, 400, 0, "Lucida Console")
$Exit = GUICtrlCreateButton("Exit", 540, 416, 75, 25, 0)
GUICtrlSetFont(-1, 11, 400, 0, "Lucida Console")
$Checkbox1 = GUICtrlCreateCheckbox("Compress Backup", 8, 420, 157, 17)
GUICtrlSetFont(-1, 11, 400, 0, "Lucida Console")
$Checkbox2 = GUICtrlCreateCheckbox("Verbose Log", 200, 420, 157, 17)
GUICtrlSetFont(-1, 11, 400, 0, "Lucida Console")
GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            _Exitcode()
        Case $Exit
            _Exitcode()
        Case $Button1
            _BackupDestination()
  Case $Addfol
            _Addfolder()
        Case $BACKUP
   ;MsgBox(4096,"",$Destination)
            ;_ArrayDisplay($avArray, "$avArray AFTER _ArrayAdd()")
   GUICtrlSetData($Edit1, @CRLF & @CRLF & "******************  Copying now Started ************************: " & @CRLF & @CRLF, 1)
            smeg()

   GuiCtrlSetData($Edit1,@CRLF & @CRLF, 1)
   GuiCtrlSetData($Edit1, "Completed" & @CRLF, 1)

    EndSwitch
WEnd
Func _Exitcode()
    GUIDelete()
    Exit
EndFunc
Func _BackupDestination()
    $Destination = FileSelectFolder("Select backup destination", "" , 7)
    GUICtrlSetData($Input1 , $Destination)
 GuiCtrlSetData($Edit1, $Destination & @CRLF, 1)
EndFunc

func smeg()
 ;GUICtrlSetData($Edit1, ''); reset edit control
 ;_ArrayDisplay($avArray, "$avArray ")
    If Not IsArray($avArray) Then Return
    If Not $avArray[0] Then Return
    Local $n = 0
    For $s = 1 To $avArray[0]
        GUICtrlSetData($Edit1, "Working on Folder: " & $avArray[$s] & @CRLF, 1)
  GUICtrlSetData($Edit1, "Searching for files " & @CRLF, 1)
        $Array = _RecFileListToArray($avArray[$s], '*.pdf; *.xls; *.doc; *.mdb', 1, 1, 1, 2)
  _RecFileListToArray("C:\Users\Alison\Desktop\desktop", "*.doc;*.txt;*.xlsx;*.jpg;*.bmp", 1, 1, 0, 2, "", "")
  ProgressOn("Copy Files Progress", "No. of files left to copy = " & $array[0], "0 percent done")
  ;_ArrayDisplay($Array, "$avArray ")
  ;_ArrayDisplay($Array, "after ")
  ;exit
        ;If Not IsArray($Array) Then Return
  If $array = 9 then MsgBox(4096,"error","")
  ;ConsoleWrite("Error: " & @error & " - " & " Extended: " &  @extended & @CRLF)
  GuiCtrlSetData($Edit1, "Number of files found " & $Array[0] & @CRLF & @CRLF, 1)
  $numfound += $Array[0]
  GuiCtrlSetData($Edit1, "Now Copying Files" & @CRLF & @CRLF, 1)
  ;MsgBox(4096,"num files found",$Array[0])
        For $i = 1 To $Array[0]
           ; $n += 1
            ;If $n > 500 Then
               ; GUICtrlSetData($Edit1, ''); reset edit control
               ; $n = 0
           ; EndIf
   ;if verbose is checked
            If GUICtrlRead($Checkbox2) = $GUI_CHECKED Then GUICtrlSetData($Edit1, "Copying file: " & $Array[$i] & " to " & $Destination & @CRLF, 1)
   ;GuiCtrlSetData($Edit1, "Attrib is:" & FileGetAttrib($Array[$i]) & @CRLF & @CRLF, 1)
   ;copy the files
   ;sleep(10)
   ;$smeg = StringTrimLeft ($array[$i],2)
   ;MsgBox(4096,"",$Destination & $smeg)
   ;Exit
            $coperr = FileCopy($Array[$i], $Destination)
    if $coperr = 0 then GUICtrlSetData($Edit1,"ERROR copying over : " & $Array[$i] & @CRLF, 1)  ;MsgBox(4096,"Error Copying File", $Array[$i]);
   ;Run(@ComSpec & " /c " & "xcopy " & $Array[$i] & " " & $Destination & " /e /y /c /h", "", @SW_HIDE)
   ProgressSet(Round(100 - ($i / $array[0] * 100), 1), _
   StringFormat("%4.1f percent done", Round($i / $array[0] * 100, 1)), _
   "No. of files left to copy = " & $array[0] - $i)
        Next
    Next
ProgressOff ( )
GUICtrlSetData($Edit1, @CRLF & @CRLF & "******************  Copying now Completed  ************************: " & @CRLF, 1)

$Arraycheck = _RecFileListToArray($Destination, '*.pdf; *.xls; *.doc; *.mdb', 1, 1, 1, 2)

 GUICtrlSetData($Edit1, @CRLF & @CRLF & "Total number of files found during search: " & $numfound & @CRLF, 1)
   GUICtrlSetData($Edit1, @CRLF & "Total Number of files in backup directory: " & $Arraycheck[0] & @CRLF, 1)
   GUICtrlSetData($Edit1,"Anomalies could be files that havent copied over or files already in backup folder" & @CRLF, 1)
   ;GUICtrlSetData($Edit1, @CRLF & @CRLF & "******************  Errors - If any  ************************: " & @CRLF, 1)
   ;GUICtrlSetData($Edit1, @CRLF & $coperrmsg, 1)
   ;GUICtrlSetData($Edit1, @CRLF & @CRLF & "******************  End of Erros  ************************: " & @CRLF, 1)
            ReDim $avArray[1]
            $avArray[0] = 0
   $numfound = 0


EndFunc

func _Addfolder()
  Local $seladdfol = FileSelectFolder("Choose a folder.", "")
    If @error Or Not $seladdfol Then Return
    If Not FileExists($seladdfol) Then Return
    GUICtrlSetData($Edit1, "Folder Added: " & $seladdfol & @CRLF, 1)
    _ArrayAdd($avArray, $seladdfol)
    $avArray[0] = UBound($avArray) - 1

#cs
_ArrayDisplay($avArray, "$avArray BEFORE _ArrayAdd()")
$seladdfol = FileSelectFolder("Choose a folder.", "")
;MsgBox(4096,"seladdfolder",$seladdfol)
_ArrayAdd($avArray, $seladdfol)
GuiCtrlSetData($Edit1, "Folder Added: " & $seladdfol & @CRLF, 1)
#ce
EndFunc

;#AutoIt3Wrapper_au3check_parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
; #INDEX# =======================================================================================================================
; Title .........: _RecFileListToArray
; AutoIt Version : v3.3.1.1 or higher
; Language ......: English
; Description ...: Lists files and\or folders in specified path with optional recursion to defined level and result sorting
; Note ..........:
; Author(s) .....: Melba23
; Remarks .......: - Modified Array.au3 functions - credit: Jos van der Zande, LazyCoder, Tylo, Ultima, SolidSnake and gcriaco
;                 - SRE patterns - credit: various forum members and Spiff59 in particular
;                 - Despite the name, this UDF is iterative, not recursive
; ===============================================================================================================================
; #CURRENT# =====================================================================================================================
; _RecFileListToArray: Lists files and\or folders in a specified path with optional recursion to defined level and result sorting
; ===============================================================================================================================
; #INTERNAL_USE_ONLY#============================================================================================================
; _RFLTA_ListToMask ......; Convert include/exclude lists to SRE format
; _RFLTA_AddToList .......; Add element to list which is resized if necessary
; _RFLTA_AddFileLists ....; Add internal lists after resizing and optional sorting
; _RFLTA_FileListSearch ..; Search file match list for files associated with a folder
; _RFLTA_ArraySort .......; Wrapper for QuickSort function
; _RFLTA_QuickSort .......: Recursive array sort
; _RFLTA_ArrayConcatenate : Join 2 arrays
; ===============================================================================================================================
; #FUNCTION# ====================================================================================================================
; Name...........: _RecFileListToArray
; Description ...: Lists files and\or folders in a specified path with optional recursion to defined level and result sorting
; Syntax.........: _RecFileListToArray($sPath[, $sInclude_List = "*"[, $iReturn = 0[, $iRecur = 0[, $iSort = 0[, $iReturnPath = 1[, $sExclude_List = ""[, $sExclude_List_Folder]]]]]]])
; Parameters ....: $sPath - Initial path used to generate filelist.  If path ends in \ then folders will be returned with an ending \
;                 $sInclude_List - Optional: filter for included results (default "*"). Multiple filters must be separated by ";"
;                 $iReturn - Optional: specifies whether to return files, folders or both
;                 |$iReturn = 0 - Return both files and folders (Default)
;                                 If non-recursive Include/Exclude_List applies to files and folders
;                                 If recursive Include/Exclude_List applies to files only, all folders are searched unless excluded using $sExclude_List_Folder
;                 |$iReturn = 1 - Return files only    - Include/Exclude_List applies to files only, all folders searched if recursive
;                 |$iReturn = 2 - Return folders only  - Include/Exclude_List applies to folders only for searching and return
;                 $iRecur - Optional: specifies whether to search recursively in subfolders and to what level
;                 |$iRecur = 1 - Search in all subfolders (unlimited recursion)
;                 |$iRecur = 0 - Do not search in subfolders (Default)
;                 |$iRecur = Negative integer - Search in subfolders to specified depth
;                 $iSort - Optional: sort ordered in alphabetical and depth order
;                 |$iSort = 0 - Not sorted (Default)
;                 |$iSort = 1 - Sorted
;                 |$iSort = 2 - Sorted with faster algorithm (assumes files sorted within each folder - requires NTFS drive)
;                 $iReturnPath - Optional: specifies displayed path of results
;                 |$iReturnPath = 0 - File/folder name only
;                 |$iReturnPath = 1 - Relative to initial path (Default)
;                 |$iReturnPath = 2 - Full path included
;                 $sExclude_List - Optional: filter for excluded results (default ""). Multiple filters must be separated by ";"
;                 $sExclude_List_Folder - Optional: only used if $iReturn = 0 AND $iRecur = 1 to exclude folders matching the filter
; Requirement(s).: v3.3.1.1 or higher
; Return values .: Success: One-dimensional array made up as follows:
;                 |$array[0] = Number of Files\Folders returned
;                 |$array[1] = 1st File\Folder
;                 |$array[2] = 2nd File\Folder
;                 |...
;                 |$array[n] = nth File\Folder
;    Failure: Null string and @error = 1 with @extended set as follows:
;                 |1 = Path not found or invalid
;                 |2 = Invalid $sInclude_List
;                 |3 = Invalid $iReturn
;                 |4 = Invalid $iRecur
;                 |5 = Invalid $iSort
;                 |6 = Invalid $iReturnPath
;                 |7 = Invalid $sExclude_List
;                 |8 = Invalid $sExclude_List_Folder
;                 |9 = No files/folders found
; Author ........: Melba23
; Remarks .......: Compatible with existing _FileListToArray syntax
; Related .......:
; Link ..........;
; Example .......; Yes
; ===============================================================================================================================
Func _RecFileListToArray($sInitialPath, $sInclude_List = "*", $iReturn = 0, $iRecur = 0, $iSort = 0, $iReturnPath = 1, $sExclude_List = "", $sExclude_List_Folder = "")
 Local $asReturnList[100] = [0], $asFileMatchList[100] = [0], $asRootFileMatchList[100] = [0], $asFolderMatchList[100] = [0], $asFolderSearchList[100] = [1]
 Local $sFolderSlash = "", $iMaxLevel, $sInclude_File_Mask, $sExclude_File_Mask, $sInclude_Folder_Mask = ".+", $sExclude_Folder_Mask = ":"
 Local $hSearch, $fFolder, $sRetPath = "", $sCurrentPath, $sName
 Local $asFolderFileSectionList[100][2] = [[0, 0]], $sFolderToFind, $iFileSectionStartIndex, $iFileSectionEndIndex
 ; Check for valid path
 If Not FileExists($sInitialPath) Then Return SetError(1, 1, "")
 ; Check if folders should have trailing \ and ensure that initial path does have one
 If StringRight($sInitialPath, 1) = "\" Then
  $sFolderSlash = "\"
 Else
  $sInitialPath = $sInitialPath & "\"
 EndIf
 ; Add path to folder search list
 $asFolderSearchList[1] = $sInitialPath
 ; Check for valid recur value
 If $iRecur > 1 Or Not IsInt($iRecur) Then Return SetError(1, 4, "")
 ; If required, determine \ count for max recursive level setting
 If $iRecur < 0 Then
  StringReplace($sInitialPath, "\", "", 2)
  $iMaxLevel = @extended - $iRecur
 EndIf
 ; Create Include mask for files
 If $sInclude_List = "*" Then
  $sInclude_File_Mask = ".+"
 Else
  If Not _RFLTA_ListToMask($sInclude_File_Mask, $sInclude_List) Then Return SetError(1, 2, "")
 EndIf
 ; Set Include mask for folders
 Switch $iReturn
  Case 0
   ; Folders affected by mask if not recursive
   Switch $iRecur
    Case 0
     ; Folders match mask for compatibility
     $sInclude_Folder_Mask = $sInclude_File_Mask
    ;Case Else
     ; All folders match
   EndSwitch
  ;Case 1
   ; All folders match
  Case 2
   ; Folders affected by mask
   $sInclude_Folder_Mask = $sInclude_File_Mask
 EndSwitch
 ; Create Exclude List mask for files
 If $sExclude_List = "" Then
  $sExclude_File_Mask = ":" ; Set unmatchable mask
 Else
  If Not _RFLTA_ListToMask($sExclude_File_Mask, $sExclude_List) Then Return SetError(1, 7, "")
 EndIf
 ; Set Exclude mask for folders
 Switch $iReturn
  Case 0
   ; Folders affected by mask if not recursive
   Switch $iRecur
    Case 0
     ; Folders match mask for compatibility
     $sExclude_Folder_Mask = $sExclude_File_Mask
    Case Else
     ; Exclude defined folders as set in extended
     If $sExclude_List_Folder <> "" Then
      If Not _RFLTA_ListToMask($sExclude_Folder_Mask, $sExclude_List_Folder) Then Return SetError(1, 8, "")
     EndIf
   EndSwitch
  ;Case 1
   ; All folders match
  Case 2
   ; Folders affected by normal mask
   $sExclude_Folder_Mask = $sExclude_File_Mask
 EndSwitch
 ; Verify other parameters
 If Not ($iReturn = 0 Or $iReturn = 1 Or $iReturn = 2) Then Return SetError(1, 3, "")
 If Not ($iSort = 0 Or $iSort = 1 Or $iSort = 2) Then Return SetError(1, 5, "")
 If Not ($iReturnPath = 0 Or $iReturnPath = 1 Or $iReturnPath = 2) Then Return SetError(1, 6, "")
 ; Search within listed folders
 While $asFolderSearchList[0] > 0
  ; Set path to search
  $sCurrentPath = $asFolderSearchList[$asFolderSearchList[0]]
  ; Reduce folder search list count
  $asFolderSearchList[0] -= 1
  ; Determine return path to add to file/folder name
  Switch $iReturnPath
   ; Case 0 ; Name only
   ; Leave as ""
   Case 1 ;Relative to initial path
    $sRetPath = StringReplace($sCurrentPath, $sInitialPath, "")
   Case 2 ; Full path
    $sRetPath = $sCurrentPath
  EndSwitch
  ; Get search handle
  $hSearch = FileFindFirstFile($sCurrentPath & "*")
  ; If sorting files and folders with paths then store folder name and position of associated files in list
  If $iReturn = 0 And $iSort And $iReturnPath Then
   _RFLTA_AddToList($asFolderFileSectionList, $sRetPath, $asFileMatchList[0] + 1)
  EndIf
  ; If folder empty move to next in list
  If $hSearch = -1 Then
   ContinueLoop
  EndIf
  ; Search folder
  While 1
   $sName = FileFindNextFile($hSearch)
   ; Check for end of folder
   If @error Then
    ExitLoop
   EndIf
   ; Set subfolder flag - @extended set in 3.3.1.1 +
   $fFolder = @extended
   ; If folder then check whether to add to search list
   If $fFolder Then
    Select
     Case $iRecur < 0 ; Check recur depth
      StringReplace($sCurrentPath, "\", "", 0, 2)
      If @extended < $iMaxLevel Then
       ContinueCase ; Check if matched to masks
      EndIf
     Case $iRecur = 1 ; Full recur
      If Not StringRegExp($sName, $sExclude_Folder_Mask) Then ; Add folder unless excluded
        _RFLTA_AddToList($asFolderSearchList, $sCurrentPath & $sName & "\")
      EndIf
     ; Case $iRecur = 0 ; Never add
      ; Do nothing
    EndSelect
   EndIf
   If $iSort Then ; Save in relevant folders for later sorting
    If $fFolder Then
     If StringRegExp($sName, $sInclude_Folder_Mask) And Not StringRegExp($sName, $sExclude_Folder_Mask) Then
      _RFLTA_AddToList($asFolderMatchList, $sRetPath & $sName & $sFolderSlash)
     EndIf
    Else
     If StringRegExp($sName, $sInclude_File_Mask) And Not StringRegExp($sName, $sExclude_File_Mask) Then
      ; Select required list for files
      If $sCurrentPath = $sInitialPath Then
       _RFLTA_AddToList($asRootFileMatchList, $sRetPath & $sName)
      Else
       _RFLTA_AddToList($asFileMatchList, $sRetPath & $sName)
      EndIf
     EndIf
    EndIf
   Else ; Save directly in return list
    If $fFolder Then
     If $iReturn <> 1 And StringRegExp($sName, $sInclude_Folder_Mask) And Not StringRegExp($sName, $sExclude_Folder_Mask) Then
      _RFLTA_AddToList($asReturnList, $sRetPath & $sName & $sFolderSlash)
     EndIf
    Else
     If $iReturn <> 2 And StringRegExp($sName, $sInclude_File_Mask) And Not StringRegExp($sName, $sExclude_File_Mask) Then
      _RFLTA_AddToList($asReturnList, $sRetPath & $sName)
     EndIf
    EndIf
   EndIf
  WEnd
  ; Close current search
  FileClose($hSearch)
 WEnd
 If $iSort Then
  ; Check if any file/folders have been added depending on required return
  Switch $iReturn
   Case 0 ; If no folders then number of files is immaterial
    If $asRootFileMatchList[0] = 0 And $asFolderMatchList[0] = 0 Then Return SetError(1, 9, "")
   Case 1
    If $asRootFileMatchList[0] = 0 And $asFileMatchList[0] = 0 Then Return SetError(1, 9, "")
   Case 2
    If $asFolderMatchList[0] = 0 Then Return SetError(1, 9, "")
  EndSwitch
  Switch $iReturn
   Case 2 ; Folders only
    ; Correctly size folder match list
    ReDim $asFolderMatchList[$asFolderMatchList[0] + 1]
    ; Copy size folder match array
    $asReturnList = $asFolderMatchList
    ; Simple sort list
    _RFLTA_ArraySort($asReturnList)
   Case 1 ; Files only
    If $iReturnPath = 0 Then ; names only so simple sort suffices
     ; Combine file match lists
     _RFLTA_AddFileLists($asReturnList, $asRootFileMatchList, $asFileMatchList)
     ; Simple sort combined file list
     _RFLTA_ArraySort($asReturnList)
    Else
     ; Combine sorted file match lists
     _RFLTA_AddFileLists($asReturnList, $asRootFileMatchList, $asFileMatchList, 1)
    EndIf
   Case 0 ; Both files and folders
    If $iReturnPath = 0 Then ; names only so simple sort suffices
     ; Combine file match lists
     _RFLTA_AddFileLists($asReturnList, $asRootFileMatchList, $asFileMatchList)
     ; Set correct count for folder add
     $asReturnList[0] += $asFolderMatchList[0]
     ; Resize and add file match array
     ReDim $asFolderMatchList[$asFolderMatchList[0] + 1]
     _RFLTA_ArrayConcatenate($asReturnList, $asFolderMatchList)
     ; Simple sort final list
     _RFLTA_ArraySort($asReturnList)
    Else
     ; Size return list
     Local $asReturnList[$asFileMatchList[0] + $asRootFileMatchList[0] + $asFolderMatchList[0] + 1]
     $asReturnList[0] = $asFileMatchList[0] + $asRootFileMatchList[0] + $asFolderMatchList[0]
     ; Sort root file list
     _RFLTA_ArraySort($asRootFileMatchList, 1, $asRootFileMatchList[0])
     ; Add the sorted root files at the top
     For $i = 1 To $asRootFileMatchList[0]
      $asReturnList[$i] = $asRootFileMatchList[$i]
     Next
     ; Set next insertion index
     Local $iNextInsertionIndex = $asRootFileMatchList[0] + 1
     ; Sort folder list
     _RFLTA_ArraySort($asFolderMatchList, 1, $asFolderMatchList[0])
     ; Work through folder list
     For $i = 1 To $asFolderMatchList[0]
      ; Format folder name for search
      If $sFolderSlash Then
       $sFolderToFind = $asFolderMatchList[$i]
      Else
       $sFolderToFind = $asFolderMatchList[$i] & "\"
      EndIf
      ; Find folder in FolderFileSectionList
      For $j = 1 To $asFolderFileSectionList[0][0]
       If $sFolderToFind = $asFolderFileSectionList[$j][0] Then ExitLoop
      Next
      ; Set file list indexes
      $iFileSectionStartIndex = $asFolderFileSectionList[$j][1]
      If $j = $asFolderFileSectionList[0][0] Then
       $iFileSectionEndIndex = $asFileMatchList[0]
      Else
       $iFileSectionEndIndex = $asFolderFileSectionList[$j + 1][1] - 1
      EndIf
      ; Sort files if required
      If $iSort = 1 Then
       _RFLTA_ArraySort($asFileMatchList, $iFileSectionStartIndex, $iFileSectionEndIndex)
      EndIf
      ; Add folder to return list
      $asReturnList[$iNextInsertionIndex] = $asFolderMatchList[$i]
      $iNextInsertionIndex += 1
      ; Add files to return list
      For $j = $iFileSectionStartIndex To $iFileSectionEndIndex
       $asReturnList[$iNextInsertionIndex] = $asFileMatchList[$j]
       $iNextInsertionIndex += 1
      Next
     Next
    EndIf
  EndSwitch
 Else ; No sort
  ; Check if any file/folders have been added
  If $asReturnList[0] = 0 Then Return SetError(1, 9, "")
  ; Remove any unused return list elements from last ReDim
  ReDim $asReturnList[$asReturnList[0] + 1]
 EndIf
 Return $asReturnList

EndFunc   ;==>_RecFileListToArray
; #INTERNAL_USE_ONLY#============================================================================================================
; Name...........: _RFLTA_ListToMask
; Description ...: Convert include/exclude lists to SRE format
; Syntax ........: _RFLTA_ListToMask(ByRef $sMask, $sList)
; Parameters ....: $asMask - Include/Exclude mask to create
;                 $asList - Include/Exclude list to convert
; Return values .: Success: 1
;                 Failure: 0
; Author ........: SRE patterns developed from those posted by various forum members and Spiff59 in particular
; Remarks .......: This function is used internally by _RecFileListToArray
; ===============================================================================================================================
Func _RFLTA_ListToMask(ByRef $sMask, $sList)
 ; Check for invalid characters within list
 If StringRegExp($sList, "[url="file://\\|/|:|\<|\>|\"]\\|/|:|\<|\>|\[/url]|") Then Return 0
 ; Strip WS and insert | for ;
 $sList = StringReplace(StringStripWS(StringRegExpReplace($sList, "\s*;\s*", ";"), 3), ";", "|")
 ; Convert to SRE pattern
 $sList = StringReplace(StringReplace(StringRegExpReplace($sList, "[][$^.{}()+\-]", "[url="file://\\$0"]\\$0[/url]"), "?", "."), "*", ".*?")
 ; Add prefix and suffix
 $sMask =  "(?i)^(" & $sList & ")\z"
 Return 1
EndFunc   ;==>_RFLTA_ListToMask
; #INTERNAL_USE_ONLY#============================================================================================================
; Name...........: _RFLTA_AddToList
; Description ...: Add element to [?] or [?][2] list which is resized if necessary
; Syntax ........: _RFLTA_AddToList(ByRef $asList, $vValue_0, [$vValue_1])
; Parameters ....: $aList - List to be added to
;                 $vValue_0 - Value to add (to [0] element in [?][2] array if $vValue_1 exists)
;                 $vValue_1 - Value to add to [1] element in [?][2] array (optional)
; Return values .: None - array modified ByRef
; Author ........: Melba23
; Remarks .......: This function is used internally by _RecFileListToArray
; ===============================================================================================================================
Func _RFLTA_AddToList(ByRef $aList, $vValue_0, $vValue_1 = -1)
 If $vValue_1 = -1 Then ; [?] array
  ; Increase list count
  $aList[0] += 1
  ; Double list size if too small (fewer ReDim needed)
  If UBound($aList) <= $aList[0] Then ReDim $aList[UBound($aList) * 2]
  ; Add value
  $aList[$aList[0]] = $vValue_0
 Else ; [?][2] array
  $aList[0][0] += 1
  If UBound($aList) <= $aList[0][0] Then ReDim $aList[UBound($aList) * 2][2]
  $aList[$aList[0][0]][0] = $vValue_0
  $aList[$aList[0][0]][1] = $vValue_1
 EndIf
EndFunc   ;==>_RFLTA_AddToList
; #INTERNAL_USE_ONLY#============================================================================================================
; Name...........: _RFLTA_AddFileLists
; Description ...: Add internal lists after resizing and optional sorting
; Syntax ........: _RFLTA_AddFileLists(ByRef $asTarget, $asSource_1, $asSource_2[, $iSort = 0])
; Parameters ....: $asReturnList - Base list
;                 $asRootFileMatchList - First list to add
;                 $asFileMatchList - Second list to add
;                 $iSort - (Optional) Whether to sort lists before adding
;                 |$iSort = 0 (Default) No sort
;                 |$iSort = 1 Sort in descending alphabetical order
; Return values .: None - array modified ByRef
; Author ........: Melba23
; Remarks .......: This function is used internally by _RecFileListToArray
; ===============================================================================================================================
Func _RFLTA_AddFileLists(ByRef $asTarget, $asSource_1, $asSource_2, $iSort = 0)
 ; Correctly size root file match array
 ReDim $asSource_1[$asSource_1[0] + 1]
 ; Simple sort root file match array if required
 If $iSort = 1 Then _RFLTA_ArraySort($asSource_1)
 ; Copy root file match array
 $asTarget = $asSource_1
 ; Add file match count
 $asTarget[0] += $asSource_2[0]
 ; Correctly size file match array
 ReDim $asSource_2[$asSource_2[0] + 1]
 ; Simple sort file match array if required
 If $iSort = 1 Then _RFLTA_ArraySort($asSource_2)
 ; Add file match array
 _RFLTA_ArrayConcatenate($asTarget, $asSource_2)
EndFunc   ;==>_RFLTA_AddFileLists
; #INTERNAL_USE_ONLY#============================================================================================================
; Name...........: _RFLTA_FileListSearch
; Description ...: Search file array for beginning and end indices of folder associated files
; Syntax ........: _RFLTA_FileListSearch(Const ByRef $avArray, $vValue)
; Parameters ....: $avArray - Array to search ($asFileMatchList)
;                 $vValue  - Value to search for (Folder name from $asFolderMatchList)
;                 $iIndex  - Index to begin search (search down from here - and then from here to top if not found)
;                 $sSlash  - \ if folder names end in \ - else empty string
; Return values .: Success: Array holding top and bottom indices of folder associated files
;                 Failure: Returns -1
; Author ........: Melba23
; Modified.......:
; Remarks .......: This function is used internally by _RecFileListToArray
; ===============================================================================================================================
Func _RFLTA_FileListSearch(Const ByRef $avArray, $vValue, $iIndex, $sSlash)
 Local $aRet[2]
 ; Add final \ if required
 If Not $sSlash Then $vValue &= "\"
 ; Start by getting top match - search down from start index
 For $i = $iIndex To $avArray[0]
  ; SRE gives path less filename
  If StringRegExpReplace($avArray[$i], "(^.*\\)(.*)", "\1") = $vValue Then ExitLoop
 Next
 If $i > $avArray[0] Then
  ; No match found so look from start index upwards
  If $iIndex = $avArray[0] Then $iIndex -= 1
  For $i = $iIndex + 1 To 1 Step -1
   If StringRegExpReplace($avArray[$i], "(^.*\\)(.*)", "\1") = $vValue Then ExitLoop
  Next
  ; If still no match - return " nothing found" for empty folder
  If $i = 0 Then Return SetError(1, 0, "")
  ; Set index of bottom file
  $aRet[1] = $i
  ; Now look for top match
  For $i = $aRet[1] To 1 Step -1
   If StringRegExpReplace($avArray[$i], "(^.*\\)(.*)", "\1") <> $vValue Then ExitLoop
  Next
  ; Set top match
  $aRet[0] = $i + 1
 Else
  ; Set index of top associated file
  $aRet[0] = $i
  ; Now look for bottom match - find first file which does not match
  For $i = $aRet[0] To $avArray[0]
   If StringRegExpReplace($avArray[$i], "(^.*\\)(.*)", "\1") <> $vValue Then ExitLoop
  Next
  ; Set bottom match
  $aRet[1] = $i - 1
 EndIf
 Return $aRet
EndFunc   ;==>_RFLTA_FileListSearch
; #INTERNAL_USE_ONLY#============================================================================================================
; Name...........: _RFLTA_ArraySort
; Description ...: Wrapper for QuickSort function
; Syntax ........: _RFLTA_ArraySort(ByRef $avArray)
; Parameters ....: $avArray - Array to sort
;                 $iStart  - Index to start sort
;                 $iEnd    - Index to end sort
; Return values .: None - array modified ByRef
; Author ........: Jos van der Zande, LazyCoder, Tylo, Ultima
; Modified.......: Melba23
; Remarks .......: This function is used internally by _RecFileListToArray
; ===============================================================================================================================
Func _RFLTA_ArraySort(ByRef $avArray, $iStart = 1, $iEnd = -99)
 If $iEnd = -99 Then $iEnd = UBound($avArray) - 1
 _RFLTA_QuickSort($avArray, $iStart, $iEnd)
EndFunc   ;==>_RFLTA_ArraySort
; #INTERNAL_USE_ONLY#============================================================================================================
; Name...........: _RFLTA_QuickSort
; Description ...: Recursive array sort
; Syntax ........: _RFLTA_QuickSort(ByRef $avArray, ByRef $iStart, ByRef $iEnd)
; Parameters ....: $avArray - Array to sort in descending alphabetical order
;                 $iStart - Start index
;                 $iEnd - End index
; Return values .: None - array modified ByRef
; Author ........: Jos van der Zande, LazyCoder, Tylo, Ultima
; Modified.......: Melba23
; Remarks .......: This function is used internally by _RFLTA_ArraySort
; ===============================================================================================================================
Func _RFLTA_QuickSort(ByRef $avArray, ByRef $iStart, ByRef $iEnd)
 Local $vTmp
 If ($iEnd - $iStart) < 15 Then
  Local $i, $j, $vCur
  For $i = $iStart + 1 To $iEnd
   $vTmp = $avArray[$i]
   If IsNumber($vTmp) Then
    For $j = $i - 1 To $iStart Step -1
     $vCur = $avArray[$j]
     If ($vTmp >= $vCur And IsNumber($vCur)) Or (Not IsNumber($vCur) And StringCompare($vTmp, $vCur) >= 0) Then ExitLoop
     $avArray[$j + 1] = $vCur
    Next
   Else
    For $j = $i - 1 To $iStart Step -1
     If (StringCompare($vTmp, $avArray[$j]) >= 0) Then ExitLoop
     $avArray[$j + 1] = $avArray[$j]
    Next
   EndIf
   $avArray[$j + 1] = $vTmp
  Next
  Return
 EndIf
 Local $L = $iStart, $R = $iEnd, $vPivot = $avArray[Int(($iStart + $iEnd) / 2)], $fNum = IsNumber($vPivot)
 Do
  If $fNum Then
   While ($avArray[$L] < $vPivot And IsNumber($avArray[$L])) Or (Not IsNumber($avArray[$L]) And StringCompare($avArray[$L], $vPivot) < 0)
    $L += 1
   WEnd
   While ($avArray[$R] > $vPivot And IsNumber($avArray[$R])) Or (Not IsNumber($avArray[$R]) And StringCompare($avArray[$R], $vPivot) > 0)
    $R -= 1
   WEnd
  Else
   While (StringCompare($avArray[$L], $vPivot) < 0)
    $L += 1
   WEnd
   While (StringCompare($avArray[$R], $vPivot) > 0)
    $R -= 1
   WEnd
  EndIf
  If $L <= $R Then
   $vTmp = $avArray[$L]
   $avArray[$L] = $avArray[$R]
   $avArray[$R] = $vTmp
   $L += 1
   $R -= 1
  EndIf
 Until $L > $R
 _RFLTA_QuickSort($avArray, $iStart, $R)
 _RFLTA_QuickSort($avArray, $L, $iEnd)
EndFunc   ;==>_RFLTA_QuickSort
; #INTERNAL_USE_ONLY#============================================================================================================
; Name...........: _RFLTA_ArrayConcatenate
; Description ...: Joins 2 arrays
; Syntax ........: _RFLTA_ArrayConcatenate(ByRef $avArrayTarget, Const ByRef $avArraySource)
; Parameters ....: $avArrayTarget - Base array
;                 $avArraySource - Array to add from element 1 onwards
; Return values .: None - array modified ByRef
; Author ........: Ultima
; Modified.......: Melba23
; Remarks .......: This function is used internally by _RecFileListToArray
; ===============================================================================================================================
Func _RFLTA_ArrayConcatenate(ByRef $avArrayTarget, Const ByRef $avArraySource)
 Local $iUBoundTarget = UBound($avArrayTarget) - 1, $iUBoundSource = UBound($avArraySource)
 ReDim $avArrayTarget[$iUBoundTarget + $iUBoundSource]
 For $i = 1 To $iUBoundSource - 1
  $avArrayTarget[$iUBoundTarget + $i] = $avArraySource[$i]
 Next
EndFunc   ;==>_RFLTA_ArrayConcatenate
Edited by engjcowi

Drunken Frat-Boy Monkey Garbage

Link to comment
Share on other sites
engjcowi Polymath

engjcowi

Posted
  • Author
Posted

Phew. I beleive ive now solved the error.

I removed this line: _RecFileListToArray("C:UsersAlisonDesktopdesktop", "*.doc;*.txt;*.xlsx;*.jpg;*.bmp", 1, 1, 0, 2, "", "")

and added this line if Not IsArray($Array) Then continueloop

under this line

$Array = _RecFileListToArray($avArray[$s], '*.pdf; *.xls; *.doc; *.mdb', 1, 1, 1, 2)

and now it all seems to work as it should.

Drunken Frat-Boy Monkey Garbage

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share
Go to topic listing
×
×
  • Create New...