Skip to content

Commit bd4ab06

Browse files
josef-poetzljosef-poetzl
committed
v 1.0.0
1 parent 10297c4 commit bd4ab06

13 files changed

+672
-0
lines changed

‎ExampleRibbonXML/ACLibAddInStarterRibbon.xml

+89
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,89 @@
1+
<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui">
2+
<ribbon startFromScratch="false" ><tabs><tab id="T7b54dc74-81cb-455e-93a6-3763fcf0b083" label="Tools">
3+
<group id="Gd0000922-80a5-431e-b284-51582e0a0875" label="Access Code Library">
4+
<button id="Ccb4ceb82-67c2-4ab8-8386-bcdd4940f356" label="Import-Assistent" size="large"
5+
imageMso="SourceControlCreateDatabaseFromProject" onAction="ACLibRibbonCallBack_AddInItem_OnAction" screentip="Startet den Assisten für den Import" supertip="Assistent zum Importieren von Dateien aus der Code-Bibliothek"
6+
tag="ACLibImportWIzard.StartApplication" />
7+
<button id="Cabb00539-5521-4ae6-839c-d38ce0030198" label="Alles aktualisieren" size="normal"
8+
imageMso="SourceControlRefreshStatus" onAction="ACLibRibbonCallBack_AddInItem_OnAction" screentip="Assistent zum Importieren von Dateien aus der Code-Bibliothek"
9+
tag="ACLibImportWizard.RefreshAllCodeLibAccessObjects" />
10+
<button id="C22a78b03-6ad5-4eab-afaa-adec4e4833a0" label="Alles exportieren" size="normal"
11+
imageMso="SourceControlCheckOut" onAction="ACLibRibbonCallBack_AddInItem_OnAction" screentip="Exportiert alle Module, Formulare und Bericht mit CodeLib-Tag"
12+
tag="ACLibImportWizard.ExportAllCodeLibElements" />
13+
<button id="C16a5fae2-fb72-4551-b190-823f478d8716" label="Alle Module exportieren" size="normal"
14+
imageMso="SourceControlCheckOut" onAction="ACLibRibbonCallBack_AddInItem_OnAction" screentip="Exportiert alle Module"
15+
tag="ACLibImportWizard.ExportAllCodeLibModules" />
16+
<button id="C98b8fb72-d518-4108-97be-b36489e1609b" label="FilterForm-Wizard" size="normal"
17+
imageMso="AccessFormWizard" onAction="ACLibRibbonCallBack_AddInItem_OnAction" screentip="Startet den ACLib-FilterForm-Wizard"
18+
tag="ACLibFilterFormWizard.StartApplication" />
19+
<button id="EB781617-6AD9-4A9C-BA71-42C9A4A9313D" label="AccUnit-Loader" size="normal"
20+
imageMso="VisualBasic" onAction="ACLibRibbonCallBack_AddInItem_OnAction" screentip="Startet den ACLib-AccUnit-Loader"
21+
tag="AccUnitLoader.StartApplication" />
22+
<dialogBoxLauncher>
23+
<button id="C7ee972a3-25e1-47e2-bd60-70bb6477d16a" label="Gruppe anpassen"
24+
tag="d0000922-80a5-431e-b284-51582e0a0875" onAction="ACLibRibbonCallBack_dialogBoxLauncher_OnAction" />
25+
</dialogBoxLauncher>
26+
</group>
27+
<group id="G0b0ae660-7dba-4ef9-aa55-f9429e63fcde" label="Datenverbindung">
28+
<button id="C3aee268f-13ca-4e0d-b205-a8bf67752701"
29+
label="DBMS Connection Wizard" size="large" imageMso="FileManageMenu" onAction="ACLibRibbonCallBack_AddInItem_OnAction"
30+
screentip="Startet das Hauptfenster des DBMS-Connection-Wizard"
31+
supertip="Access-Add-In zum Verwalten von Verbindungsparametern und Code-Übertrag für den Verbindungsaufbau mittels Hilfsklassen."
32+
tag="DbmsConnectionWizard.StartDbmsConnectionWizard"
33+
/>
34+
<button id="Cf912f9e2-3c54-47ea-8329-b2889f5564c6" label="Tabellen verknüpfen" size="normal"
35+
imageMso="DatabaseLinedTableManager" onAction="ACLibRibbonCallBack_AddInItem_OnAction" screentip="Startet den Assisten zum verknüpfen von Tabellen"
36+
tag="DbmsConnectionWizard.StartDbmsConnectionLinkTableWizard"
37+
/>
38+
<button id="C7527d8f8-34df-4c1a-a371-4487725e5254" label="Pass-Through-Abfrage" size="normal"
39+
imageMso="ViewsAdpDiagramSqlView" onAction="ACLibRibbonCallBack_AddInItem_OnAction" screentip="Öffnet eine Maske zum Testen von SQL-Anweisungen und Erstellen von Pass-Through-Abfragen"
40+
tag="DbmsConnectionWizard.CreatePassThroughQuery" />
41+
</group>
42+
<group id="G72e434ec-3280-4c74-a1d2-b93ce776c0ec" label="Analyse u. Optimierung">
43+
<button id="Cd5896e97-ec0c-4b61-8ed8-b42adf4c563d" label="Depency Checker" size="large"
44+
imageMso="TraceDependents" onAction="ACLibRibbonCallBack_AddInItem_OnAction" screentip="Abhängigkeiten ermitteln" supertip="Abhängigkeiten ermitteln"
45+
tag="ACCESS_DependencyChecker.startAddIn" />
46+
<button id="C1b29cec1-9a6e-4442-ab93-d8fb642024d4" label="TM-AbhängigeObjekte" size="normal"
47+
imageMso="ZoomToSelection" onAction="ACLibRibbonCallBack_AddInItem_OnAction"
48+
tag="TM-AbhängigeObjekte.TM_AbhängigeObjekte" />
49+
<button id="Cb645e695-1afe-4696-9dfd-bf0f603c7149" label="ACLib StructReader" size="normal"
50+
imageMso="WindowsArrangeIcons" onAction="ACLibRibbonCallBack_AddInItem_OnAction"
51+
tag="ACLibStructReader.StartWizard" />
52+
<button id="C508f83ee-126a-4f84-91f3-5c15a7438e97" label="TM-FixObjectNames" size="normal"
53+
imageMso="WordArtEditTextClassic" onAction="ACLibRibbonCallBack_AddInItem_OnAction"
54+
tag="TM-FixObjectNames.TM_FixObjectNames" />
55+
</group>
56+
<group id="G29f3b7f3-b692-4939-8033-8b455b727a9b" label="V-Tools">
57+
<button id="Ce89d10d8-039b-48ef-a4c0-391fa048c4a5" label="Container-Objekte" size="normal"
58+
imageMso="Connections" onAction="ACLibRibbonCallBack_AddInItem_OnAction"
59+
tag="V-Tools.m_OpenTool(8)" />
60+
<button id="C1ee2bde0-5dd7-470a-bffe-b1db3ab51f82" label="Formular-Vorlagen" size="normal"
61+
imageMso="CreateFormInDesignView" onAction="ACLibRibbonCallBack_AddInItem_OnAction"
62+
tag="V-Tools.m_OpenTool(6)" />
63+
<button id="C0e78ffa2-ec7f-497d-a394-029de837f51d" label="SQL verändern" size="normal"
64+
imageMso="ViewsAdpDiagramSqlView" onAction="ACLibRibbonCallBack_AddInItem_OnAction"
65+
tag="V-Tools.m_OpenTool(3)" />
66+
<button id="Cacbcb9ba-f75b-4fe3-a610-3547e3734495" label="Systemfarben" size="normal"
67+
imageMso="ControlLineColorPicker" onAction="ACLibRibbonCallBack_AddInItem_OnAction"
68+
tag="V-Tools.m_OpenTool(1)" />
69+
<button id="C8a481eba-9c3d-46a0-811c-1cda6a8a1c07" label="Suchen" size="normal"
70+
imageMso="FilePrintPreview" onAction="ACLibRibbonCallBack_AddInItem_OnAction"
71+
tag="V-Tools.m_OpenTool(4)" />
72+
<button id="Cfe83ca68-0981-4807-a57d-a27e0045bad8" label="DIB-Bilder" size="normal"
73+
imageMso="InsertDrawingCanvas" onAction="ACLibRibbonCallBack_AddInItem_OnAction"
74+
tag="V-Tools.m_OpenTool(2)" />
75+
</group>
76+
<group id="Gefcb15ab-1e2e-4d27-8700-10c44b67d30a" label="Dokumentation">
77+
<button id="C5a6187db-ddbe-49b0-b6a3-8285dcc7049e" label="Doxygen-Wizard" size="large"
78+
imageMso="PivotTableLayoutShowInTabularForm" onAction="ACLibRibbonCallBack_AddInItem_OnAction" screentip="Startet den Doxygen-Wizard" supertip="Access-Add-In zur Unterstützung der Dokumentationserstellung mit Doxygen."
79+
tag="DoxygenWizard.StartDoxygenWizard" />
80+
</group>
81+
<group id="G852c2e2b-203f-45c9-9516-334f3dc6f2fd" label="Sonstiges">
82+
<button id="C23cdf05e-d06c-4bf5-beaa-32e153cb9cc8" label="TM-RebuildDatabase" size="large"
83+
imageMso="SaveAndNew" onAction="ACLibRibbonCallBack_AddInItem_OnAction"
84+
tag="TM-RebuildDatabase.TM_RebuildDatabase" />
85+
<button id="C23cdf05e-d06c-4bf5-beaa-32e153cb9cc0" label="MS Access VCS" size="large"
86+
imageMso="SaveAndNew" onAction="ACLibRibbonCallBack_AddInItem_OnAction"
87+
tag="%appdata%\MSAccessVCS\msaccess-vcs.AddInMenuItemLaunch" />
88+
</group>
89+
</tab></tabs></ribbon></customUI>

