The following code when placed within code tags looks properly when viewed in PREVIEW but once the actual post is made it then interprets the code and creates a button instead of keeping the actual code as pure text in the CODE TAG box on older versions of UBB. But the current version here seems to "almost" treat it correctly.
It is still word wrapping the code box instead of creating a scrolling bar. Is this a user option to disable or how can I prevent the word wrapping?
Function SelectFile( )
Dim $objSHELLexec, $CMD, $objSHELL
$SelectFile=""
$CMD='mshta.exe "about:<input type=file id=FILE><script>FILE.click();new ActiveXObject("Scripting.FileSystemObject").GetStandardStream(1).WriteLine(FILE.value);close();resizeTo(0,0);</script>" '
$objSHELL=CreateObject("WScript.Shell")
$objSHELLexec=$objSHELL.Exec($CMD)
$SelectFile=$objSHELLexec.StdOut.ReadLine( )
EndFunction
