_FileListToArray problem

[ffdshow]

I use the next code to create archive from only the content of 2 subdirs placed in @ScriptDir, but total size of archives is 3x subdirs size. Other problem is that the script will add to archive all files from @ScriptDir. The command line syntax is OK.

#Include <File.au3>
#Include <Array.au3>

$VolumeSize = "100m"
$SetAPasswordForArchives = 1
$Password = "qwerty"
$EncryptFileNames = 1

$FolderList = _FileListToArray(@ScriptDir, "*", 2)
Select
    Case $SetAPasswordForArchives = 1 and $EncryptFileNames = 1
        If IsArray($FolderList) Then
            For $i = 1 to $FolderList[0]
            FileChangeDir(@ScriptDir & "\" & '"' & $FolderList[$i] & '"')
            RunWait("RAR.exe a -m0 -r -v" & $VolumeSize & " -hp" & $Password & " " & '"' & $FolderList[$i] & '"')
            FileMove(@ScriptDir & "\" & $FolderList[$i] & "*.rar", @ScriptDir, 1)
            Next
        EndIf
    Case $SetAPasswordForArchives = 1 and $EncryptFileNames = 0
        If IsArray($FolderList) Then
            For $i = 1 to $FolderList[0]
            FileChangeDir(@ScriptDir & "\" & '"' & $FolderList[$i] & '"')
            RunWait("RAR.exe a -m0 -r -v" & $VolumeSize & " -p" & $Password & " " & '"' & $FolderList[$i] & '"')
            FileMove(@ScriptDir & "\" & $FolderList[$i] & "*.rar", @ScriptDir, 1)
            Next
        EndIf
    Case $SetAPasswordForArchives = 0
        If IsArray($FolderList) Then
            For $i = 1 to $FolderList[0]
            FileChangeDir(@ScriptDir & "\" & '"' & $FolderList[$i] & '"')
            RunWait("RAR.exe a -m0 -r -v" & $VolumeSize & " " & '"' & $FolderList[$i] & '"')
            FileMove(@ScriptDir & "\" & $FolderList[$i] & "*.rar", @ScriptDir, 1)
            Next
        EndIf
EndSelect

Edited April 6, 2011 by ffdshow

[November]

Hi there,

Remember that _filelisttoarray is an array, and the $FolderList[0] is the number of records in the array. Search for UBOUND command

try :

$limit = ubound ($folderlist)-1
For $i = 1 to $limit

For the RAR issue:

try :

RunWait("RAR.exe a -m0 -r -v" & $VolumeSize & " -hp" & $Password & " " & '"' & $FolderList[$i] & '"', @ScriptDir & "\" & '"' & $FolderList[$i] & '"')

Cheers

[ffdshow]

Rar synthax is OK. I guess is something wrong with those case statements.

Edit

This code works:

expandcollapse popup

$VolumeSize = "100m"
$SetAPasswordForArchives = 1
$Password = "qwerty"
$EncryptFileNames = 1

#Include <File.au3>
#Include <Array.au3>
If $SetAPasswordForArchives = 1 And $EncryptFileNames = 1 Then
    $FolderList = _FileListToArray(@ScriptDir, "*", 2)
    If IsArray($FolderList) Then
        For $i = 1 to $FolderList[0]
            FileChangeDir(@ScriptDir & "\" & $FolderList[$i])
            RunWait('"' & @ScriptDir & "\RAR.exe" & '"' & " a -m0 -r -v" & $VolumeSize & " -hp" & $Password & " " & '"' & $FolderList[$i] & '"')
            FileMove(@ScriptDir & "\" & $FolderList[$i] & "\" & $FolderList[$i] & "*.rar", @ScriptDir, 1)
        Next
    EndIf
EndIf

If $SetAPasswordForArchives = 1 And $EncryptFileNames = 0 Then
    $FolderList = _FileListToArray(@ScriptDir, "*", 2)
    If IsArray($FolderList) Then
        For $i = 1 to $FolderList[0]
            FileChangeDir(@ScriptDir & "\" & $FolderList[$i])
            RunWait('"' & @ScriptDir & "\RAR.exe" & '"' & " a -m0 -r -v" & $VolumeSize & " -p" & $Password & " " & '"' & $FolderList[$i] & '"')
            FileMove(@ScriptDir & "\" & $FolderList[$i] & "\" & $FolderList[$i] & "*.rar", @ScriptDir, 1)
        Next
    EndIf
EndIf

If $SetAPasswordForArchives = 0 Then
    $FolderList = _FileListToArray(@ScriptDir, "*", 2)
    If IsArray($FolderList) Then
        For $i = 1 to $FolderList[0]
            FileChangeDir(@ScriptDir & "\" & $FolderList[$i])
            RunWait('"' & @ScriptDir & "\RAR.exe" & '"' & " a -m0 -r -v" & $VolumeSize & " " & '"' & $FolderList[$i] & '"')
            FileMove(@ScriptDir & "\" & $FolderList[$i] & "\" & $FolderList[$i] & "*.rar", @ScriptDir, 1)
        Next
    EndIf
EndIf

Edited April 7, 2011 by ffdshow