In Verzeichnis das File mit höchster Revision

Hallo Leute,
Folgendes Problem:
Ich rufe mit meinem Makro eine Datei aus einem Verzeichnis auf mit dem folgenden Namen:
"DateiRev23.xlsx"
Ich kenne die aktuelle Revisionsnummer (hier "23") nicht, was bisher jedoch egal war, da es nur eine Datei mit dem Namen "DateiRev?.xlsx" in diesem Verzeichnis gab und die Vorgänger Revision aus dem Verzeichnis gelöscht wurde.
Ich konnte den Namen also folgendermaßen ermitteln:
strFile = Dir("C:\SpezielleDaten\DateiRev?.xlsx", vbNormal)
Jetzt ist es aber so, das die Vorversionen alle im Verzeichnis verbleiben, d.h. es gibt die Datei "DateiRev20.xlsx", "DateiRev21.xlsx", "DateiRev22.xlsx", "DateiRev23.xlsx" im gleichen Verzeichnis.
Wie kann ich den Namen der letzten= höchsten Revision mit VBA ermitteln, um diese letzte revisionierte Datei dann öffnen zu können?
Vielen Dank für Eure Hilfe
Chris

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub Testen() 'Zeigt die letzte Revisionsnr. der Datei an : MsgBox strLetzteDatei("C:\SpezielleDaten\DateiRev?.xlsx") End Sub Function strLetzteDatei(strFileSpec As String) Dim strA As String, strD As String, strT As String strD = Split(strFileSpec, "\")(UBound(Split(strFileSpec, "\"))) Do If strT = "" Then strA = Dir(strFileSpec) Else strA = Dir End If If UCase(strA) Like UCase(strD) Then strT = strA Else strA = "" End If Loop Until strA = "" strLetzteDatei = strT End Function

Hey Luc,
ja tatsächlich : Woher kommt denn das str im UDF-Namen ;-)) ?
Damit streut man dem strebsamen User doch "Sand in die Augen" ;-)...
Ich musste mir ja einen neuen UDF-Namen ausdenken (Test1() bis Test999() sind leider schon belegt :->) und als Abgrenzung zu datLetzteDate() fiel mir (unkreativerweise) nur strLetzteDatei() ein.
Über die UN kann man denken wie man möchte - sie schaden ja grundsätzlich nicht und sind zumindest zur Unterschedung zu Schlüsselwörtern als Variablen- oder UDF-Namen nützlich (ganz grauenhaft und garantiert nicht dienlich finde ich es, wenn jemand ROW oder CELLS oder SHEET als Variablenname verwendet !!). Im Laufe der Zeit entwickelt wohl jeder seinen Stil (dieser kann sich auch verändern - wenn auch nur schwerlich) - und solange es keine strikten Vorgaben gibt (ich habe früher in COBOL74/85 programmiert, dort mussten die Codezeilen an Pos. 8 beginnen und ALLES musste genauestens deklariert werden !), kann sich der Programmierer ja "austoben" (nur bitte keinen "Spaghetti-Code" !!) wie er will.....
In diesem Sinne : Ciao, NoNet

Beliebteste Forumthreads (12 Monate)

In Verzeichnis das File mit höchster Revision

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread