Seite 1 von 1

Datum von mehreren Files vergleichen

Verfasst: Fr 16. Okt 2020, 18:19
von gambasso
moin,

ich habe mehrere Verzeichnisse mit Daten. Ich möchte das Erstellungsdatum der einzelnen Verzeichnisse auslesen und im Array einlesen.
Dabei sollen die zuletzt erstellten Verzeichnisse oben liegen.

Dabei komme ich mit den Vergleichen des Datums der Verzeichnisse nicht klar.
Wie bekomme ich das hin?

Re: Datum von mehreren Files vergleichen

Verfasst: Fr 16. Okt 2020, 20:02
von PJBlack
ls -a -l -t | grep "^d"

-a alle Dateien (., ..)
-l Anzeige in langform zeilenweise
-t sortiert nach Datum absteigend

^d RegEX = beginnt mit d (für Directory)

Re: Datum von mehreren Files vergleichen

Verfasst: Sa 17. Okt 2020, 12:54
von gambasso
moin,

und wie mache ich das unter Gambas?

Re: Datum von mehreren Files vergleichen

Verfasst: Sa 17. Okt 2020, 15:30
von cogier
Dieser Code sollte für Sie funktionieren.
gambas code
GridViewFolders As GridView

Public Sub Form_Open()

  Dim sFolder As String = User.Home
  Dim sDir As String[] = RDir(sFolder, "", gb.Directory)
  Dim sResults As New String[]
  Dim iLoop As Integer

  BuildForm

  For iLoop = 0 To sDir.Max
    sResults.Add(Format(Stat(sFolder &/ sDir[iLoop]).LastModified, "yyyy/mm/dd hh:nn:ss") & "`" & sDir[iLoop])
  Next

  sResults.Sort(gb.Descent)

  For iLoop = 0 To sResults.Max
    Inc GridViewFolders.Rows.Count
    GridViewFolders[iLoop, 0].Text = Split(sResults[iLoop], "`")[0]
    GridViewFolders[iLoop, 1].Text = Split(sResults[iLoop], "`")[1]
  Next

  GridViewFolders.Columns.Width = -1

End

Public Sub BuildForm()

  With Me
    .Arrangement = Arrange.Vertical
    .Padding = 5
  End With

  With GridViewFolders = New GridView(Me) As "GridViewFolders"
    .Rows.Count = 0
    .Columns.Count = 2
    .Expand = True
  End With

End