FileList to array

[SparkSoft]

Im having difficulty undertsanding arrays.

Heres what I wanted to do:

choose a folder then put list of files and folders list into an array,

then choose another folder then copy files from the list, one by one , into that folder so that the script doesnt crash

<br>Heres my code:

#include <file.au3>
#include <array.au3>
;Variables

Global $ChosenDirectory = FileSelectFolder("File To Backup","C:/")
Global $FilesBackupList = File
If @Error = 1 Then
    MsgBox(0,"Error","No Files Found!")
    Exit
EndIf
If @error = 4 Then
    MsgBox(0,"Error","No Files In Folder")
    Exit
EndIf
_ArrayDisplay($FilesBackupList,"$FilesBackupList")
$FolderToBackupTo = FileSelectFolder("Select FOlder To Backup to","C:/")
FileCopy($FilesBackupList,$FolderToBackupTo)

</array.au3></file.au3>

Edited October 10, 2010 by SparkSoft

[jaberwacky]

Global $ChosenDirectory = FileSelectFolder("File To Backup", "C:/")

Global $FolderToBackupTo = FileSelectFolder("Select Folder To Backup to", "C:/")

FileCopy($ChosenDirectory, $FolderToBackupTo)

[SparkSoft]

I need to put the files chosen into a list then copy each file individually from that list to a folder

im new

[Kalin]

You should read some of the distributed AutoIt resources.

Like guides, tutorials, open source reviewing, etc.

Best way to learn AutoIt.

[SparkSoft]

Ive read quite a few guides but I cant understand how to do this

[Kalin]

For starters, When you put If @error = 4 it isn't necessary.

You can use If @error Then <statements>

On all times you've used the @error macro.

*edit*

I don't think you should be declaring the variables globally for the code you're using.

You can do this instead

$ChosenDirectory = FileSelectFolder("File To Backup","C:/")

$FilesBackupList = ; Whatever value you're setting to this variable here don't include this character ";"

Edited October 10, 2010 by Kalin

[jaberwacky]

This worked on my machine...

#include <File.au3>
#include <Array.au3>

Global $ChosenDirectory = FileSelectFolder("File To Backup", "C:/")
Global $FilesBackupList = _FileListToArray($ChosenDirectory)

If @error = 1 Then
    MsgBox(0, "Error", "No Files Found!")
    Exit
EndIf

If @error = 4 Then
    MsgBox(0, "Error", "No Files In Folder")
    Exit
EndIf

_ArrayDisplay($FilesBackupList, "$FilesBackupList")

$FolderToBackupTo = FileSelectFolder("Select FOlder To Backup to", "C:/")

; check for errors with this variable
Global $CheckForError

; some file attributes may make the filemove impossible
For $i = 1 To $FilesBackupList
    $CheckForError = FileCopy($FilesBackupList[$i], $FolderToBackupTo)

    If $CheckForError = 0 Then
        MsgBox(48, "Error", "File Wasn't copied")
    EndIf
Next

Edited October 10, 2010 by jaberwocky6669

[Kalin]

This worked on my machine...

#include <File.au3>
#include <Array.au3>

Global $ChosenDirectory = FileSelectFolder("File To Backup", "C:/")
Global $FilesBackupList = _FileListToArray($ChosenDirectory)

If @error = 1 Then
    MsgBox(0, "Error", "No Files Found!")
    Exit
EndIf

If @error = 4 Then
    MsgBox(0, "Error", "No Files In Folder")
    Exit
EndIf

_ArrayDisplay($FilesBackupList, "$FilesBackupList")

$FolderToBackupTo = FileSelectFolder("Select FOlder To Backup to", "C:/")

Global $CheckForError

For $i = 1 To $FilesBackupList
    $CheckForError = FileCopy($FilesBackupList[$i], $FolderToBackupTo)

    If $CheckForError = 0 Then
        MsgBox(48, "Error", "File Wasn't copied")
    EndIf
Next

Same..

I don't understand what he means by it's not working.

[jaberwacky]

FileCopy won't copy all files if certain file attributes are set. I've run into this before but I'd have to do some digging which I'm far too sleepy to feel like doing...

[SparkSoft]

Ok thanks but you see what im trying to do though dont you

[GEOSoft]

#include<file.au3>
#include<array.au3>
Global $sFldr, $sbakFldr, $aFiles
$sFldr = FileSelectFolder("Folder containing files to backup", "C:\", 2) & "\"
If NOT @Error Then $sBakFldr = FileSelectFolder("Select backup Folder", "C:\", 7) & "\"
If @Error Then Exit
$aFiles = _FileListToArray($sFldr, "*", 1)
For $i = 1 To UBound($aFiles) -1
    If NOT FileCopy($sFldr & $aFiles[$i], $sBakFldr & $aFiles[$i], 1) Then
        MsgBox(4096, "Error", "Unable to copy file" & @CRLF & $aFile[$i])
        ContinueLoop
    EndIf
Next
MsgBox(4096, "Finished", "file copying has been completed")

Edited October 10, 2010 by GEOSoft