Clever-Excel-Forum

Normale Version: Letzten Dateinamen im Verzeichnis finden
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
Seiten: 1 2
Letzte Name:


Code:
msgbox Split(CreateObject("wscript.shell").exec("cmd /c Dir ""C:\Musik\*.mp3"" /b/s/o-n").stdout.readall, vbCrLf)(0)
(08.06.2016, 21:55)snb schrieb: [ -> ]Letzte Name:


Code:
msgbox Split(CreateObject("wscript.shell").exec("cmd /c Dir ""C:\Musik\*.mp3"" /b/s/o-n").stdout.readall, vbCrLf)(0)

Hallo,

warum den sortiert nach Namen (/o-n) und das auch noch vom Z-A? Wäre nicht besset "/o-d" nach Datum sortieren und das neueste zuerst?

mfg

ps: wenn man nur in einer Schleife "Dir" aufruft könnte die Reihenfolge entweder zufällig oder nach Namen sortiert sein, nicht unbedingt nach Datum.
@Fennek

Die Frage war, wenn ich es richtig verstehe, die letzte Name (auch ich weiss nicht warum).

Zitat:Ich suche nach einem Befehl der mir den letzten Namen einer Musikdatei in diesem Verzeichnis ausgibt
Hallo,

jetzt gibt es wohl für mehrere Optionen eine Lösung:

Die Schleife, die den letzten Namen aus alphabetischer Sortierung (Z...), ohne Rücksicht auf die Endung, ausgibt, 
eine Variante, die die Datei mit jüngstem Bearbeitungsdatum ausgibt, abhängig von der angegebenen Dateiendung
und das gleiche, nur wie bei der Schleife unter Berücksichtigung der Endung.

Das wäre ja direkt was für die Komplettlösungen.
@santana  auch wenn es nur eine Variation ist, mein Code veranschaulicht nocheinmal das Prinzip wie die Dir-Funktion durch das Verzeichnis klettert.



Code:
Sub Der_letzte_Dateiname()
Dim Dateiname
Dateiname = Dir("C:\Testordner\")
Do While Dateiname <> ""
If Dir = "" Then Exit Do
Dateiname = Dir
Loop
Debug.Print Dateiname
End Sub
Seiten: 1 2