Код

Dim WshShell
Dim BatFileName
SRCPath = IBDir & "SRC\"


BatFileName = IBDir + "zz_gcomp.bat"
Set WshShell = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set WScript = CreateObject("WScript.Shell")

' Создаем bat-файл запускающий GComp в нашей директории и запускаем его
Sub RunGComp()
	if Not fso.FileExists(BatFileName) Then
		Set bf = fso.CreateTextFile(BatFileName)
		bf.WriteLine("rem разбираем md в папку SRC")
		bf.WriteLine("gcomp --version")
		bf.WriteLine("gcomp -d -vv")
		'bf.WriteLine("pause")
		bf.Close
	End If
	WshShell.CurrentDirectory = IBDir
	WshShell.Run """"+BatFileName+"""", 1,True
End Sub