search-rename-move file

[Wollf]

Hello i want to make something that will search all files with certain ending but different names *.kwreplay at deskpot. then i want to make it take them from bigger to smaller and rename them with numbers 1.kwreplay, 2.kwreplay and at the end move them at a place. what command i need to use and learn for this one?

[FireFox]

Hello i want to make something that will search all files with certain ending but different names *.kwreplay at deskpot. then i want to make it take them from bigger to smaller and rename them with numbers 1.kwreplay, 2.kwreplay and at the end move them at a place. what command i need to use and learn for this one?

Hi,

Search in helpfile this functions :

FileFindFirstFile()
FileFindNextFile()
FileGetSize()
FileRename()
@DesktopDir

[martin]

Hello i want to make something that will search all files with certain ending but different names *.kwreplay at deskpot. then i want to make it take them from bigger to smaller and rename them with numbers 1.kwreplay, 2.kwreplay and at the end move them at a place. what command i need to use and learn for this one?

This is what I would probably do.

Have a global variable $filelist.

Use FileFindFirst and FileFindNext to find all the files which match *.kwreplay.

Every time you find a file, get it's size with FileFindSize, and add the size and the name, in that order, to the variable $filelist and add '|' to separate different files.

You will end up with all the files and the sizes in $filelist.

Make an array of the files $aFiles = stringSplit($filelist,'|')

then sort the array into order using _ArraySort

Now you can go through the array and extract the file names and save them as required.

[SmOke_N]

#include <array.au3>
$a_array = _File_ListBySize(@DesktopDir, "*.kwreplay")
_ArrayDisplay($a_array)

Func _File_ListBySize($s_directory, $s_mask = "*", $f_greatest_to_least = True)
    $s_directory = StringRegExpReplace($s_directory, "[\\/]+\z", "")
    Local $s_files = ""
    Local $i_pid = Run(@ComSpec & ' /c dir /b /o:-s "' & $s_directory & "\" & $s_mask & '"', _
        "", @SW_HIDE, 6)
    While Not @error
        $s_files &= StdoutRead($i_pid)
    WEnd
    If Not $s_files Then Return SetError(1, 0, 0)
    
    Local $a_split = StringSplit(StringStripCR(StringRegExpReplace($s_files, "[\r\n]+\z", "")), @LF)
    If $f_greatest_to_least Then Return $a_split
    
    Local $a_ret[$a_split[0] + 1] = [$a_split[0]], $i_add
    For $i = $a_split[0] To 1 Step - 1
        $i_add += 1
        $a_ret[$i_add] = $a_split[$i]
    Next
    Return $a_ret
EndFunc

Edited December 4, 2008 by SmOke_N