Seite 1 von 1

Ordner öffnen und erstellen falls nicht vorhanden

Verfasst: So 8. Jul 2018, 19:56
von sschultewolter
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.

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
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.

Re: Ordner öffnen und erstellen falls nicht vorhanden

Verfasst: Mo 9. Jul 2018, 10:53
von nikki
Hallo,

abgesehen davon, dass dies ein Thema für den Forumsbereich OpenOffice Programmierung ist, hilft Dir möglicher Weise Folgendes weiter: