Запустить приложение

[Gawwws]

Я Запускаю приложене с помощью Call Shell ("Путь"), но оно построено таким образом, что при запуске в одном из ComboBox'ов формируется список файлов из папки в которой находится само приложение. Так вот этот список пуст!!! И я заметил, что приложение обращается не в папку, в которой находится само, а в папку "мои документы". Есть другой способ запуска?

[IgorGO]

если приложение нашло способ как в КомбоБокс выложить список файлов. из чего я делаю вывод что интерфейс между ним (приложением) и экселем установлен.
почему бы перед запуском приложения не выложить "Путь" в какую-нибудь ячейку (или в глобальную переменную) и не передать этот самый путь таким образом приложению?

[Gawwws]

Сохранить путь я могу, но приложение не имеет связи с Excel, да и как я могу вопхнуть этот путь в него? У меня нет исходника к нему.

Через командную строку запускается коректно! может можно обратиться к ней?

[IgorGO]

можно после запуска командной строки запустить в нее SendKeys

[Gawwws]

А как запустить, а потом выполнить командную строку?!!

Ecли я создаю bat-файл то в выполнении dos пишет, например:

C:\1>C:\1\2.exe

Первый путь - это где находится bat - файл, а второй - что запустить

если пути совпадают, то файлы есть!

Есть что-то с такой формой запуска?

[EducatedFool]

Попробуйте такой код:

Private Sub Form_Load()
   MyPath = "c:\"
   Set WshShell = CreateObject("WScript.Shell")
   WshShell.CurrentDirectory = MyPath
   'Debug.Print WshShell.CurrentDirectory
   Call Shell("cmd.exe")
End Sub

Тогда сначала изменяется текущий каталог, и консоль отображается с текущим каталогом MyPath

По умолчанию, если просто использовать код Call Shell("cmd.exe"),
начальная папка изменяется в соответствии с установками приложения, запускающего команду Shell("cmd.exe") - для VB это будет одна папка, для VBA - другая.


В Вашем случае будет примерно так:

Sub test()
    MyPath = "C:\1\"
    Set WshShell = CreateObject("WScript.Shell"): WshShell.CurrentDirectory = MyPath
    Call Shell(MyPath & "2.exe")
End Sub

Папка, указанная в переменной MyPath, должна существовать, иначе возникает ошибка.