.acsauto скрипт для сохранения относительной FilePath

Question

У меня есть сценарий .acsauto из системы Avaya CMS, которая сохраняет данные в текстовый файл на указанном месте:

b = cvsSrv.Reports.CreateReport(Info,Rep) 
      If b Then   
      stuff 
      b = Rep.ExportData("C:\Long\File\Path\report.txt", 59, 0, True, True, True) 

Есть ли способ, чтобы сделать этот адрес относительно в расположении сценария .ascauto, чтобы создать отчет, например рядом с ним? Язык сценария должен быть либо VB, либо VBScript - никто не знает о том, что система может мне рассказать, - но я даже не смог заменить прямую ссылку на строку (кажется, что отчет работает, просто он не сохраняется в желаемое место)

strFilePath = "C:\Long\File\Path\report.txt" 
b = Rep.ExportData(strFilePath, 59, 0, True, True, True) 

Answer 1

Решенный с этим изменением кода:

dim fso, strPath 
set fso = CreateObject("Scripting.FileSystemObject") 
B = ... 
    strPath = fso.GetAbsolutePathName("report.txt") 
    b = Rep.ExportData(strPath, 59, 0, True, True, True)