1
Automation Interface, Add-Ins and Tools / VBSCRIPT - Select folder/file to save to
« on: September 13, 2022, 06:28:31 pm »
I use this function to open a file, but now I want to adapt it to select a file or folder to save to. For that I need to change the script but I'm not familiar with those activeX stuf.
Code: [Select]
function selectFilePath()
dim wShell, oExec, sFileSelected
set wShell=CreateObject("WScript.Shell")
set oExec=wShell.Exec("mshta.exe ""about:[b]<input type=file id=FILE><script>FILE.click();new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).WriteLine(FILE.value);close();resizeTo(0,0);</script>[/b]""")
sFileSelected = oExec.StdOut.ReadLine
selectFilePath = sFileSelected
end function