[решено] Создание пустышек

madmasles · Конфигурация компьютера

Pozia,
У меня так получилось:

Код:

$aReturn = _FileSearch("Папка", '*.jpg')

For $i = 1 To UBound($aReturn) - 1
    $hFile = FileOpen($aReturn[$i], 2)
    FileClose($hFile)
Next

Func _FileSearch($sPath, $sFileMask)
    Local $sOut = StringToBinary("0" & @CRLF, 2), $aOut
    Local $hDir = Run(@ComSpec & ' /U/C DIR "' & $sPath & '\' & $sFileMask & '" /S/B/A-D', @SystemDir, @SW_HIDE, 6)

    While 1
        $sOut &= StdoutRead($hDir, False, True)
        If @error Then ExitLoop
    WEnd

    $aOut = StringRegExp(BinaryToString($sOut, 2), "[^\r\n]+", 3)
    If @error Then Return SetError(1)

    $aOut[0] = UBound($aOut) - 1
    Return $aOut
EndFunc   ;==>_FileSearch