"Extract' multiple dirs to one

[Pakku]

Hi all,

I had a dir with several dirs in it and in there several files. I wanted to 'extract' all of these files in just one dir. So I came up with the following:

Func _ExtractDir($dir,$dest)
    $search = FileFindFirstFile($dir & "*.*")  
    If $search <> -1 Then
        While 1
            $file = FileFindNextFile($search) 
            If @error Then
                ExitLoop
            EndIf
            If StringInStr(StringRight($file,4),".") = 1 Then
                $destfile = $dest & StringReplace($dir & $file,"\","-")
                FileCopy($dir & "\" & $file,$destfile)
            Else
                _ExtractDir($dir & $file & "\",$dest)
            EndIf
        WEnd
        FileClose($search)
    EndIf
EndFunc

To ensure that no filename is the same, the files will be copied to the destination with the pathe where it was in but the backslahses are replaced by a "-" sign. This also makes it easy to 'group' them and to keep the overview

Note:

• If you want to 'extract' the dir where it is in: also know as the @ScriptDir, the first parameter has to be blanck: ""
• All parameters have to end with a backslash: "\", but the above rule is overruling this one
• I havn't test to extract TO the same dir as you want to 'extract', but I don't think it's a good idea.
• As you may see, this script splits the files from the folders by checking if the dot (".") is on the 4th place counted from the end. So it 'thinks' that files always have a 3 char extension!

Feedback, bug reports and stuff is more than welcome Edited November 16, 2010 by Pakku

[NELyon]

Can't this throw a recursion error?

[Pakku]

Can't this throw a recursion error?

Not that I know of, I used it myself and it didn't.

Why?

Edited November 16, 2010 by Pakku

[WolfWorld]

I fix it a bit

Func _ExtractDir($dir,$dest )
    $search = FileFindFirstFile($dir & "*.*") 
    If $search <> -1 Then
        While 1
            $file = FileFindNextFile($search)
            If @error Then ExitLoop
            If StringInStr($file,".") = 1 Then;Remember File ext can be more than or less than 3-
                $dest = $dest & StringReplace($dir & $file,"\","-")
                FileCopy($file,$dest)
            Else
                _ExtractDir($dir & $file & "\", $dest)
            EndIf
        WEnd
        FileClose($search)
    EndIf
EndFunc

Edited July 20, 2007 by athiwatc

[Pakku]

I fix it a bit

Func _ExtractDir($dir,$dest )
    $search = FileFindFirstFile($dir & "*.*") 
    If $search <> -1 Then
        While 1
            $file = FileFindNextFile($search)
            If @error Then ExitLoop
            If StringInStr($file,".") = 1 Then;Remember File ext can be more than or less than 3-
                $dest = $dest & StringReplace($dir & $file,"\","-")
                FileCopy($file,$dest)
            Else
                _ExtractDir($dir & $file & "\", $dest)
            EndIf
        WEnd
        FileClose($search)
    EndIf
EndFuncoÝ÷ Ûú®¢×¶+)¢Èëhr·µæ¢W^¯­§h¶)â·}ÚºÚ"µÍYÝ[Ò[ÝÝ[ÔYÚ
    ÌÍÙ[K

JK  ][ÝË][ÝÊHH
HÜ

This might work, it your extension is 3 or 4 char long

Edited November 16, 2010 by Pakku

[Pakku]

Updated script, check out the first post!

Edited November 16, 2010 by Pakku

[mrrlg]

When I define the source and destination and attempt to run your script, nothing happens. What am I doing wrong?

$dir="C:\salesreports\"

$dest="C:\archive\sales\"

Func _ExtractDir($dir,$dest)

$search = FileFindFirstFile($dir & "*.*")

If $search <> -1 Then

While 1

$file = FileFindNextFile($search)

If @error Then

ExitLoop

EndIf

If StringInStr(StringRight($file,4),".") = 1 Then

$destfile = $dest & StringReplace($dir & $file,"\","-")

FileCopy($dir & "\" & $file,$destfile)

Else

_ExtractDir($dir & $file & "\",$dest)

EndIf

WEnd

FileClose($search)

EndIf

EndFunc