[Gelöst][Makro] If Datei exist ... name001.odt

[opiWahn]

Hallo,

Wie kann ich vor dem Speichern überprüfen ob eine Datei mit gleichem Namem existiert und dieser dann ggf. eine fortlaufende Nummer anhängen, z.B. name001.odt?

Code: Alles auswählen

Sub Save_as_ODT

proofAllOptGrp1

	if iError > 0 then
		MsgBox "Sie haben noch "& iError &" Fehler zu beheben", 0+48, "Achtung"
	exit Sub 
	
	else
				
	oform = thisComponent.drawpage.forms.getbyindex(0)
	aText = oForm.getByName("txt_oName")

		if aText.text = "" then
			datname = "blanc"
		else
			datname = aText.text
		end if
		
	path = "C:/Roiger/Auftraege/"
	extension = ".odt"
	odturl = "file:///" + path + datname + extension
	thisComponent.storeToURL(odturl, Array())
	
clearForm

	endif
		
End Sub

[F3K Total]

Hi OpiWahn,
schau mal hier:
viewtopic.php?f=18&t=24218

Gruß R

[opiWahn]

supi - vielen Dank. Das sollte mir beim weiterstricken ne Ecke helfen

[opiWahn]

Hab's jetzt etwas anders gelöst als ursprünglich geplant:
Ich überprüfe zunächst ob eine Datei mit diesem Namen vorhanden ist und überlasse dem User die Entscheidung zum Abbruch oder zum Überschreiben der Vorhandenen Datei. Eindeutig werden die Dateien dadurch, daß ich den Dateinamen mit Auftragsnummer_Kundenname.odt zusammen baue.
Dann läßt sich das sogar später in der Ablage noch nach Auftragsnummern sortieren

Code: Alles auswählen

Sub Save_as_ODT
Dim Speichern

proofAllOptGrp1

	if iError > 0 then
		MsgBox "Sie haben noch "& iError &" Fehler zu beheben", 0+48, "Achtung"
	exit Sub 
	
	else
				
	oform = thisComponent.drawpage.forms.getbyindex(0)
	aText = oForm.getByName("txt_oName")
	aNum = oForm.getByName("txt_oKey")

		if aText.text = "" then
			datname = "blanc"
		else
			datname = aNum.text & "_" & aText.text
		end if
		
	path = "C:/Roiger/Auftraege/"
	extension = ".odt"
	odturl = "file:///" + path + datname + extension
	
		if FileExists (odturl) then
		Speichern =	MsgBox ("Eine Datei mit dem Namen" & CHR$(10) & odturl & CHR$(10) & "existiert bereits!" _
				    & CHR$(10) & "Soll sie überschrieben werden?",4+48, "Achtung")
				    
				       If Speichern = 7 then
    				   MSGbox "Datei wurde nicht gespeichert", 0, "Information"
     				   exit sub
   					   end if
		end if
		
	thisComponent.storeToURL(odturl, Array())
	msgbox "Datei wurde gespeichert", 0, "Information"
	
clearForm

	endif
		
End Sub

Wenn jemand eine elegantere Lösung hat - gerne