‎twinBasic/.gitignore

+1
Original file line numberDiff line numberDiff line change
@@ -0,0 +1 @@
1+
Packages

‎twinBasic/AClibAddInStarter.twinproj

14 KB
Binary file not shown.

‎twinBasic/Build/ACLibAddInStarterRibbon.xml

+89
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,89 @@
1+
<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui">
2+
<ribbon startFromScratch="false" ><tabs><tab id="T7b54dc74-81cb-455e-93a6-3763fcf0b083" label="Tools">
3+
<group id="Gd0000922-80a5-431e-b284-51582e0a0875" label="Access Code Library">
4+
<button id="Ccb4ceb82-67c2-4ab8-8386-bcdd4940f356" label="Import-Assistent" size="large"
5+
imageMso="SourceControlCreateDatabaseFromProject" onAction="ACLibRibbonCallBack_AddInItem_OnAction" screentip="Startet den Assisten für den Import" supertip="Assistent zum Importieren von Dateien aus der Code-Bibliothek"
6+
tag="ACLibImportWIzard.StartApplication" />
7+
<button id="Cabb00539-5521-4ae6-839c-d38ce0030198" label="Alles aktualisieren" size="normal"
8+
imageMso="SourceControlRefreshStatus" onAction="ACLibRibbonCallBack_AddInItem_OnAction" screentip="Aktualisiert alles vorhandenen Elemente aus der Code-Bibliothek"
9+
tag="ACLibImportWizard.RefreshAllCodeLibAccessObjects" />
10+
<button id="C22a78b03-6ad5-4eab-afaa-adec4e4833a0" label="Alles exportieren" size="normal"
11+
imageMso="SourceControlCheckOut" onAction="ACLibRibbonCallBack_AddInItem_OnAction" screentip="Exportiert alle Module, Formulare und Bericht mit CodeLib-Tag"
12+
tag="ACLibImportWizard.ExportAllCodeLibElements" />
13+
<button id="C16a5fae2-fb72-4551-b190-823f478d8716" label="Alle Module exportieren" size="normal"
14+
imageMso="SourceControlCheckOut" onAction="ACLibRibbonCallBack_AddInItem_OnAction" screentip="Exportiert alle Module"
15+
tag="ACLibImportWizard.ExportAllCodeLibModules" />
16+
<button id="C98b8fb72-d518-4108-97be-b36489e1609b" label="FilterForm-Wizard" size="normal"
17+
imageMso="AccessFormWizard" onAction="ACLibRibbonCallBack_AddInItem_OnAction" screentip="Startet den ACLib-FilterForm-Wizard"
18+
tag="ACLibFilterFormWizard.StartApplication" />
19+
<button id="EB781617-6AD9-4A9C-BA71-42C9A4A9313D" label="AccUnit-Loader" size="normal"
20+
imageMso="VisualBasic" onAction="ACLibRibbonCallBack_AddInItem_OnAction" screentip="Startet den AccUnit-Loader"
21+
tag="AccUnitLoader.StartApplication" />
22+
<dialogBoxLauncher>
23+
<button id="C7ee972a3-25e1-47e2-bd60-70bb6477d16a" label="Gruppe anpassen"
24+
tag="d0000922-80a5-431e-b284-51582e0a0875" onAction="ACLibRibbonCallBack_dialogBoxLauncher_OnAction" />
25+
</dialogBoxLauncher>
26+
</group>
27+
<group id="G0b0ae660-7dba-4ef9-aa55-f9429e63fcde" label="Datenverbindung">
28+
<button id="C3aee268f-13ca-4e0d-b205-a8bf67752701"
29+
label="DBMS Connection Wizard" size="large" imageMso="FileManageMenu" onAction="ACLibRibbonCallBack_AddInItem_OnAction"
30+
screentip="Startet das Hauptfenster des DBMS-Connection-Wizard"
31+
supertip="Access-Add-In zum Verwalten von Verbindungsparametern und Code-Übertrag für den Verbindungsaufbau mittels Hilfsklassen."
32+
tag="DbmsConnectionWizard.StartDbmsConnectionWizard"
33+
/>
34+
<button id="Cf912f9e2-3c54-47ea-8329-b2889f5564c6" label="Tabellen verknüpfen" size="normal"
35+
imageMso="DatabaseLinedTableManager" onAction="ACLibRibbonCallBack_AddInItem_OnAction" screentip="Startet den Assisten zum verknüpfen von Tabellen"
36+
tag="DbmsConnectionWizard.StartDbmsConnectionLinkTableWizard"
37+
/>
38+
<button id="C7527d8f8-34df-4c1a-a371-4487725e5254" label="Pass-Through-Abfrage" size="normal"
39+
imageMso="ViewsAdpDiagramSqlView" onAction="ACLibRibbonCallBack_AddInItem_OnAction" screentip="Öffnet eine Maske zum Testen von SQL-Anweisungen und Erstellen von Pass-Through-Abfragen"
40+
tag="DbmsConnectionWizard.CreatePassThroughQuery" />
41+
</group>
42+
<group id="G72e434ec-3280-4c74-a1d2-b93ce776c0ec" label="Analyse u. Optimierung">
43+
<button id="Cd5896e97-ec0c-4b61-8ed8-b42adf4c563d" label="Depency Checker" size="large"
44+
imageMso="TraceDependents" onAction="ACLibRibbonCallBack_AddInItem_OnAction" screentip="Abhängigkeiten ermitteln" supertip="Abhängigkeiten ermitteln"
45+
tag="ACCESS_DependencyChecker.startAddIn" />
46+
<button id="C1b29cec1-9a6e-4442-ab93-d8fb642024d4" label="TM-AbhängigeObjekte" size="normal"
47+
imageMso="ZoomToSelection" onAction="ACLibRibbonCallBack_AddInItem_OnAction"
48+
tag="TM-AbhängigeObjekte.TM_AbhängigeObjekte" />
49+
<button id="Cb645e695-1afe-4696-9dfd-bf0f603c7149" label="ACLib StructReader" size="normal"
50+
imageMso="WindowsArrangeIcons" onAction="ACLibRibbonCallBack_AddInItem_OnAction"
51+
tag="ACLibStructReader.StartWizard" />
52+
<button id="C508f83ee-126a-4f84-91f3-5c15a7438e97" label="TM-FixObjectNames" size="normal"
53+
imageMso="WordArtEditTextClassic" onAction="ACLibRibbonCallBack_AddInItem_OnAction"
54+
tag="TM-FixObjectNames.TM_FixObjectNames" />
55+
</group>
56+
<group id="G29f3b7f3-b692-4939-8033-8b455b727a9b" label="V-Tools">
57+
<button id="Ce89d10d8-039b-48ef-a4c0-391fa048c4a5" label="Container-Objekte" size="normal"
58+
imageMso="Connections" onAction="ACLibRibbonCallBack_AddInItem_OnAction"
59+
tag="V-Tools.m_OpenTool(8)" />
60+
<button id="C1ee2bde0-5dd7-470a-bffe-b1db3ab51f82" label="Formular-Vorlagen" size="normal"
61+
imageMso="CreateFormInDesignView" onAction="ACLibRibbonCallBack_AddInItem_OnAction"
62+
tag="V-Tools.m_OpenTool(6)" />
63+
<button id="C0e78ffa2-ec7f-497d-a394-029de837f51d" label="SQL verändern" size="normal"
64+
imageMso="ViewsAdpDiagramSqlView" onAction="ACLibRibbonCallBack_AddInItem_OnAction"
65+
tag="V-Tools.m_OpenTool(3)" />
66+
<button id="Cacbcb9ba-f75b-4fe3-a610-3547e3734495" label="Systemfarben" size="normal"
67+
imageMso="ControlLineColorPicker" onAction="ACLibRibbonCallBack_AddInItem_OnAction"
68+
tag="V-Tools.m_OpenTool(1)" />
69+
<button id="C8a481eba-9c3d-46a0-811c-1cda6a8a1c07" label="Suchen" size="normal"
70+
imageMso="FilePrintPreview" onAction="ACLibRibbonCallBack_AddInItem_OnAction"
71+
tag="V-Tools.m_OpenTool(4)" />
72+
<button id="Cfe83ca68-0981-4807-a57d-a27e0045bad8" label="DIB-Bilder" size="normal"
73+
imageMso="InsertDrawingCanvas" onAction="ACLibRibbonCallBack_AddInItem_OnAction"
74+
tag="V-Tools.m_OpenTool(2)" />
75+
</group>
76+
<group id="Gefcb15ab-1e2e-4d27-8700-10c44b67d30a" label="Dokumentation">
77+
<button id="C5a6187db-ddbe-49b0-b6a3-8285dcc7049e" label="Doxygen-Wizard" size="large"
78+
imageMso="PivotTableLayoutShowInTabularForm" onAction="ACLibRibbonCallBack_AddInItem_OnAction" screentip="Startet den Doxygen-Wizard" supertip="Access-Add-In zur Unterstützung der Dokumentationserstellung mit Doxygen."
79+
tag="DoxygenWizard.StartDoxygenWizard" />
80+
</group>
81+
<group id="G852c2e2b-203f-45c9-9516-334f3dc6f2fd" label="Sonstiges">
82+
<button id="C23cdf05e-d06c-4bf5-beaa-32e153cb9cc8" label="TM-RebuildDatabase" size="large"
83+
imageMso="SaveAndNew" onAction="ACLibRibbonCallBack_AddInItem_OnAction"
84+
tag="TM-RebuildDatabase.TM_RebuildDatabase" />
85+
<button id="C23cdf05e-d06c-4bf5-beaa-32e153cb9cc0" label="MS Access VCS" size="large"
86+
imageMso="SaveAndNew" onAction="ACLibRibbonCallBack_AddInItem_OnAction"
87+
tag="%appdata%\MSAccessVCS\msaccess-vcs.AddInMenuItemLaunch" />
88+
</group>
89+
</tab></tabs></ribbon></customUI>

