How to pass variable content to VBscript from indesign javascript

[Karthik SG]

Actually i want to pass folderpath variable from Javascript to vbscript:  getFolder () , how to pass it

var folderPath = "D:/ excelfolder/Exportfiles";   //need to pass this folderpath into below vbscript
//vb script starts here:
 var vbscript = '';
vbscript += 'Set objFSO = CreateObject("Scripting.FileSystemObject")\r';
vbscript += 'Set objFolder = objFSO.GetFolder(folderpath)\r';    // here need to pass the folderpath content into vbscript
vbscript += 'Set objExcel = CreateObject("Excel.Application")\r';
vbscript += 'For Each objFile In objFolder.Files\r';
vbscript += '    If objFSO.GetExtensionName(objFile.Name) = "html" Then\r';
vbscript += '        Set objWorkbook = objExcel.Workbooks.Open(objFile.Path)\r';
vbscript += 'newFilename = Replace(objFile.Path, ".html", "")\r';
vbscript += 'objWorkbook.SaveAs newFilename & "_converted.xlsx", 51 \r';
vbscript += '    End If\r';
vbscript += 'Next\r';
vbscript += 'objExcel.Quit\r';
 app.doScript(vbscript, ScriptLanguage.visualBasic);
// vb script ends here.
alert("Process completed");
exit();

[Kasyan Servetsky · Accepted solution]

See the example here (function for Windows):

And finally, run the VB Script:

[Karthik SG]

var folderPath = "D:/excelfolder/Exportfiles";   //need to pass this folderpath into below vbscript
//vb script starts here:
 var vbscript = '';
vbscript += 'Set objFSO = CreateObject("Scripting.FileSystemObject")\r';
vbscript += 'Set objFolder = objFSO.GetFolder('"folderpath"')\r';    // here need to pass the folderpath content into vbscript
vbscript += 'Set objExcel = CreateObject("Excel.Application")\r';
vbscript += 'For Each objFile In objFolder.Files\r';
vbscript += '    If objFSO.GetExtensionName(objFile.Name) = "html" Then\r';
vbscript += '        Set objWorkbook = objExcel.Workbooks.Open(objFile.Path)\r';
vbscript += 'newFilename = Replace(objFile.Path, ".html", "")\r';
vbscript += 'objWorkbook.SaveAs newFilename & "_converted.xlsx", 51 \r';
vbscript += '    End If\r';
vbscript += 'Next\r';
vbscript += 'objExcel.Quit\r';
 app.doScript(vbscript, ScriptLanguage.visualBasic);
// vb script ends here.
alert("Process completed");
exit();

[琥珀 猫太郎]

Sending parameters to DoScript in Using the DoScript Method in Scripting Features in the VBScript Guide of the InDesign Scripting SDK
And Returning values ​​from DoScript are listed, so please read them.