Отправляет email-рассылки с помощью сервиса Sendsay

[TC] скрипт на запуск сп омощью.

Здравствуйте, industry!

от чтото не хочет работать этот скрипт
Script OpenWithApp (string app1)
Var
object oShellWin,
object oItems,
Int i,
String sItem

let oShellWin = GetShellWin ()
let oItems = oShellWin.SelectedItems
let i=0
While i < oItems.Count
Let sItem = formatString(BlankDelimLst , sItem, oItems(i).Name)
Let i = i + 1
EndWhile
if StringIsBlank (sItem ) then
Let sItem = formatString(BlankDelimLst , sItem, oShellWin.FocusedItem.Name)
endIf
CreateObject("Shell.Application").ShellExecute(app, sItem, stringChopRight(oShellWin.FocusedItem.Path,
StringLength(oShellWin.FocusedItem.Name)))
EndScriptВ
пишет вот такую ошибку
oring previous definition of OpenWithApp()
ОКп
рошу помогите как это победить? заранее спасибо откликнувшимся!

Ответить   Sat, 22 Dec 2012 21:46:39 +0300 (#2638085)

 

Ответы:

Здравствуйте, Алексей.

Вы писали 22 декабря 2012 г., 22:46:39:

от куда вы взяли этот текст скрипта?
почему у вас
в скобках идёт после app "1", причём тут еденичка?
дайте исходник откуда вы это брали.

Ответить   Евгений Sun, 23 Dec 2012 18:16:36 +0400 (#2638160)