RecentFiles (Sammlung)

<< Click to Display Table of Contents >>

RecentFiles (Sammlung)

Zugriffspfad: Application à RecentFiles

 1  Beschreibung

RecentFiles ist eine Sammlung der im Menü Datei angezeigten zuletzt geöffneten Dateien. Die einzelnen Elemente dieser Sammlung sind vom Typ RecentFile.

 2  Zugriff auf die Sammlung

Es existiert während der gesamten Laufzeit von PlanMaker genau eine Instanz der RecentFiles-Sammlung. Diese wird über Application.RecentFiles angesprochen:

' Zeige den Namen der ersten Datei im Dateimenü an

MsgBox pm.Application.RecentFiles.Item(1).Name

 

' Öffne die erste Datei im Dateimenü

pm.Application.RecentFiles.Item(1).Open

 3  Eigenschaften, Objekte, Sammlungen und Methoden

Eigenschaften:

Count R/O

Maximum

 

Objekte:

Item RecentFile (Defaultobjekt)

Application Application

Parent Application

 

Methoden:

Add

Count (Eigenschaft, R/O)

Datentyp: Long

Liefert die Anzahl der RecentFile-Objekte in PlanMaker – in anderen Worten: die Anzahl der im Dateimenü verzeichneten zuletzt geöffneten Dateien.

Maximum (Eigenschaft, R/O)

Datentyp: Long

Liest oder setzt die Einstellung "Einträge im Datei-Menü" – in anderen Worten: wie viele zuletzt geöffnete Dateien das Dateimenü maximal anzeigen kann.

Der Wert darf zwischen 0 und 9 liegen.

Item (Zeiger auf Objekt)

Datentyp: Object

Liefert ein einzelnes RecentFile-Objekt, also einen einzelnen Dateieintrag im Dateimenü.

Welches RecentFile-Objekt Sie erhalten, hängt von dem Zahlenwert ab, den Sie an Item übergeben: 1 für die erste der zuletzt geöffneten Dateien, 2 für die zweite etc.

Application (Zeiger auf Objekt)

Datentyp: Object

Liefert das Application-Objekt.

Parent (Zeiger auf Objekt)

Datentyp: Object

Liefert das übergeordnete Objekt, also Application.

Add (Methode)

Fügt der Liste der zuletzt geöffneten Dateien ein Dokument hinzu.

Syntax:

 Add Document, [FileFormat]

Parameter:

Document ist eine Zeichenkette mit dem Pfad und Dateinamen des hinzuzufügenden Dokuments.
FileFormat (optional; Typ: Long bzw. PmSaveFormat) gibt das Dateiformat des hinzuzufügenden Dokuments an. Mögliche Werte:

 pmFormatDocument         =  0 ' PlanMaker-Dokument

 pmFormatTemplate         =  1 ' PlanMaker-Dokumentvorlage

 pmFormatExcel97          =  2 ' Excel 97/2000/XP

 pmFormatExcel5           =  3 ' Excel 5.0/7.0

 pmFormatExcelTemplate    =  4 ' Excel-Dokumentvorlage

 pmFormatSYLK             =  6 ' Sylk

 pmFormatRTF              =  7 ' Rich Text Format

 pmFormatTextMaker        =  7 ' TextMaker (= RTF)

 pmFormatHTML             =  8 ' HTML-Dokument

 pmFormatdBaseDOS         =  9 ' dBASE-Datenbank mit DOS-Zeichensatz

 pmFormatdBaseAnsi        = 10 ' dBASE-Datenbank mit Windows-Zeichensatz

 pmFormatDIF              = 11 ' Textdatei mit Windows-Zeichensatz

 pmFormatPlainTextAnsi    = 12 ' Textdatei mit Windows-Zeichensatz

 pmFormatPlainTextDOS     = 13 ' Textdatei mit DOS-Zeichensatz

 pmFormatPlainTextUnix    = 14 ' Textdatei mit ANSI-Zeichensatz für UNIX, Linux und FreeBSD

 pmFormatPlainTextUnicode = 15 ' Textdatei mit Unicode-Zeichensatz

 pmFormatdBaseUnicode     = 18 ' dBASE-Datenbank mit Unicode-Zeichensatz

 pmFormatPlainTextUTF8    = 21 ' Textdatei mit UTF8-Zeichensatz

 pmFormatMSXML            = 23 ' Excel ab 2007

 pmFormatMSXMLTemplate    = 24 ' Excel-Dokumentvorlage ab 2007

 pmFormatPM2008           = 26 ' PlanMaker 2008-Dokument

 pmFormatPM2010           = 27 ' PlanMaker 2010-Dokument

 pmFormatPM2012           = 28 ' PlanMaker 2012-Dokument

 pmFormatPM2012Template   = 29 ' PlanMaker 2012-Dokumentvorlage

Wenn Sie diesen Parameter weglassen, wird pmFormatDocument angenommen.
Tipp: Unabhängig vom übergebenen Parameter FileFormat versucht PlanMaker stets, das Dateiformat selbst zu erkennen, und ignoriert offensichtlich falsche Angaben.

Rückgabetyp:

Object (ein RecentFile-Objekt, das das hinzugefügte Dokument repräsentiert)

Beispiel:

' Die Datei Test.pmdx dem Dateimenü hinzufügen

pm.Application.RecentFiles.Add "Test.pmdx"

 

' Dito, aber mit Auswertung des Rückgabewerts (Klammern beachten!)

Dim fileObj as Object

Set fileObj = pm.Application.RecentFiles.Add("Test.pmdx")

MsgBox fileObj.Name