We just switched over to the 2020 Sp1 version of Diadem from 2015 and our scripts no longer work. A portion of the script where the errors are coming from is:
5 OPTION EXPLICIT
6 Const VASfile = "Time Frequency Order Analysis.VAS"
7 Const FileDlg = 0 ' 0 = no file dialog;
8 ' 1 = pop up a file dialog first thing
9 ' Load DIAdem Variables and launch Order Analysis dialog
10 IF ProgramRevision < 1110 THEN Call AutoQuit("This application will only work with DIAdem 11.1 and later")
11 AutoDrvUser = AutoActPath
12 IF NOT VSA(VASfile) THEN Call UserVarCompile(CurrentScriptPath & VASfile)
13 InitFileDlg_ = FileDlg
14 ExtFilter_ = "TDMS; TDM; DAT, *.TDMS; *.TDM; *.DAT"
15 IF DataDir_ = "" THEN DataDir_ = AutoActPath
16 DataDrvUser = DataDir_
17 Call Add_TFOA_Icons(Array("NAVMain", "VIEWMain", "ANAMain", "REPMain", "SCRMain"))
18 Call ScriptStart(CurrentScriptPath & "Create Group Time Channels.VBS")
19 Call SudDlgShow("OrderAnalysisDlg", CurrentScriptPath & "Time Frequency Order Analysis.SUD")
The error "Object not a collection" is thrown for lines 15 and 18. We believe it is due to the UserVarCompile command in line 12 being obsolete. Is there a replacement for this command or an easy fix? This script was made several years ago and no one in my group has much if any experience in VBA so any help is much appreciated.
