Jump to content

nested loop and calling _FileListToArray data


aleph01
 Share

Recommended Posts

I have a function which returns an array of domain computernames based on a selection from a listbox GUI. The usage is as below, with $SourcePath, $DestPath, and $SourceFile all being generated by inputboxes.

For $sItems = 1 To $aItems[0]
FileCopy($SourcePath, "\\" & $aItems[$sItems] & "\" & $DestPath & "\" & $SourceFile, 1)
Next

I also have code which returns an array of subfolders within a folder successfully.

#include <File.au3>
#include <Array.au3>
dim $sFilter, $iFlag, $TargetFolder, $TargetItem
$TargetFolder = InputBox ("Target Directory Path", "Note: Input the target folder in this form: """\\CUOPAC1\C$\Documents and Settings"""            (No trailing backslash, no quotes.)", "", "", 260, 160)
If @error = 1 Then Exit
Local $FileList = _FileListToArray($TargetFolder, "*", 2)
If @error = 1 Then
MsgBox(0, "No Folders Found", "Folders or Path Not Found.")
Exit
EndIf
_ArrayDisplay($FileList, "$FileList")

What I'm having a problem with is writing a nested For...Next loop that for each selected computer, scans the folders returned by _FileListToArray. Specifically, I'm having trouble specifying the variables returned by _FileListToArray.

I think it would go something like this:

For $sItems = 1 To $aItems[0]
For <however I need to call the _FileListToArray data>
     If FileExists(.....) Then
         MsgBox (...)
     EndIf
Next
Next

Does that sound right? How do I call the _FileListToArray data?

Sorry for the long post. I hope I made myself clear. Thanks in advance for your help. This forum is a godsend for me.

Meds.  They're not just for breakfast anymore. :'(

Link to comment
Share on other sites

I'm not sure this is what you're looking for because your explanation was a bit hard to follow. But this might give you some ideas.

#include <File.au3>
#include <Array.au3>
Global $sFilter, $iFlag, $TargetFolder, $TargetItem, $FileList
For $OuterLoop = 1 To $aItems[0]
    $TargetFolder = InputBox("Target Directory Path", "Note: Input the target folder in this form: ""C$Documents and Settings""            (No trailing backslash, no quotes.)", "", "", 260, 160)
    If @error = 1 Then Exit
    $FileList = _FileListToArray($aItems[$OuterLoop] & "" & $TargetFolder, "*", 2)
    If @error = 1 Then
        MsgBox(0, "No Folders Found", "Folders or Path Not Found.")
        Exit
    EndIf
    _ArrayDisplay($FileList, "$FileList")
    For $InnerLoop = 1 To $FileList[0]
        ; // do something here
    Next
Next

If I posted any code, assume that code was written using the latest release version unless stated otherwise. Also, if it doesn't work on XP I can't help with that because I don't have access to XP, and I'm not going to.
Give a programmer the correct code and he can do his work for a day. Teach a programmer to debug and he can do his work for a lifetime - by Chirag Gude
How to ask questions the smart way!

I hereby grant any person the right to use any code I post, that I am the original author of, on the autoitscript.com forums, unless I've specifically stated otherwise in the code or the thread post. If you do use my code all I ask, as a courtesy, is to make note of where you got it from.

Back up and restore Windows user files _Array.au3 - Modified array functions that include support for 2D arrays.  -  ColorChooser - An add-on for SciTE that pops up a color dialog so you can select and paste a color code into a script.  -  Customizable Splashscreen GUI w/Progress Bar - Create a custom "splash screen" GUI with a progress bar and custom label.  -  _FileGetProperty - Retrieve the properties of a file  -  SciTE Toolbar - A toolbar demo for use with the SciTE editor  -  GUIRegisterMsg demo - Demo script to show how to use the Windows messages to interact with controls and your GUI.  -   Latin Square password generator

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

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...