Печать

[madmasles [?]]

Rjevsky,
С Вашей папкой.

Код: AutoIt [Выделить]

#include <File.au3>

$sDir = @ScriptDir & '\0'
While 1
    If @MSEC > 500 Then
        $aList = _FileListToArray($sDir, '*', 1)
        If Not @error Then
            $iRand = Random(1, $aList[0], 1)
            FileMove($sDir & '\' & $aList[$iRand], $sDir & '\  ' & $aList[$iRand], 1)
        EndIf
    Else
        $aList = _FileListToArray($sDir, '*', 2)
        If Not @error Then
            $iRand = Random(1, $aList[0], 1)
            DirMove($sDir & '\' & $aList[$iRand], $sDir & '\  ' & $aList[$iRand], 1)
        EndIf
    EndIf
    Sleep(10000)
WEnd

Код: AutoIt [Выделить]

#include <Array.au3>
#include <WinAPIEx.au3>;Yashied, http://autoit-script.ru/index.php/topic,47.0.html

Opt('MustDeclareVars', 1)

Global $sDir = @ScriptDir & '\0', $iCountFiles, $iCountDirs

While 1
    $iCountFiles = _RemoveStartSpaceFiles($sDir)
    ConsoleWrite('Files: ' & @error & @TAB & @extended & @TAB & $iCountFiles & @LF)
    Sleep(3000)
    $iCountFiles = _RemoveStartSpaceDirs($sDir)
    ConsoleWrite('Dirs: ' & @error & @TAB & @extended & @TAB & $iCountDirs & @LF)
    _CheckMemory()
    Sleep(3000)
WEnd

Func _CheckMemory()
    Local $iMax = 3145728, _ ;3 Мб
            $aMem = ProcessGetStats()
    ConsoleWrite(Round($aMem[0] / 1024) & ' kb' & @LF)
    If $aMem[0] <= $iMax Then Return
    _WinAPI_EmptyWorkingSet()
EndFunc   ;==>_CheckMemory


Func _RemoveStartSpaceDirs($s_SourceDir)
    Local $a_Dirs, $s_Path, $s_Dir, $i_Num, $i_Count, $a_Temp[1]

    $a_Dirs = _FileSearch($sDir, ' *', 2)
    If @error Then Return 0
    ReDim $a_Temp[$a_Dirs[0] + 1][2]
    For $i = 1 To $a_Dirs[0]
        $a_Temp[$i][0] = $a_Dirs[$i]
        StringReplace($a_Dirs[$i], '\', '')
        $a_Temp[$i][1] = @extended
    Next
    _ArraySort($a_Temp, 1, 1, 0, 1)
    For $i = 1 To $a_Dirs[0]
        $a_Dirs[$i] = $a_Temp[$i][0]
    Next
    $a_Temp = 0
    For $i = 1 To $a_Dirs[0]
        $s_Path = StringRegExpReplace($a_Dirs[$i], '\\[^\\]*$', '\\')
        $s_Dir = StringRegExpReplace($a_Dirs[$i], '^.*\\\h+', '')
        $i_Num = 0
        While FileExists($s_Path & $s_Dir)
            $i_Num += 1
            $s_Dir = '(' & $i_Num & ')' & StringRegExpReplace($s_Dir, '^.*\)', '')
            Sleep(10)
        WEnd
        If DirMove($a_Dirs[$i], $s_Path & $s_Dir, 1) Then
            $i_Count += 1
        EndIf
        Sleep(10)
    Next
    Return SetError($a_Dirs[0] - $i_Count, $a_Dirs[0], $i_Count)
EndFunc   ;==>_RemoveStartSpaceDirs

Func _RemoveStartSpaceFiles($s_SourceDir)
    Local $a_Files, $s_Path, $s_File, $i_Num, $i_Count

    $a_Files = _FileSearch($sDir, ' *', 1)
    If @error Then Return 0
    For $i = 1 To $a_Files[0]
        $s_Path = StringRegExpReplace($a_Files[$i], '\\[^\\]*$', '\\')
        $s_File = StringRegExpReplace($a_Files[$i], '^.*\\\h+', '')
        $i_Num = 0
        While FileExists($s_Path & $s_File)
            $i_Num += 1
            $s_File = '(' & $i_Num & ')' & StringRegExpReplace($s_File, '^.*\)', '')
            Sleep(10)
        WEnd
        If FileMove($a_Files[$i], $s_Path & $s_File) Then
            $i_Count += 1
        EndIf
        Sleep(10)
    Next
    Return SetError($a_Files[0] - $i_Count, $a_Files[0], $i_Count)
EndFunc   ;==>_RemoveStartSpaceFiles

Func _FileSearch($sPath, $sFileMask = "*", $iFlag = 0, $iSubDir = 1, $iSort = 0)
    ;CreatoR; http://autoit-script.ru/index.php/topic,8266.msg55775
    Local $sOutBin, $sOut, $aOut, $sRead, $hDir, $sAttrib, $sFiles, $aMasks

    If Not StringInStr(FileGetAttrib($sPath), "D") Then
        Return SetError(1, 0, 0)
    EndIf
    If $iSubDir = 1 Then
        $sAttrib &= ' /S'
    EndIf
    If $iSort = 1 Then
        $sAttrib &= ' /O:N'
    EndIf
    Switch $iFlag
        Case 1
            $sAttrib &= ' /A-D'
        Case 2
            $sAttrib &= ' /AD'
        Case Else
            $sAttrib &= ' /A'
    EndSwitch
    $sOut = StringToBinary('0' & @CRLF, 2)
    $sPath = StringRegExpReplace($sPath, '\\+$', '')
    $sFileMask = StringRegExpReplace($sFileMask, '^;+|;+$', '')
    $sFileMask = StringRegExpReplace($sFileMask, ';{2,}', ';')
    $aMasks = StringSplit($sFileMask, ';')
    For $i = 1 To $aMasks[0]
        If StringStripWS($aMasks[$i], 8) = "" Then
            ContinueLoop
        EndIf
        $sFiles &= '"' & $sPath & '\' & $aMasks[$i] & '"'
        If $i < $aMasks[0] Then
            $sFiles &= ';'
        EndIf
    Next
    $hDir = Run(@ComSpec & ' /U /C DIR ' & $sFiles & ' /B' & $sAttrib, @SystemDir, @SW_HIDE, 6)
    While 1
        $sRead = StdoutRead($hDir, False, True)
        If @error Then
            ExitLoop
        EndIf
        If $sRead <> "" Then
            $sOut &= $sRead
        EndIf
        Sleep(10)
    WEnd
    $aOut = StringRegExp(BinaryToString($sOut, 2), '[^\r\n]+', 3)
    If @error Or UBound($aOut) < 2 Then
        Return SetError(2, 0, 0)
    EndIf
    $aOut[0] = UBound($aOut) - 1
    Return $aOut
EndFunc   ;==>_FileSearch

[Rjevsky [?]]

на скрине видно как подросло в какойто момент. Вы дайте поработать часа 3 - увидите сразу рост. Я уже не говорю про сутки. Я на 4-х компьютерах проверял.
Вот 4 часа работы.

Подозреваю, что всё дело в функции _FileSearch. Нарыл вот такую функцию, которая выводит в массив список всех папок и файлов. Осталось переименовать. Помогите плиз.

Код: AutoIt [Выделить]

Func DirListToArray($sPath, $sRootPath=1)
    $sPath = StringRegExpReplace($sPath, '\\+$', '')
    Local $aRetArray[1], $aSubDirsArr, $sFindNextFile, $sCurrentPath

    Local $sFindFirstFile = FileFindFirstFile($sPath & "\*.*")
    If @error = 1 Then Return SetError(1, 0, -1)

    If $sRootPath = 1 Then
        ReDim $aRetArray[2]
        $aRetArray[1] = $sPath
    EndIf

    While 1
        $sFindNextFile = FileFindNextFile($sFindFirstFile)
        If @error = 1 Then ExitLoop

        $sCurrentPath = $sPath & "\" & $sFindNextFile

;~         If not StringInStr(FileGetAttrib($sCurrentPath), "D") Then
            $aRetArray[0] += 1
            ReDim $aRetArray[$aRetArray[0]+1]
            $aRetArray[$aRetArray[0]] = $sCurrentPath

            $aSubDirsArr = DirListToArray($sCurrentPath, 0)

            If IsArray($aSubDirsArr) Then
                For $i = 1 To $aSubDirsArr[0]
                    $aRetArray[0] += 1
                    ReDim $aRetArray[$aRetArray[0]+1]
                    $aRetArray[$aRetArray[0]] = $aSubDirsArr[$i]
                Next
;~             EndIf
        EndIf
    WEnd

    FileClose($sFindFirstFile)

    Return $aRetArray
EndFunc

[madmasles [?]]

Rjevsky  [?]

Нарыл вот такую функцию

Не самая удачная реализация. Посмотрите _FileSearch в сообщении AZJIO.

• GenoTIP
• britanec74
• sl131
• InnI
• eropov
• SummerLeaf
• nowost
• Kaster
• toter
• madmasles
• dwerf
• Nurgazy
• Александр
• scanfail
• vnebe
• Nelsy
• Nazgul666
• Khaibit
• illja
• ---Zak---
• Pavel
• CredoC
• centaur
• chydik
• Yashied
• Yurmurk
• asdf8
• urihome
• Arei
• gora