Auswahl bestimmter Dateien und Ordner per Eingabe

  • Excel

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von Neptun.

    Auswahl bestimmter Dateien und Ordner per Eingabe

    Hallo sehr geehrte Mitglieder,
    ich stehe noch wirklich sehr am Anfang mit meinen VBA-Kenntnissen und benötige ein wenig Hilfe.Durch eine Combobox gebe ich aus einer Auswahl die letzten 4 Stellen einer Datei an und diese soll in bestimmten Ordnern gesucht und in einen anderen Ordner kopiert werden. Kopiert werden soll jedoch nur die Datei mit dem jüngsten Erstelldatum, da es auch mehrere Dateien mit dem gleicher Endung gibt.
    Ich möchte gerne noch ein weiteres Eingabefeld (Zeit im gleichen Format wie Ordner yyyy-dd-mm) erstellen, welches spezifiziert in welchem Ordner gesucht werden soll, da sich die Endung in anderen Ordnern wiederholt.

    Es soll also immer nur die neueste Datei einer Endung aus einem Ordner kopiert werden.

    Könnt ihr hier weiterhelfen wie ich anfangen kann?
    Hallo Frank0304,
    die Dateien eines Ordners kannst du mit der Dir$-Funktion
    auslesen, das Erstelldatum einer Datei mit FileDateTime.
    Der Code zum Finden der neuesten Datei sollte etwa so aussehen, Kopieren
    kann man dann mit FileCopy:

    Visual Basic-Quellcode

    1. Dim Folder$, FN$, NewFile$, OldFile$, NewDate As Date, OldDate As Date
    2. Folder = "D:\Programme\Doku" ' Ordnerpfad
    3. FN = Dir$(Folder & "\*.xls") ' Dateityp
    4. Do Until FN = ""
    5. NewFile = Folder & "\" & FN
    6. NewDate = FileDateTime(NewFile)
    7. If OldFile = "" Then
    8. OldFile = NewFile
    9. OldDate = NewDate
    10. ElseIf NewDate > OldDate Then
    11. OldFile = NewFile
    12. OldDate = NewDate
    13. End If
    14. FN = Dir$
    15. DoEvents
    16. Loop
    17. MsgBox OldFile
    Gruss,

    Neptun