Application.FileDialog и bat-файл, некорректная работа

@zenana · Регистрация: 24.02.2015

Author24 — интернет-сервис помощи студентам

Доброе утро! Из VBA вызываю выполнение bat-файла с параметром (параметр - путь к папке, в которой батник должен выполнить некие действия). Все работает. Но.....!!!! Если перед вызовом bat-файла используется Application.FileDialog для выбора файла, то почему то bat-файл перестает обращать внимание на передаваемый параметр и выполняет свои действия в той папке, из которой ранее выбирался файл. Параметр передаю напрямую, не через переменную

Visual Basic

1 2	Set wsh = CreateObject("WScript.Shell") wsh.Run "C:\apuvwin\mail_out.bat C:\apuvwin\mail", 1, True

Что сделать, чтоб действия выполнялись в нужной мне папке?

mobile · 30.05.2016, 08:59

Перед выполнением бат-файла сделайте нужную папку текущей:

Visual Basic

1	shell "cmd.exe cd " & путь

@zenana · 30.05.2016, 09:48 **[ТС]**

mobile, что-то у меня не срабатывает, задаю

Visual Basic

1	Shell "cmd.exe cd C:\apuvwin\mail"

, в окне командной строки получаю "E:\ОМС\ИмпортДТП\май_травмпункт>", где E:\ОМС\ИмпортДТП\май_травмпункт - папка в которой ранее выбирала файл

@amd48 · 30.05.2016, 10:15

ещё ключ /D нужен для смены диска

@zenana · 30.05.2016, 10:16 **[ТС]**

Вообще как-то странно, если после вызова Shell я вручную в открывшемся окне командной строки пытаюсь использовать команду cd, то она не срабатывает

mobile · 30.05.2016, 10:48

Ну попробуйте в самом бат-файле менять текущую папку. Запишите в бат-файле строку изменения текущей папки на путь из переданного параметра

Visual Basic

cd /D %1

Добавлено через 28 минут
Или в VBA перед вызовом бат-файла, поменять текущий диск и папку

Visual Basic

1 2	chdrive "D" chdir "D:\путь"

@zenana · 30.05.2016, 10:55 **[ТС]**

В моем бат-файле есть такая строка, но папка не меняется. Пробовала даже отдельный бат-файл для смены папки запускать, но он тоже не меняет папку. А вот если не пользоваться Application.FileDialog до вызова батников, то усё работает ((

Добавлено через 5 минут

Сообщение от mobile

Или в VBA перед вызовом бат-файла, поменять текущий диск и папку
Visual Basic
1
2
chdrive "D"
chdir "D:\путь"

О, вот это сработало!!!

@amd48 784 / 466 / 79 Регистрация: 18.05.2016 Сообщений: 1,244 Записей в блоге: 4
	30.05.2016, 10:15	4
	ещё ключ /D нужен для смены диска 0

@zenana 224 / 45 / 11 Регистрация: 24.02.2015 Сообщений: 197
	30.05.2016, 10:16 [ТС]	5
	Вообще как-то странно, если после вызова Shell я вручную в открывшемся окне командной строки пытаюсь использовать команду cd, то она не срабатывает 0

@zenana 224 / 45 / 11 Регистрация: 24.02.2015 Сообщений: 197
	30.05.2016, 10:55 [ТС]	7
	В моем бат-файле есть такая строка, но папка не меняется. Пробовала даже отдельный бат-файл для смены папки запускать, но он тоже не меняет папку. А вот если не пользоваться Application.FileDialog до вызова батников, то усё работает (( Добавлено через 5 минут Сообщение от mobile Или в VBA перед вызовом бат-файла, поменять текущий диск и папку Visual Basic 1 2 chdrive "D" chdir "D:\путь" О, вот это сработало!!! 0

Опции темы

Application.FileDialog и bat-файл, некорректная работа

Решение