TurboCAD Forums

The Ultimate Resource for TurboCAD Knowledge

Register
 
The purpose of these forums is to discuss TurboCAD.  Please keep the discussion of other products to compatibility issues or how the other software’s can be used with TurboCAD.


Scripcenter David Bell with Win7-64
Read 3691 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)