spooll,
Значит пробуй так:
Код:

Opt("RunErrorsFatal", 0)
Opt("WinTitleMatchMode", -2)
Opt("WinTextMatchMode", 2)
WinWait("Выбор программной группы", "Папки с Программами:")
...
Текст лучше подбирать полный.
Если программа 1c небольшая, залей куда нибудь (или дай линк на неё), попробую потестить у себя.
Maza Faka,
Цитата:
Почему функция возвращает переменную $count равную нулю, хотя файлы были найдены и удалены? Сначала я подумал, что это происходит если существуют подкаталоги, так, как при нахождении каталога функция вызывает саму себя и соответсвенно снова происходит декларирование переменной: Local $count = 0, но удалив подкаталоги, я обнаружил, что проблема не исчезла, функция всё так же возвращает переменную $count равной нулю.
|
Именно потому, что в начале функции обнуляется переменная $count...
На мой взгляд тут есть два варианта решения -
1) Проверять не обьявлена ли уже переменная (
If Not IsDeclared($count) Then Local $count = 0),
2) (более правильный) - добавлять к $count возвращённое значение от повторного вызова функции DeleteFile()...
Код:

Dim $delFile[3] = [2, "soccer5.bmp", "soccer9.bmp"], $path[3] = [2, "c:\test", "c:\1"]
For $p = 1 To $path[0]
For $f = 1 To $delFile[0]
$Del = DeleteFile($path[$p], $delFile[$f])
Next
Next
MsgBox(64, "Result", $Del & " files deleted")
Func DeleteFile($path, $delFile)
Local $count = 0
$search = FileFindFirstFile($path & "\*.*")
While 1
$file = FileFindNextFile($search)
If @error Then ExitLoop
$Full_file = $path & "\" & $file
If FileGetAttrib($Full_file) = "D" Then
$count += DeleteFile($Full_file, $delFile)
ElseIf $file = $delFile Then
$count += FileDelete($Full_file)
EndIf
WEnd
FileClose($search)
Return $count
EndFunc