1 Open your favorite text editor. In our case we are going to use Notepad++
2 Copy the VBScript code from below.
3 Paste the code in the newly created file.
4 Save the file with a ".vbs" extension.
5 Run the script file by double-clicking on it or via the CMD console.
6 That's it!
Advertisement
' This script creates a blank MS Access database.
Sub createBlankAccessDatabase()
' Set variables
Dim appAccess
' Create new access application object
Set appAccess = Wscript.CreateObject("Access.Application")
' Add a new database
appAccess.NewCurrentDatabase("F:\VBAmacros\VBScript\dbTest.accdb")
' Release the access application object
Set appAccess = Nothing
End Sub
' Run the procedure
Call createBlankAccessDatabase()
VBAmacros.net
VBAmacros.net
VBAmacros.net
VBAmacros.net