‎twinBasic/Build/AClibAddInStarter_win32.dll

109 KB
Binary file not shown.

‎twinBasic/Build/Install.vbs

+86
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,86 @@
1+
const AddInName = "ACLibAddInStarter"
2+
const AddInFileName = "AClibAddInStarter_win32.dll"
3+
const MsgBoxTitle = "Install ACLib Add-In Starter"
4+
const RibbonFileName = "ACLibAddInStarterRibbon.xml"
5+
6+
Dim AddInFileInstalled, CompletedMsg
7+
8+
MsgBox "Before updating the add-in, the add-in must not be loaded!" & chr(13) & _
9+
"For safety, close all Access instances.", , MsgBoxTitle & ": Information"
10+
11+
AddInFileInstalled = CopyFileAndRegisterAddIn(GetSourceFileFullName, GetDestFileFullName)
12+
If AddInFileInstalled Then
13+
CompletedMsg = "Add-In installed in '" + GetAddInLocation + "'."
14+
Else
15+
CompletedMsg = "Error! Add-In not installed."
16+
End If
17+
18+
CopyRibbonXmlIfNotExists
19+
20+
MsgBox CompletedMsg, , MsgBoxTitle
21+
22+
23+
'##################################################
24+
' Functions
25+
26+
Function GetSourceFileFullName()
27+
GetSourceFileFullName = GetScriptLocation & AddInFileName
28+
End Function
29+
30+
Function GetDestFileFullName()
31+
GetDestFileFullName = GetAddInLocation & AddInFileName
32+
End Function
33+
34+
Function GetScriptLocation()
35+
With WScript
36+
GetScriptLocation = Replace(.ScriptFullName & ":", .ScriptName & ":", "")
37+
End With
38+
End Function
39+
40+
Function GetAddInLocation()
41+
GetAddInLocation = GetAppDataLocation & "Microsoft\AddIns\"
42+
End Function
43+
44+
Function GetAppDataLocation()
45+
Set wsShell = CreateObject("WScript.Shell")
46+
GetAppDataLocation = wsShell.ExpandEnvironmentStrings("%APPDATA%") & "\"
47+
End Function
48+
49+
Function FileCopy(SourceFilePath, DestFilePath)
50+
set fso = CreateObject("Scripting.FileSystemObject")
51+
fso.CopyFile SourceFilePath, DestFilePath
52+
FileCopy = True
53+
End Function
54+
55+
Function CopyRibbonXmlIfNotExists()
56+
ribbonFilePath = GetAddInLocation() & RibbonFileName
57+
Set fso = CreateObject("Scripting.FileSystemObject")
58+
if Not fso.FileExists(ribbonFilePath) then
59+
FileCopy GetScriptLocation() & RibbonFileName, GetAddInLocation() & RibbonFileName
60+
end if
61+
End Function
62+
63+
Function DeleteAddInFiles()
64+
Set fso = CreateObject("Scripting.FileSystemObject")
65+
DeleteFile fso, GetDestFileFullName()
66+
End Function
67+
68+
Function DeleteFile(fso, File2Delete)
69+
if fso.FileExists(File2Delete) then
70+
fso.DeleteFile File2Delete
71+
end if
72+
End Function
73+
74+
Function CopyFileAndRegisterAddIn(SourceFilePath, DestFilePath)
75+
76+
IF Not FileCopy(SourceFilePath, DestFilePath) Then
77+
Exit Function
78+
End If
79+
80+
With CreateObject("WScript.Shell")
81+
.Exec "regsvr32 /s """ & DestFilePath & """"
82+
End With
83+
84+
CopyFileAndRegisterAddIn = True
85+
86+
End Function

‎twinBasic/Build/Uninstall.vbs

+56
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,56 @@
1+
const AddInName = "ACLibAddInStarter"
2+
const AddInFileName = "AClibAddInStarter_win32.dll"
3+
const MsgBoxTitle = "Uninstall ACLib Add-In Starter"
4+
5+
Dim AddInFileUninstalled, CompletedMsg
6+
7+
MsgBox "Before updating the add-in, the add-in must not be loaded!" & chr(13) & _
8+
"For safety, close all Access instances.", , MsgBoxTitle & ": Information"
9+
10+
AddInFileUninstalled = UnRegisterAddIn(GetDestFileFullName)
11+
If AddInFileUninstalled Then
12+
CompletedMsg = "Add-In uninstalled."
13+
DeleteAddInFiles
14+
Else
15+
CompletedMsg = "Error! Add-In not uninstalled."
16+
End If
17+
18+
MsgBox CompletedMsg, , MsgBoxTitle
19+
20+
21+
'##################################################
22+
' Functions
23+
24+
Function GetDestFileFullName()
25+
GetDestFileFullName = GetAddInLocation & AddInFileName
26+
End Function
27+
28+
Function GetAddInLocation()
29+
GetAddInLocation = GetAppDataLocation & "Microsoft\AddIns\"
30+
End Function
31+
32+
Function GetAppDataLocation()
33+
Set wsShell = CreateObject("WScript.Shell")
34+
GetAppDataLocation = wsShell.ExpandEnvironmentStrings("%APPDATA%") & "\"
35+
End Function
36+
37+
Function DeleteAddInFiles()
38+
Set fso = CreateObject("Scripting.FileSystemObject")
39+
DeleteFile fso, GetDestFileFullName()
40+
End Function
41+
42+
Function DeleteFile(fso, File2Delete)
43+
if fso.FileExists(File2Delete) then
44+
fso.DeleteFile File2Delete
45+
end if
46+
End Function
47+
48+
Function UnRegisterAddIn(DestFilePath)
49+
50+
With CreateObject("WScript.Shell")
51+
.Exec "regsvr32 /u /s """ & DestFilePath & """"
52+
End With
53+
54+
UnRegisterAddIn = True
55+
56+
End Function

0 commit comments

Comments
 (0)