I wrote a VBScript for burning an ISO from a number of files for mounting "local files" in a Virtual Machine.
Perhaps there is someone who might need this, too. I'm absolutely new to VBS, but the result works fine for me.
Just link the vbs-Script to your "Windows SendTo folder", set the correct exe in variable cdbxpcmd and it should work.
Dim openCMD, tomp, home, defisoname, isoname, verz, WSShell, WSShellProcess, UserName, iCount, currentArg, outputarray, xvar, cdbxpcmd
cdbxpcmd = "C:\Portables\CDBurnerXP-220.127.116.116\cdbxpcmd.exe"
Set openCMD = CreateObject("WScript.Shell")
Set WSShell = CreateObject("WScript.Shell")
Set WSShellProcess = WSShell.Environment("PROCESS")
UserName = WSShellProcess("USERPROFILE")
home = UserName & "\Desktop\"
defisoname = Year(Date) & Right("0" & Month(Date),2) & Right("0" & Day(Date),2)
isoname = 0
isoname=InputBox("Iso will be created at: " & vbCRLF & vbCRLF & home & vbCRLF & vbCRLF & "","Enter a file name or accept",defisoname )
If isoname = "" then
defisoname = "" & isoname & ""
iCount = wScript.Arguments.Count
if not iCount = 0 then
for currentArg=0 to iCount-1
outputArray = split(wScript.Arguments(currentArg),"\")
for each xvar in outputArray
verz = "" & xvar & ""
tomp=tomp & " -folder[" & chr(34) & chr(92) & verz & chr(34) & "]:" & chr(34) & wScript.Arguments(currentArg) & chr(34)
openCMD.Run "" & cdbxpcmd & " --burn-data" & tomp & " -iso:" & chr(34) & home & defisoname & chr(34) & ".iso"
I'm sure you could do this better, so just leave a comment.
- mark the files/folders you want to have in the iso
- right (mouse) click on one of the files/folders
- navigate to "SendTo" in the contextmenu (or wherever you have the script) or drag/drop the files/folders on the script-file
- enter a name for the iso (without extension "iso") or use the default (YYYYMMDD) and click the OK-Button (CANCEL now cancels the process - before it continued with the defaultname.)
- the iso-file should now be found on your user's desktop