Include Subfolders in FileFind

[StOngeCompany]

Hello AutoIt Forums,

I'm working on a script that will scan a directory and zip every file ending in .accdb. I have a working script, but I want it to include subfolders too. Here is what I have so far:

$directory = InputBox ("Directory", "Please enter the directory.")

$accdb = FileFindFirstFile($directory & "\" & "*.accdb")
If $accdb = -1 Then
    MsgBox(0, "Error", "There are no databases in that directory.")
    Exit
EndIf

While 1
   Local $file = FileFindNextFile($accdb)
   If @error Then ExitLoop
   DirCreate($directory & "\" & "Databases")
   FileMove($directory & "\" & "*.accdb", $directory & "\" & "Databases")

  WEnd

RunWait('Winzip32.exe -a "C:\Users\dberndt\Desktop\Test\Databases.zip" "C:\Users\dberndt\Desktop\Test\Databases"')

DirRemove($directory & "\" & "Databases", 1)

FileClose($accdb)

The script puts all .accdb files into a single folder and then zips that folder. Now I need it to also scan subfolders.

I understand the purpose of this forum isn't to simply supply me with a debug, but I'm stumped on where to go from here. I'd be very grateful if anyone here can at least point me in the right direction.

Thank you in advance very much for your time and effort.

[Spiff59]

There are a ton of recursive _FileListToArray() functions in the Examples forum that will work for you.

[Mechaflash]

Is there more than 1 level of subfolders?

[Zedna]

There is also _FileListToArrayEx() ...

[Melba23]

StOngeCompany,

Try the RecFileListToArray UDF in my sig.

M23

[StOngeCompany]

Melba23,

Thank you for the quick response. The RecFileListToArray UDF is great! I have one further question though. I am able to capture all of the .accdb files, including subfolders, but how do I move them into a new folder?

Here is my script:

#include <Array.au3>

#include "RecFileListToArray.au3"

$directory = InputBox ("Directory", "Please enter the directory.")

$accdb = _RecFileListToArray($directory & "", "*.accdb", 0, 1, 1)
ConsoleWrite("Error: " & @error & " - " & " Extended: " &  @extended & @CRLF)
_ArrayDisplay($accdb, ".accdb Files")

Say I wanted to move all of the files in the $accdb array to a new directory, how would I do that?

I tried the following with no luck:

DirCreate($directory & "" & "Databases")
FileMove($accdb, $directory & "" & "Databases")

Do you have any suggestions?

Thank you very much.

[Mechaflash]

Iterate over the file list in the array.

If the [0] index is just the total files, you'll want to skip the first iteration, or if you have no need for the file total, just delete it.

So after your code:

$sTarget = $directory & "Databases"
$iSkip = 0
For $file in $accdb
    If IsInt($accdb[0]) And $iSkip = 0 Then
        $iSkip+=1
    else
        FileMove($file, $sTarget, 8) ; use 9 switch instead of 8 if you want to overwrite files as well.
    endif
Next

[StOngeCompany]

mechaflash213, thank you so much for your help. I believe I am very close now.

The commands you added create the Database folder successfully, and are pulling all of the .accdb's correctly, but they are still not moving into the Databases folder.

[BrewManNH]

You have to add the $ReturnPath parameter and set it to 2 in the RecFileListToArray function, otherwise the function returns the file name only with no path information, and you can't move the file by just the file name, you need the source directory it is coming from.

[Mechaflash]

Change the $iReturnPath argument to 2 in your RecFileListToArray as the default (1) only grabs relative paths and not full paths to the files.

EDIT: Gah Brew beat me by 1/2 a second =D

Edited May 31, 2012 by mechaflash213