Ordner öffnen und erstellen falls nicht vorhanden

BASE ermöglicht es Ihnen, Ihre Daten in einer Datenbank direkt mit OpenOffice.org zu bearbeiten.
Antworten
sschultewolter
Beiträge: 7
Registriert: Do 13. Dez 2012, 21:24

Ordner öffnen und erstellen falls nicht vorhanden

Beitrag von sschultewolter » 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.

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.

nikki
Beiträge: 442
Registriert: Sa 30. Jul 2016, 14:14
Kontaktdaten:

Re: Ordner öffnen und erstellen falls nicht vorhanden

Beitrag von nikki » Mo 9. Jul 2018, 10:53

Hallo,

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

--------------------------------------------------------
Win.10 Prof. 64-bit, AOO 4.1.6, LO 6.0.7 (x64)

Antworten