Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Access Новый топик    Ответить
 Call Shell  [new]
Hexagon
Member

Откуда:
Сообщений: 2
Люди добрые... ПОМОГИТЕ! Я не программист, но жизнь заставила взятся . Не могу сам разобратся почему конструкция на подобие приведенной ниже работает только в режиме построчного выполнения (отладки) - всегда, а при нормальном выполнении программы - лиш изредка? Не формируется как правило второй архив(иногда первый). Пробовал вставлять точки остановки - все работает. Вставлял DoEvents - неработает. Обидно.

PathCopyPDestination = "C:\Tar_pkt\p" + CStr(CDO) + ".dbf"
PathCopyCDestination = "C:\Tar_pkt\c" + CStr(CDO) + ".dbf"
FileCopy PathSave + "\p" + CStr(CDO) + ".dbf", PathCopyPDestination
FileCopy PathSave + "\c" + CStr(CDO) + ".dbf", PathCopyCDestination
PathTar_Kat_zip = PathServ + "pkzip -a c:\Tar_pkt\Tar_kat C:\Tar_pkt\p" + CStr(CDO) + ".dbf"
Call Shell(PathTar_Kat_zip, vbMaximizedFocus)
PathTar_Kat_zip = PathServ + "pkzip -a c:\Tar_pkt\Tar_kat C:\Tar_pkt\c" + CStr(CDO) + ".dbf"
Call Shell(PathTar_Kat_zip, vbMaximizedFocus)
Kill (PathCopyPDestination)
Kill (PathCopyCDestination)
Call Shell("C:\Tar_kat\Disk.bat", vbMaximizedFocus)
5 авг 05, 23:32    [1769064]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Access Ответить