vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 SEPA-Dateien erstellen inkl. IBAN-, BLZ-/Kontonummernprüfung  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Suche Visual-Basic Code
Re: Sortieren aller Files in einem Ordner nach Datum 
Autor: ModeratorDieter (Moderator)
Datum: 01.02.02 13:31
Hallo Max,

ich habe mir da folgendes überlegt.
Das Ermitteln aller Dateien des Ordners erfolgt über ein Array, wobei die einzelnen Elemente nicht nur den Dateinamen, sondern dem vorangestellt, das Datum enthalten.

Dann sortiert man das Array via QuickSort und voilá - man bekommt eine Dateiliste sortiert nach Datum.

Und so geht's:
Nimm eine Form, plaziere eine TextBox, ein CommandButton und eine ListBox darauf.
In die TextBox muss der Pfad eingetragen werden. Beim Klicken auf den CommandButton wird die sortierte Liste ermittelt und angezeigt. 
<code>  <font color=#000099>Dim</font> sFile <font color=#000099>As</font> _
  <font color=#000099>String</font>
  <font color=#000099>Dim</font> sDate <font color=#000099>As</font> <font _
  color=#000099>String</font>
  <font color=#000099>Dim</font> sPath <font color=#000099>As</font> <font _
  color=#000099>String</font>
  <font color=#000099>Dim</font> lUBound <font color=#000099>As</font> <font _
  color=#000099>Long</font>
  <font color=#000099>Dim</font> lCount <font color=#000099>As</font> <font _
  color=#000099>Long</font>
  <font color=#000099>Dim</font> i <font color=#000099>As</font> <font _
  color=#000099>Long</font>
  <font color=#000099>Dim</font> arrFiles() <font color=#000099>As</font> <font _
  color=#000099>String</font>
 
  <font color=green>' Ordner</font>
  sPath = Text1.Text
  <font color=#000099>If</font> Right$(sPath, 1) <> "\" <font _
    color=#000099>Then</font> sPath = sPath & "\"
 
  <font color=green>' alle Dateien aus dem Ordner auslesen und</font>
  <font color=green>' in ein Array speichern</font>
  sFile = Dir(sPath & "*.*", vbNormal)
  <font color=#000099>While</font> sFile <> ""
    <font color=#000099>If</font> sFile <> "." <font color=#000099>And</font> _
      sFile <> ".." <font color=#000099>Then</font>
      <font color=green>' Datum der Datei ermitteln</font>
      sDate = Format$(FileDateTime(sPath & sFile), _
        "yyyymmdd hhnnss")
 
      <font color=green>' Array dynamisch vergrößern</font>
      lCount = lCount + 1
      <font color=#000099>If</font> lCount > lUBound <font _
        color=#000099>Then</font>
        lUBound = 2 * lCount
        <font color=#000099>ReDim</font> Preserve arrFiles(lUBound)
      <font color=#000099>End</font> <font color=#000099>If</font>
 
      <font color=green>' ab ins Array</font>
      arrFiles(lCount) = sDate & "|" & sFile
    <font color=#000099>End</font> <font color=#000099>If</font>
    sFile = Dir
  <font color=#000099>Wend</font>
  <font color=#000099>ReDim</font> Preserve arrFiles(lCount)
 
  <font color=green>' Array via Quicksort sortieren</font>
  QuickSort arrFiles(), 1, lCount
 
  <font color=green>' jetzt ist das Array nach Datum sortiert</font>
  <font color=green>' und kann z.B. in einer ListBox angezeigt werden</font>
  List1.Clear
  <font color=#000099>For</font> i = 1 <font color=#000099>To</font> lCount
    List1.AddItem Mid(arrFiles(i), 17)
  <font color=#000099>Next</font> i</code>
Den QuickSort-Algorithmus findest Du hier:
 QuickSort in VB

Cu
Dieter
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Sortieren aller Files in einem Ordner nach Datum128Mäx01.02.02 11:49
Re: Sortieren aller Files in einem Ordner nach Datum108Tolwyn01.02.02 13:31
Re: Sortieren aller Files in einem Ordner nach Datum733ModeratorDieter01.02.02 13:31
Re: Sortieren aller Files in einem Ordner nach Datum92Mäx01.02.02 21:25

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel