Здравствуйте.

Есть макрос, который просто копирует файл из одной папки в другую.
Он состоит из 3-х строк.
1) УстановитьСообщения – Нет
2) Запуск приложения – тут указан модуль который копирует файлы.
3) Выход
Если запустить макрос внутри Access, то все происходит нормально. Происходит копирование и Access закрывается. Если создать ярлык на этот макрос на рабочем столе и нажать на него, то происходит копирование и в конце вылетает ошибка «Ошибка при направлении команды приложению.» Причем само копирование происходит успешно.

Ниже модуль копирования:

Option Compare Database
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)


Function stopiIneprinatie()

FileCopy "\\ОТЧЕТЫ\Стоп-Отгрузки\СТОПЫ.xls", "D:\Отчеты\Сегодня\" & Date & " Стопотгрузки.xls"
FileCopy "D:\Отчеты\Сегодня\" & Date & " Стопотгрузки.xls", "\\Аналитическая отчетность\Стопотгрузки\" & Date & " Стопотгрузки.xls"
On Error GoTo trycopy
b = killer_old("\\Аналитическая отчетность\Стопотгрузки\", 30)

Exit Function


trycopy:
Debug.Print Err.Description
DoEvents
Resume

End Function


Function killer_old(pt As String, per As Integer)
f1 = Dir(pt & "*.*")
Do Until f1 = ""
If IsDate(Left(f1, 10)) = True Then
If CDate(Left(f1, 10)) < (Date - per) Then
Kill pt & f1
End If
End If
f1 = Dir
Loop
End Function

Этот модуль брал с форума. Он нормально работает в другом месте. Не понятно из-за чего всплывает ошибка, так как макрос успешно выполняется.

http://www.sql.ru/forum/1225499/oshibka-pri-napravlenii-komandy-prilozheniu