refactoring: reduced dependency

Author: josef-poetzl

source/modules/AddInConfiguration.cls

@@ -22,7 +22,6 @@ Attribute VB_Exposed = False
 '<codelib>
 '  <file>_codelib/addins/shared/AddInConfiguration.cls</file>
 '  <license>_codelib/license.bas</license>
-'  <use>base/ApplicationHandler.cls</use>
 '  <ref><name>DAO</name><major>5</major><minor>0</minor><guid>{00025E01-0000-0000-C000-000000000046}</guid></ref>
 '</codelib>
 '---------------------------------------------------------------------------------------
@@ -260,7 +259,7 @@ HandleErr:
       Resume ExitHere
    End If
 
-   HandleError Err.Number, Err.Source, Err.Description, aclibErrRaise
+   Err.Raise Err.Number, "AddInConfiguration.SetDbProperty->" & Err.Source, Err.Description
 
 End Sub
 
@@ -281,7 +280,7 @@ HandleErr:
       Resume ExitHere
    End If
 
-   HandleError Err.Number, Err.Source, Err.Description, aclibErrRaise
+   Err.Raise Err.Number, "AddInConfiguration.SetDocProperty->" & Err.Source, Err.Description
 
 End Sub
 

source/modules/AddInInstaller.cls

@@ -23,7 +23,6 @@ Attribute VB_Exposed = False
 '  <file>_codelib/addins/shared/AddInInstaller.cls</file>
 '  <license>_codelib/license.bas</license>
 '  <use>_codelib/addins/shared/AddInConfiguration.cls</use>
-'  <use>file/FileTools.bas</use>
 '  <ref><name>DAO</name><major>5</major><minor>0</minor><guid>{00025E01-0000-0000-C000-000000000046}</guid></ref>
 '</codelib>
 '---------------------------------------------------------------------------------------
@@ -104,9 +103,11 @@ Private Function DeleteAddInFiles()
 End Function
 
 Private Function DeleteFile(File2Delete)
-   If FileTools.FileExists(File2Delete) Then
-      Kill File2Delete
-   End If
+   With CreateObject("Scripting.FileSystemObject")
+      If .FileExists(File2Delete) Then
+         .DeleteFile File2Delete, True
+      End If
+   End With
 End Function
 
 Private Function TryFileCopy(ByVal SourceFilePath As String, ByVal DestFilePath As String) As Boolean