Запуск командного файла в заданном каталог с использованием VBA

Когда я перехожу к месту расположения своего командного файла и открываю его, командный файл работает. Мой командный файл выглядит просто:

cd .\data
dir/b/o:n > names.txt

Как видите, я нахожусь в моем текущем каталоге, перехожу в подкаталог «data», копирую все имена и создаю файл с именем names.txt .

Когда я говорю

shell "location of file" 

, он открывает пакетный файл, но по умолчанию используется каталог C: \ my documents , поэтому мои команды не будут работать, потому что он не может найти подкаталог. Я хочу, чтобы это был динамический пакетный файл, и поэтому мне нужно написать что-то в VBA, что откроет пакетный файл в его текущем каталоге или что-то в этом роде.

Как мне это сделать?