makro zum speichern mit laufenden dateinamen gesucht

[hold]

hallo. ich möchte unter OOo 1.1.4 ein makro erstellen, das eine datei (writer) schließt und unter neuem namen in einen bestimmten ordner speichert. wie sage ich dem makro, dass der dateiname jedesmal neu sein soll (laufende numerierung oä) ??
dazu muss es ja wohl wissen, welche dateinamen in dem betreffenden ordner schon vergeben sind?
bis jetzt sieht das makro so aus:
"Sub Main
End Sub
sub autosp
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(1) as new com.sun.star.beans.PropertyValue
args1(0).Name = "URL"
args1(0).Value = "file:///D:/diesundas/sortieren/test.sxw"
args1(1).Name = "FilterName"
args1(1).Value = "StarOffice XML (Writer)"
dispatcher.executeDispatch(document, ".uno:SaveAs", "", 0, args1())
end sub"
aber so überschreibt es eben immer wieder die gleiche datei, und das will ich ja nicht.
bin dankbar für vorschläge und hoffe die frage hier am richtigen ort zu stellen.

[moritz]

Eine Möglichkeit wäre, einen kurzen festen Dateinamen zu definieren und daran Datum und Uhrzeit anzuhängen.
Moritz

[hold]

Eine Möglichkeit wäre, einen kurzen festen Dateinamen zu definieren und daran Datum und Uhrzeit anzuhängen.

ja. aber wie krieg ichs hin, diesen jeweils einzigartigen dateinamen automatisch vergeben zu lassen? vielleicht gibts da ja ne ganz simple antwort?

[ykcim]

Ich sehe zwei Wege:

a. Das aktuelle Datum und die Uhrzeit anhängen.

Code: Alles auswählen

Function GetDateAsString as string
  Dim sdatum as String
  Dim szeit as String
  Dim snew1 as String
  Dim snew2 as String
  
  GlobalScope.BasicLibraries.LoadLibrary("Tools")
  sDatum=date
  sNew1=DeleteStr(sdatum,".")   
  szeit=time

  sNew2=DeleteStr(szeit,":")   
  GetDateAsString=sNew2+"_"+sNew1
end Function

Mit der Funktion kannst Du das Datum und die Uhrzeit auslesen.
Diese musst Du dann einbauen

Code: Alles auswählen

meineZeit=getdateasstring
args1(0).Value = "file:///D:/diesundas/sortieren/test"+meineZeit+".sxw" 

b. Eine fortlaufende Nummer auslesen

Dazu steht hier eine Lösung:

http://www.dannenhoefer.de/faqstarbasic ... erner.html


mfg
Michael

[hold]

lieber michael - das geht - danke