Add AccessDatabase

Author: DecimalTurn

.github/workflows/tests.yml

@@ -27,6 +27,7 @@ jobs:
           name: "VBA-Enabled-Documents"
           path: "./tests/out/*"
           if-no-files-found: warn
+      # TODO: Check if better method to visualize the screenshots: https://github.com/actions/upload-artifact/issues/14
       - name: "Upload Screenshots"
         # Run this step even if the build failed
         if: success() || failure()

Main.ps1

@@ -64,12 +64,20 @@ foreach ($app in $officeApps) {
 foreach ($folder in $folders) {
     $app = Get-OfficeApp -FileExtension $folder.Substring($folder.LastIndexOf('.') + 1)
 
+    $ext = "zip"
     if ($app -ne "Access") {
         Write-Host "Create Zip file and rename it to Office document target"
         . "$PSScriptRoot/scripts/Zip-It.ps1" "${SourceDir}/${folder}"
-        Write-Host "========================="
     }
+    else {
+        $ext = "accdb"
+    }
+
+    Write-Host "Copy and rename the file to the correct name"
+    . "$PSScriptRoot/scripts/Rename-It.ps1" "${SourceDir}/${folder}" "$ext"
 
     Write-Host "Importing VBA code into Office document" 
     . "$PSScriptRoot/scripts/Build-VBA.ps1" "${SourceDir}/${folder}" "$app"
+
+    Write-Host "========================="
 }

scripts/Rename-It.ps1

@@ -0,0 +1,50 @@
+# This scripts simply copies the file from the source to the destination folder
+# and renames it to the correct file name based on the folder name.
+
+# Read the name of the folder from the argument passed to the script
+$folderName = $args[0]
+if (-not $folderName) {
+    Write-Host "Error: No folder name specified. Usage: Rename-It.ps1 <FolderName>"
+    exit 1
+}
+
+$ext = $args[1]
+if (-not $ext) {
+    Write-Host "Error: No file extension specified. Usage: Rename-It.ps1 <FolderName> <FileExtension>"
+    exit 1
+}
+
+$sourceDir = $folderName.Substring(0, $folderName.LastIndexOf('/'))
+
+$filNameWithExtension = $folderName.Substring($folderName.LastIndexOf('/') + 1)
+$fileName = $filNameWithExtension.Substring(0, $filNameWithExtension.LastIndexOf('.'))
+$fileExtension = $filNameWithExtension.Substring($filNameWithExtension.LastIndexOf('.') + 1)
+
+# Create a copy of the zip/document file in the $folderName/Skeleton folder at the top level
+$copySource = "$folderName/Skeleton/$fileName.$ext"
+$renameDestinationFolder = "$sourceDir/out"
+$renameDestinationFilePath = "$renameDestinationFolder/$fileName.$fileExtension"
+
+# Create rename destination folder if it doesn't exist
+if (-not (Test-Path $renameDestinationFolder)) {
+    Write-Host "Creating destination folder: $renameDestinationFolder"
+    New-Item -ItemType Directory -Path $renameDestinationFolder -Force | Out-Null
+}
+
+# Delete the destination file if it exists
+if (Test-Path $renameDestinationFilePath) {
+    Write-Host "Deleting existing file: $renameDestinationFilePath"
+    Remove-Item -Path $renameDestinationFilePath -Force
+}
+
+# Copy and rename the file in one step
+Write-Host "Copying and renaming $copySource to $renameDestinationFilePath"
+Copy-Item -Path $copySource -Destination $renameDestinationFilePath -Force
+
+# Verify if the file exists after the copy
+if (-not (Test-Path $renameDestinationFilePath)) {
+    Write-Host "Error: File not found after copy: $renameDestinationFilePath"
+    exit 1
+}
+
+Write-Host "File successfully copied and renamed to: $renameDestinationFilePath"

scripts/Zip-It.ps1

@@ -13,15 +13,14 @@ $filNameWithExtension = $folderName.Substring($folderName.LastIndexOf('/') + 1)
 $fileName = $filNameWithExtension.Substring(0, $filNameWithExtension.LastIndexOf('.'))
 $fileExtension = $filNameWithExtension.Substring($filNameWithExtension.LastIndexOf('.') + 1)
 
-
 Write-Host "Staring the compression process..."
 
 $currentDir = Get-Location
 Write-Host "Current directory: $currentDir"
 
 # Define the source folder and the output zip file
 $sourceFolder = Join-Path -Path $currentDir -ChildPath "$folderName/XMLsource/"
-$outputZipFile = Join-Path -Path $currentDir -ChildPath "$folderName/XMLoutput/$fileName.zip"
+$outputZipFile = Join-Path -Path $currentDir -ChildPath "$folderName/Skeleton/$fileName.zip"
 
 # Path to the 7-Zip executable
 $sevenZipPath = "7z"  # Assumes 7-Zip is in the system PATH. Adjust if necessary.
@@ -90,33 +89,3 @@ if ($LASTEXITCODE -ne 0) {
 }
 
 Write-Host "Compression completed successfully. Zip file created at: $absoluteDestinationFolder"
-
-
-# Create a copy of the zip file in the $folderName/XMLoutput folder at the top level
-$copySource = "$folderName/XMLoutput/$fileName.zip"
-$renameDestinationFolder = "$sourceDir/out"
-$renameDestinationFilePath = "$renameDestinationFolder/$fileName.$fileExtension"
-
-# Create rename destination folder if it doesn't exist
-if (-not (Test-Path $renameDestinationFolder)) {
-    Write-Host "Creating destination folder: $renameDestinationFolder"
-    New-Item -ItemType Directory -Path $renameDestinationFolder -Force | Out-Null
-}
-
-# Delete the destination file if it exists
-if (Test-Path $renameDestinationFilePath) {
-    Write-Host "Deleting existing file: $renameDestinationFilePath"
-    Remove-Item -Path $renameDestinationFilePath -Force
-}
-
-# Copy and rename the file in one step
-Write-Host "Copying and renaming $copySource to $renameDestinationFilePath"
-Copy-Item -Path $copySource -Destination $renameDestinationFilePath -Force
-
-# Verify if the file exists after the copy
-if (-not (Test-Path $renameDestinationFilePath)) {
-    Write-Host "Error: File not found after copy: $renameDestinationFilePath"
-    exit 1
-}
-
-Write-Host "File successfully copied and renamed to: $renameDestinationFilePath"

tests/AccessDatabase.accdb/DBSource/AccessDatabase.accdb

@@ -0,0 +1,8 @@
+Attribute VB_Name = "Module1"
+
+'@Lang VBA
+Option Explicit
+
+Sub Demo()
+    MsgBox "Hello, World!"
+End Sub