Script Wanted: Просмотр папки и действия.

[Scalder]

1) Нужно повесить кнопку(красного цвета пока можно просто с текстом)
2) Каждые 3 минуты проверять содержимое папки
3) если в папке есть что-нить то кнопку сменить на (зелёную или на другой текст)

т.к. в pp я ничего кроме запуска setup не умею прошу за ламерство Ergo меня не банить <!--emo&;)--><!--endemo-->

[Sane]

Лёгко. <!--emo&:)--><!--endemo-->

Создаешь кнопку. Без иконки. Выставляешь на нее own background в красный. Дальше, создаешь в папке scripts файлик mymonitor.txt. В нем пишешь

for()
wait 180
if (file.validpath("нужный тебе путь*.*")) do
Format item item 1 list "Bar" colorback 65280
else
format item item 1 list "Bar" colorback 255
endif
endfor

Понятное дело, прописываешь свое имя бара и свой номер кнопки. Вешаешь этот скрипт на sturtup в sheduler - и будет тебе счастье. Нужен так же установленный плагин file, но он идет в стандартной поставке.

[Ergo]

Вот еще один вариант. На мой взгляд самый простой:

Код: выделить все

; Windows PowerPro Script by Ergo
; Написано специально для Scalder-а :)
; Укажи папку, которую ты хочешь мониторить

handle = "C:Scalder"



number = file.allfiles (handle)

if (number > 0) Do

   Quit("Пришли файлы")   

Else

   Quit("Файлов нет")

Endif

Скрипт сохраняешь под каким нибудь именем, например scalder.powerpro в папке со скриптами.

А в качестве названия кнопки указываешь
*Info expr(.scalder)

[Scalder]

2Ergo
2Sane
Огроное спасибо :Ж)))
Не думал что проблема решаеться так просто <!--emo&:)--><!--endemo-->))
теперь есть тема на работе устанавливать pp <!--emo&:)--><!--endemo-->
сегодня вечером дома попробую повожусь <!--emo&:)--><!--endemo-->

[Ergo]

2Scalder
<!--QuoteBegin--></span><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>QUOTE </td></tr><tr><td id='QUOTE'><!--QuoteEBegin-->теперь есть тема на работе устанавливать pp  
сегодня вечером дома попробую повожусь <!--QuoteEnd--></td></tr></table><span class='postcolor'><!--QuoteEEnd-->
Еще один сейчас на PowerPro подсядет <!--emo&:)--><!--endemo-->
ps. Как вариант к твоей задаче можно также вывести:
1. Количество файлов, имена файлов, размер папки... да мало еще чего можно придумать <!--emo&:)--><!--endemo--> Можно сделать так, что как только у тебя в этой папке что-нибудь появится будет играть звук и появится сообщение. Я уже молчу о том, что с файлами можно автоматические что-нибудь сделать. Например отправить по почте, запаковать и убить <!--emo&:)--><!--endemo-->

[Scalder]

2Ergo
<!--QuoteBegin--></span><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>QUOTE </td></tr><tr><td id='QUOTE'><!--QuoteEBegin-->Еще один сейчас на PowerPro подсядет <!--QuoteEnd--></td></tr></table><span class='postcolor'><!--QuoteEEnd-->
уже <!--emo&:)--><!--endemo--> А я так долго держался <!--emo&:)--><!--endemo-->

p.s. тему можно закрывать.

[Scalder]

2Ergo
Делаю всё как ты и сказал
копирую твой скрипт и сохраняю в файл PowerProscriptsfolderscalder.powerpro
создаю кнопку и у неё в названии ставлю то что ты сказал и....
у меня выводит "Cannot access script file scalder" может где-то надо прописать ещё путь к нему?

[Sane]

<!--emo&:)--><!--endemo-->
PowerProscriptsscalder.powerpro

Ложить по этому пути. <!--emo&:)--><!--endemo-->

[Scalder]

2Ergo
2Sane
у-у-у-у-у!!!! просто круто такое ощущение я испытывал последний раз когда написал прогу на асме года 4 назад <!--emo&:)--><!--endemo-->
просто улёт <!--emo&:)--><!--endemo--> работает на ура!

[Scalder]

2Ergo
А можно прям из твоего скрипта как-то повлиять на цвет кнопки в баре?

[Ergo]

2Scalder

А можно прям из твоего скрипта как-то повлиять на цвет кнопки в баре?

Нет. Хотя это идея, послать вишь автору на счет возможности использования в названии кнопок тегов например <b></b>

[Scalder]

2Ergo
а что нить типа
Format item item 1 list "Bar" colorback 65280 - нет?
если нет.. то это действительно надо-бы исправить <!--emo&:)--><!--endemo-->))

[Saver]

<!--QuoteBegin--></span><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>QUOTE </td></tr><tr><td id='QUOTE'><!--QuoteEBegin-->а что нить типа  
Format item item 1 list "Bar" colorback 65280 - нет?  
если нет.. то это действительно надо-бы исправить )) <!--QuoteEnd--></td></tr></table><span class='postcolor'><!--QuoteEEnd-->
Мне идея очень понравилась я ее использовал и чуть-чуть доработал. Если в скрипт Ergo добавить кусочек скрипта Sane и в своиствах кнопки поставить галку "Own background"? выбрать какой-нибудь цвет (любой он все равно не виден). То получается то что просили. При пустом каталоге черный цвет в противном случае зеленый!

; Windows PowerPro Script by Ergo+Sane
; Укажи папку, которую ты хочешь мониторить
handle = "C:Temp"

number = file.allfiles (handle)
if (number > 0) Do
Format Item item 5 list "Bar" colorback 3014445
Quit("Пришли файлы")
Else
Format Item item 5 list "Bar" colorback 0
Quit("Файлов нет")
Endif