Код

'	GComp-run.vbs
'	(© trdm)	2005 Трошин Д. В.
'	Создаем bat-файл запускающий GComp в нашей директории
'	Для работы с GComp.

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
	Scripts("extforms").SetFolders()		'<< Устанавливаем папки по умолчанию в скрипте "extforms.vbs"
	Scripts("extforms").DeCompileExtForms()	'<< Декомпилируем ExtForms in IBDir\src\ExtFormsSrc\
End Sub
 

Код

' (c) А.С. Орефков
' Скрипт позволяет разобрать/собрать папку с внешними отчетами
' со всеми вложенными папками.
' Работает как из-под WSH, так и из-под OpenConf
'
'Версия: $Revision: 1.1.1.1 $
'

Set fso = CreateObject("Scripting.FileSystemObject")
Set Shell = CreateObject("WScript.Shell")
InOpenConf = True
' НАЧАЛО ИЗМЕНЕНИЙ
Dim glFoldersIsSet : glFoldersIsSet = false ' типа папки приемника получателя установлены
Dim glFolderExtForms : glFolderExtForms = "" ' типа папки приемника получателя установлены
Dim glFolderExtFormsSrc : glFolderExtFormsSrc = "" ' типа папки приемника получателя установлены

Sub SetFolders()
	' Установим папки
	glFolderExtForms  = IBDir & "ExtForms"
	glFolderExtFormsSrc = IBDir & "Src\" & "ExtFormsSrc"
	glFoldersIsSet = true
End Sub

Sub DeCompileExtForms()
    On Error Resume Next

	if NOT glFoldersIsSet Then
	    sName = InputBox("Укажите каталог-источник", "Распаковка каталога", IBDir & "ExtForms")
	Else
		sName = glFolderExtForms
	End If
    If Len(sName) = 0 Then ExitSub
    Set SourceDir = fso.GetFolder(sName)
    If Err <> 0 Then
	  MsgBox "Каталог-источник не существует", , "ExtForms"
	  Exit Sub
    End If
	' Поправил немного перенаправил из папки IBDir+"ExtFormsSrc" в папку IBDir+"Src\ExtFormsSrc"
	if NOT glFoldersIsSet Then
	    dName = InputBox("Укажите каталог-приемник", "Распаковка каталога", IBDir & "Src\" & "ExtFormsSrc")
	Else
		dName = glFolderExtFormsSrc
	End If
    
    If Len(dName) = 0 Then Exit Sub
    Set DestinationDir = fso.GetFolder(dName)
    If Err <> 0 Then
	  err.Clear()
	  Set DestinationDir = fso.CreateFolder(dName)
    End If
    If Err <> 0 Then
	  MsgBox "Каталог-приемник не существует", , "ExtForms"
	  Exit Sub
    End If
    On Error GoTo 0
    DeCompileFolder SourceDir, DestinationDir
    MsgBox "Done", , "ExtForms"
    Status ""
End Sub
' ОКОНЧАНИЕ ИЗМЕНЕНИЙ
....