Ordner öffnen und erstellen falls nicht vorhanden
Verfasst: So 8. Jul 2018, 19:56
Hallo,
ich habe hier noch ein altes Makro in meiner Datenbank, die eine ID ausließt und dann einen entsprechenden Ordner öffnet. Existiert dieser Ordner nicht, kommt eine Fehlermeldung das der Ort nicht gefunden werden konnte.
Wie kann ich das entsprechende Makro erweitern, das ich am besten ein Dialogfenster bekomme, wo ich gefragt werde, ob ein neuer Ordner angelegt werden, falls dieser noch nicht existiert.
ich habe hier noch ein altes Makro in meiner Datenbank, die eine ID ausließt und dann einen entsprechenden Ordner öffnet. Existiert dieser Ordner nicht, kommt eine Fehlermeldung das der Ort nicht gefunden werden konnte.
Code: Alles auswählen
Sub openDir
oDoc = thisComponent
oDrawpage = oDoc.drawpage
oForm = oDrawpage.forms.getByName("MainForm")
oFeld1 = oForm.getByName("txtSERIENNUMMER")
stText = oFeld1.Text
stURL = "\\192.168.99.2\kunden\" & stText & "\"
oFeld2 = oForm.getByName("Unterlagen")
oFeld2.TargetURL = stURL
End Sub