[Creat0R]

amel27,

перед проверкой нужно закрыть ВСЕ проги, открывшие каталог/файлы, а сам скрипт запускать не через файл-менеджеры

Там проблема в том, что небыла указана рабочая папка, поэтому процесс командной строки сам и держал текущую папку, не давая её удалить. Мой последний пример работает даже если из самой папки запускать .

[*OM*]

Creat0R этот вариант выполнил задачу как и хотелось. Выражаю вам своё Домо аригато годзаимащта !

Попутно возник - Вопрос: Как сделать проверку пуст каталог или нет ?

Наличие файла я проверяю через FileExists() , а для проверки наличия каталогов не нашел подобного.

P.S. А как это вы код подсвечиваете в своих ответах ? Не иначе мощное " колдунство "

[Creat0R]

*OM*,

Как сделать проверку пуст каталог или нет ? »

Код:

;Переменной $IsEmpty присваивается значение возвращаемое ф-ей _DirIsEmpty()
$IsEmpty = _DirIsEmpty("c:\Temp")

;Отображение содержимого переменной $IsEmpty и уровень ошибочности
MsgBox(64, "Results", "$IsEmpty = " & $IsEmpty & @LF & "@error = " & @error)

;Функция проверяет если каталог по заданному пути не содержит файлы/папки..
;Если папка не существует (по пути из переменной $sPath), то @error = 1 и возвращается 0
;Если папка существует, и она *не* пуста, то возвращается 0
;Если папка существует, и она *пуста*, то возвращается 1
Func _DirIsEmpty($sPath)

    ;Если атрибут папки не содержит D (от слова Dir), то устанавливаем уровень ошибочности и возвращаем 0
    If Not StringInStr(FileGetAttrib($sPath), "D") Then Return SetError(1, 0, 0)

    ;Инициализация поиска *любого* файла в указанном пути
    Local $hSearch = FileFindFirstFile($sPath & "\*")

    ;"Запоминаем" уровень ошибочности
    Local $iRet = @error

    ;Закрытие хендла (управляющего) после инициализации поиска (обязательно)
    FileClose($hSearch)

    ;Возвращаем уровень ошибочности ($iRet),
    ;FileFindFirstFile() возвращает @error = 1 если папка пуста, это и есть индикация того, что она пуста :)
    Return $iRet
EndFunc

как это вы код подсвечиваете в своих ответах ? »

Есть утилита Au3ToPost.

[DENoszone]

мне не кто не поможет=(

[Maza Faka]

*OM*
Аналогично с помощью WinAPI:

Код:

$IsEmpty = _DirIsEmpty("c:\Test")

MsgBox(0, "Folder empty", $IsEmpty & @LF & _
       "Error = " & @error)

Func _DirIsEmpty($sPath)
    If Not FileExists($sPath) Then Return SetError(1, 0, 0)

    If Not StringInStr(FileGetAttrib($sPath), "D") Then Return SetError(2, 0, 0)

    $aRet = DllCall("shlwapi.dll", "int", "PathIsDirectoryEmpty", "str", $sPath)

    If $aRet[0] = True Then
        Return SetError(0, 0, 1)
    Else
        Return SetError(3, 0, 0)
    EndIf
EndFunc   ;==>_DirIsEmpty

Возвращает 1 если папка пуста.

[amel27]

DENoszone
думаю нет - прога слишком смахивает на генератор спама... подсказка: реализация будет через использование ф-ций StringRegExp* и _IE*

[TERMINAL]

Вопрс такой интересный....Возможно ли с помощью скрипта запмсать диск (файл для записи находится на С:\test.txt)?

[SvetlanaK]

Здравствуйте! понимаю, что глупо вытаскивать данные из чужой программиой посылом сендов и принудительными кликами мышкой, но выхода другого нет... данные потом успешно обрабатываются с пом ExcelCOM_UDF.au3).
Решила вот воспользоваться ControlClick,ControlFocus и ControlSend. При помощи автоит.инфо можно вытянуть всю информацию об окнах. Вроде это даже как более правильно и работает в разы быстрее! (это нужно, потому что в формах программы могут добавляться новые кнопки и перемещаться те,которые надо кликать). Но вот что заметила - работают эти контролы через раз! то запускаются, то нет, скрипт стоит, ожидаючи посыла в текстовое окно нужного текста, нажатия кнопки...и непонятно - почему он стоит? Прога та написана на делфи, окна определяются, и все его составляющие тоже. В чем же дело? Может какие то опции надо прописать? В хелпе ничего не нашла. Кто сталкивался, помогите пожалуйста! Новую версию юзаю - тот же глюк(
Вот все что использутеся....
введение логина
ControlFocus("Подключение","","[CLASS:TLogInAppForm]")
ControlSend("Подключение","","[CLASS:TLogInAppForm; INSTANCE:1]","Иванов")
ввод дат в окошко с датами
ControlFocus("Фильтр","","[CLASS:TDBDateTimeEditEh;INSTANCE:6]")
ControlSend("Фильтр","","[CLASS:TDBDateTimeEditEh;INSTANCE:6]",$day1 & $mes1 & $god1)
клик мышкой по кнопке
ControlFocus("Фильтр","","[CLASS:TBitBtn; INSTANCE:4]")
ControlClick("Фильтр","Очистить фильтр","[CLASS:TButton;INSTANCE:1]")

[prodist]

Есть autorun-файл (install.exe). После нажатия Установить открывается setup-файл (setup.exe).
Надо, чтобы после завершения работы setup-файла открылся другой файл. Но только при установке, а если запускать удаление через setup, то ничего открываться не должно. И так же, если при открытии ламер)) "нажал на закрытие")

[Smarton]

Здрасте! У меня два вопроса: Как в Autoit осуществить попиксельное сравнение изображений (в браузере), и как отслеживать события flash приложения (тоже в браузере). Буду оч благодарен если поможите!