_FileListToArray And FileFindNextFile

[4Bravo]

I apologize if this is fairly simple, I've spend more hours than I want to on it and can't seem to get Autoit to work on every file in a subdirectory.

I've tried _FileListToArray and _FileListToArrayex but my complete lack of programming knowledge and copy and paste programming has only gotten me frustrated.

I am able to run the following script on 1 directory and all file sin the directory:

While 1
$file = FileFindNextFile($search)
If @error Then ExitLoop
;c:\tmp in the following line can be edited to your choice of file location
Run("C:\Program Files (x86)\Adobe\Adobe Flash CS5.5\flash.exe $sAutoItDir\" & $file)
$file = StringTrimRight($file, 4)
WinWaitActive($file)
; send export command
Send("^m")
WinWaitActive("Export Movie")
; set new filepath and name
Send("C:\tmp\" & $file & ".Mov")
Send("{ENTER}")
WinWaitActive("QuickTime Export Settings")
; dismiss export settings
Send("{ENTER}")
WinWaitActive("Adobe Flash CS5.5")
; dismiss export settings dialg
Send("{ENTER}")
; if you're not using MX 2004 Pro, edit the following line to match the Window title of your version
WinWaitActive($file)
; close .fla file
Send("^!x")
;Send("n")
WEnd
; Close the search handle
FileClose($search)

But when I tried to run that on subdirectories I couldn't seem to search the array:

#include <File.au3>
#include <Array.au3>
#include "FileListTOArrayEx.au3"
$sAutoItDir = "D:\Animations\CYOA\Animation\Stock_Animations\Boy\Talking"

$aArray = _FileListToArrayEx($sAutoItDir, "*.fla", 0 + 8 + 4)
$search = FileFindFirstFile($aArray)
While 1
$file = FileFindNextFile($search)
If @error Then ExitLoop
Run("C:\Program Files (x86)\Adobe\Adobe Flash CS5.5\flash.exe $sAutoItDir\" & $file)
$file = StringTrimRight($file, 4)
WinWaitActive($file)
; send export command
Send("^m")
WinWaitActive("Export Movie")
[b]; set filepath to open file's directory and name
Send("C:\tmp\" & $file & ".Mov")[/b]
Send("{ENTER}")
WinWaitActive("QuickTime Export Settings")
; dismiss export settings dialg
Send("{ENTER}")
WinWaitActive("Adobe Flash CS5.5")
; dismiss export settings dialg
Send("{ENTER}")
; if you're not using MX 2004 Pro, edit the following line to match the Window title of your version
WinWaitActive($file)
; close .fla file
Send("^!x")
;Send("n")
WEnd
; Close the search handle
FileClose($search)

I've also highlighted in bold my problem with using subdirectories, I'm not sure how to tell the mov to be rendered out the folder the file came from, in javascript I've used thelastIndexOf function to trim the directory, I see the StringTrimRight function removed the extension from the $file, but because every filename will have a different length I knew I couldn't use the same function to set a filepath

Any help would be greatly appreciated

[saywell]

Look at Melba23's - it's great, and will do what you want.

William

Edited November 2, 2012 by saywell

[AZJIO]

[4Bravo]

Thank you for replying, I have tried the with similar results. and after trying this _FO_FileSearch it seems to be the same. I get a list of files that is show in _ArrayDisplay. But where do I go from there? I've tried FileFindNextFile and the script doesn't want to do anything, it doesn't even return errors

#include <Array.au3>
#Include <FileOperations.au3>
$sPath = "D:AnimationsCYOAAnimationStock_AnimationsBoyTalking"

$FileList = _FO_FileSearch($sPath,'*fla')
_ArrayDisplay($FileList)
While 1
$file = FileFindNextFile($FileList)
If @error Then ExitLoop
;c:tmp in the following line can be edited to your choice of file location
Run("C:Program Files (x86)AdobeAdobe Flash CS5.5flash.exe $sPath" & $file)
$file = StringTrimRight($file, 4)
WinWaitActive($file)
; send export command
Send("^m")
WinWaitActive("Export Movie")
; set new filepath and name
Send("C:tmp" & $file & ".Mov")
Send("{ENTER}")
WinWaitActive("QuickTime Export Settings")
; dismiss export settings dialg
Send("{ENTER}")
  WinWaitActive("Adobe Flash CS5.5")
; dismiss export settings dialg
Send("{ENTER}")
; if you're not using MX 2004 Pro, edit the following line to match the Window title of your version
WinWaitActive($file)
; close .fla file
Send("^!x")
;Send("n")
WEnd
; Close the search handle
FileClose($FileList)

[Melba23]

4Bravo,

How about explaining in simple terms what it is you are trying to do? At the moment that code is so confused I am not at all sure.

All I can tell you is that:

$FileList = _FO_FileSearch($sPath,'*fla')
_ArrayDisplay($FileList
While 1
$file = FileFindNextFile($FileList)
If @error Then ExitLoop

is most certainly NOT looping through the array!

M23

[4Bravo]

I'm trying to perform a set of commands on every file in all subdirectories of a given path, one file a time. In the example above I'm using flash to export a quicktime, but I need it for a few other things as soon as I figure out how to attach the $file variable to any of the results I get from RecFilesListToArray or _FO_FileSearch

[Melba23]

4Bravo,

OK, the following code should get you a list of all the files in the path folder and all subfolders - and then extract each one in turn for you to "do things with it:

#include <Array.au3>
#include <RecFileListToArray.au3>

$sPath = "Your_Path"
$sMask = "*.fla" ; We are only returning *.fla files

; The parameters are: Path, Mask, Files only, Recur)
$aList = _RecFileListToArray($sPath, $sMask, 1, 1)

; Show what we got
_ArrayDisplay($aList)

; Now loop through the array
For $i = 1 To $aList[0]

    MsgBox(0, "File", "Number in array: " & $i & @CRLF & @CRLF & "Full file path: " & $sPath & "" & $aList[$i])

Next

Does that do what you want?

M23

[AZJIO]

expandcollapse popup

#include <Array.au3>

#include <FileOperations.au3>

$sPath = "D:AnimationsCYOAAnimationStock_AnimationsBoyTalking"



$FileList = _FO_FileSearch($sPath, '*fla')

If @error Then Exit

; _ArrayDisplay($FileList)

For $i = 1 To $FileList[0]

    ;c:tmp in the following line can be edited to your choice of file location

    Run("C:Program Files (x86)AdobeAdobe Flash CS5.5flash.exe " & $FileList[$i])

    $FileList[$i] = StringTrimRight($FileList[$i], 4)

    WinWaitActive($FileList[$i])

    ; send export command

    Send("^m")

    WinWaitActive("Export Movie")

    ; set new filepath and name

    Send("C:tmp" & $FileList[$i] & ".Mov")

    Send("{ENTER}")

    WinWaitActive("QuickTime Export Settings")

    ; dismiss export settings dialg

    Send("{ENTER}")

    WinWaitActive("Adobe Flash CS5.5")

    ; dismiss export settings dialg

    Send("{ENTER}")

    ; if you're not using MX 2004 Pro, edit the following line to match the Window title of your version

    WinWaitActive($FileList[$i])

    ; close .fla file

    Send("^!x")

    ;Send("n")

WEnd

Edited November 2, 2012 by AZJIO

[4Bravo]

Thank you, both of these are on the right track. Is there a way to trim $aList[$i] OR$FileList[$i] So it just has the file name in it and not the path from my dir to where it found the file? it's needed for the first WinWaitActive function $aList[$i]is opening the file just fine, but it is then waiting for /dir/dir/file.fla whenit should be looking for file, no extention

[4Bravo]

got this to work

expandcollapse popup

#include <Array.au3>
#include <FileOperations.au3>
#include <RecFileListToArray.au3>
Opt("WinWaitDelay", 200)
$sPath = "D:AnimationsCYOAAnimationStock_AnimationsBoyTalking"
$FileList = _FO_FileSearch($sPath, '*fla', True, 125, 1 )
$justFILE = _RecFileListToArray($sPath, "*.fla", 1, 1, 1, 0)
$flaDIR = _RecFileListToArray($sPath, "*.fla", 1, 1, 1, 2)
For $i = 1 To $justFILE[0]
$justFILE[$i] = StringTrimRight($justFILE[$i], 4)
next
For $i = 1 To $flaDIR[0]
$flaDIR[$i] = StringReplace($flaDIR[$i], $justFILE[$i] & ".fla", "")
next

; _ArrayDisplay($FileList)
For $i = 1 To $FileList[0]
Run("C:Program Files (x86)AdobeAdobe Flash CS5.5flash.exe " & $FileList[$i])
;MsgBox(0, "", $justFILE[$i])
WinWaitActive($justFILE[$i])
; send export command
Send("^m")
WinWaitActive("Export Movie")
; set new filepath and name
Send($flaDIR[$i] & $justFILE[$i] & ".Mov")
Send("{ENTER}")
WinWaitActive("QuickTime Export Settings")
; dismiss export settings dialg
Send("{ENTER}")
WinWaitActive("Adobe Flash CS5.5")
; dismiss export settings dialg
Send("{ENTER}")
; if you're not using MX 2004 Pro, edit the following line to match the Window title of your version
WinWaitActive($justFILE[$i])
; close .fla file
Send("^X")
Next

This exports an MOV file to the directory the file was opened from. I probably didn't need to use both array functions, but they work together in the end.

Edited November 3, 2012 by 4Bravo

[AZJIO]

$justFILE = _RecFileListToArray($sPath, "*.fla", 1, 1, 1, 0)
For $i = 1 To $justFILE[0]
    $justFILE[$i] = StringTrimRight($justFILE[$i], 4)
Next
_ArrayDisplay($justFILE)

analogically, similarly

$FileList = _FO_FileSearch($sPath, '*.fla', True, 125, 3)
_ArrayDisplay($FileList)

Edited November 3, 2012 by AZJIO