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
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
Please also mark the comments that contributed to the solution of the article
Content-Key: 260224
Url: https://administrator.de/contentid/260224
Printed on: May 6, 2024 at 03:05 o'clock
2 Comments
Latest comment
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
Gruß jodel32