TurboCAD Forums

The Ultimate Resource for TurboCAD Knowledge

Register
 
Interested in some really terrific mobile apps? Visit www.turboapps.com for details.

Scripcenter David Bell with Win7-64
Read 3030 times
* February 04, 2012, 04:35:03 AM
I had Problems using the Scriptcenter from David Bell with Win7-64.
http://www.bcitool.com/TCDRC/DRScriptCentre.htm
There has to be little change applied.

In palette.html und AutoScriptIndex.vbs
-------------------------------------------------------------
 Sub OpenFile
 dim ObjFSO, InitFSO
 Set ObjFSO = CreateObject("UserAccounts.CommonDialog")
 ObjFSO.Filter = "HTML Pages|*.htm*|VBScripts|*.vbs|All Files|*.*"
 if left(document.location, 8) = "file:///" and right(document.location, 12) = "palette.html" then
 ObjFSO.InitialDir = replace(unescape(mid(document.location, 9, len(document.location) - 20)), "/", "\") & "\VBScripts"
 end if

 InitFSO = ObjFSO.ShowOpen
 document.location = ObjFSO.FileName
 End Sub
-----------------------------------------------------------------
exchange to:
-----------------------------------------------------------------------
 Sub OpenFile
dim ObjFSO
dim InitFSO
Set ObjFSO=CreateObject("MSComDlg.CommonDialog.1") 
const cdlCancel = 32755 
const cdlOFNHideReadOnly = 4 
const cdlOFNAllowMultiselect = 512 
const cdlOFNFileMustExist = 4096 
Const cdlOFNExplorer = 524288 
ObjFSO.Flags = cdlOFNHideReadOnly + cdlOFNAllowMultiselect + cdlOFNExplorer + cdlOFNFileMustExist 
ObjFSO.Filter = "HTML Pages|*.htm*|VBScripts|*.vbs|All Files|*.*" 
objFSO.FilterIndex = 1 
objFSO.InitDir = "" 
objFSO.maxfilesize=8000
'25 'dim ObjFSO, InitFSO
 'Set ObjFSO = CreateObject("UserAccounts.CommonDialog")
 'ObjFSO.Filter = "HTML Pages|*.htm*|VBScripts|*.vbs|All Files|*.*"
 if left(document.location, 8) = "file:///" and right(document.location, 12) = "palette.html" then
 ObjFSO.InitDir = replace(unescape(mid(document.location, 9, len(document.location) - 20)), "/", "\") & "\VBScripts"
 end if

 InitFSO = ObjFSO.ShowOpen
 document.location = ObjFSO.FileName
 End Sub
--------------------------------------------------------------------------
then the "open script file" will work again
but the autoload-function still donīt work.

If someone with more sophisticated skilles please have a look to the
"Sub WritePage" in the "AutoScriptIndex.vbs"
any help is appreciated.
best regards
Bernd

Logged


* February 09, 2012, 09:10:40 AM
#1
Now the scriptcenter works in Win7-64 (for me)  in the way it does with WinXP.
I found the hint:
http://www.itexperience.net/error-80070005-cant-create-object-scripting-filesystemobject-in-windows-script-host/

run the "Eingabeaufforderung" (donīt know the english word , this DOS lookalikewindow) as an administrator
in C:\Windows\System32\
type
regsvr32.exe scrrun.dll

best regards
Bernd


Logged


June 21, 2012, 02:13:08 PM
#2
Now the scriptcenter works in Win7-64 (for me)  in the way it does with WinXP.
I found the hint:
http://www.itexperience.net/error-80070005-cant-create-object-scripting-filesystemobject-in-windows-script-host/

run the "Eingabeaufforderung" (donīt know the english word , this DOS lookalikewindow) as an administrator
in C:\Windows\System32\
type
regsvr32.exe scrrun.dll

best regards
Bernd


Has anyone tried using David Bell's BCITOOL with TC version 19pro having installed the scriptcentre tool? On David Bell's website I can only find mentions up to version 11.

Logged
Alan.
Platinum 21. & Deluxe 21.
TC user since 1995. (version 3)


* July 01, 2012, 02:45:15 PM
#3
Hi Alan
the scriptceneter used to work in the Internet-palett.
In TC19 the Internet-Palett do no longer exist.

Bernd

Logged


July 02, 2012, 12:39:11 AM
#4
Thanks Bernd
Alan.

Logged
Alan.
Platinum 21. & Deluxe 21.
TC user since 1995. (version 3)