Version 1.1.1 (GitHub)

Author: josef-poetzl

.gitignore

@@ -0,0 +1 @@
+/ACLibImportWizard.accdb

README.md

@@ -1,2 +1,7 @@
-# ACLibImportWizard
+# ACLib-Import-Wizard
 Import code from AccessCodeLib into application by add-in
+
+Details: https://wiki.access-codelib.net/ACLib-Import-Wizard
+
+#### Using the Import-Wizard:
+[Video: create new Access application](https://access-codelib.net/videos/ACLib-Import-Wizard/neue-anwendung-erstellen/)

access-add-in/ACLibImportWizard.accda

@@ -0,0 +1,63 @@
+const AddInName = "ACLib-Import-Wizard"
+const AddInFileName = "ACLibImportWizard.accda"
+const MsgBoxTitle = "Install/Update ACLib-Import-Wizard"
+
+MsgBox "Vor dem Aktualisieren der Add-In-Datei darf das Add-In nicht geladen sein!" & chr(13) & _
+       "Zur Sicherheit alle Access-Instanzen schließen.", , MsgBoxTitle & ": Hinweis"
+
+Select Case MsgBox("Soll das Add-In als ACCDE verwendet werden?" + chr(13) & _
+                   "(Add-In wird kompiliert ins Add-In-Verzeichnis kopiert.)", 3, MsgBoxTitle)
+   case 6 ' vbYes
+      CreateMde GetSourceFileFullName, GetDestFileFullName
+   case 7 ' vbNo
+      FileCopy GetSourceFileFullName, GetDestFileFullName
+   case else
+      
+End Select
+
+
+'##################################################
+' Hilfsfunktionen:
+
+Function GetSourceFileFullName()
+   GetSourceFileFullName = GetScriptLocation & AddInFileName 
+End Function
+
+Function GetDestFileFullName()
+   GetDestFileFullName = GetAddInLocation & AddInFileName 
+End Function
+
+Function GetScriptLocation()
+
+   With WScript
+      GetScriptLocation = Replace(.ScriptFullName & ":", .ScriptName & ":", "") 
+   End With
+
+End Function
+
+Function GetAddInLocation()
+
+   GetAddInLocation = GetAppDataLocation & "Microsoft\AddIns\"
+
+End Function
+
+Function GetAppDataLocation()
+
+   Set wsShell = CreateObject("WScript.Shell")
+   GetAppDataLocation = wsShell.ExpandEnvironmentStrings("%APPDATA%") & "\"
+
+End Function
+
+Function FileCopy(SourceFilePath, DestFilePath)
+
+   set fso = CreateObject("Scripting.FileSystemObject") 
+   fso.CopyFile SourceFilePath, DestFilePath
+
+End Function
+
+Function CreateMde(SourceFilePath, DestFilePath)
+
+   Set AccessApp = CreateObject("Access.Application")
+   AccessApp.SysCmd 603, (SourceFilePath), (DestFilePath)
+
+End Function