Mit VBA-Code ein Verzeichnis erstellen

Hallo,

ich habe mit MS Access 2010 eine Datenbank und ein Frontend. Daten werden über ein Formular eingegeben.
Ich möchte zu jedem Datensatz ein Verzeichnis auf einem Server anlegen lassen wo ich Dokumente zum Datensatz
ablegen kann.

Beim drücken des Buttons soll folgendes geschehen:

1. Überprüfung ob das Verzeichnis vorhanden ist ==> ja, Verzeichnis öffnen
2. Überprüfung ob das Verzeichnis vorhanden ist ==> nein, Verzeichns anlegen und Verzeichnis öffnen

So sollte es dann aussehen \\server\verzeichnis\...\ID-Nr.

Leider habe ich keine VBA Kentnisse

Können die Profis mir ein paar Codebeispiele zur Verfügung stellen?


have a nice day...

DockMaster

Dim fso, objShell, strPath
strPath = "\\server\verzeichnis\" & Me.ID  
set objShell = CreateObject("WScript.Shell")  
Set fso = CreateObject("Scripting.FilesystemObject")  
if not fso.FolderExists(strPath) then
    fso.CreateFolder strPath
End if
objShell.Run "explorer.exe /e," & strPath  
Set fso = Nothing
Set objShell = Nothing