Anzahl der Dateien und Verzeichnisse in einem Verzeichnis ermitteln

Question

Hallo,

ich würde gerne beim Öffnen eines Verzeichnisses wissen, wie viele Verzeichnisse und Dateien sich darin befinden.
Kann mir jemand sagen wie das geht?

---

Liebe Grüße Stefan

Answer 1

Hallo Stefan,

Dim numberOfFiles As Integer
Dim path As String = "C:\Robert\"

numberOfFiles = System.IO.Directory.GetFiles(path).Length '//Anzahl der Dateien


Dim numberOfDirs As Integer
Dim di = New System.IO.DirectoryInfo(path)
Dim dirs = di.GetDirectories

numberOfDirs = dirs.Length '//Anzahl der Verzeichnisse

Grüße,

Robert

Answer 2

Hallo Robert,

nachdem ich nun raufinden kann wieviele Dirs und Fils vorhanden sind habe ich mich daran gemacht auch noch herauszufinden wann eine Datei erstellt wurde ...

   Button17.Visible = True
        Dim name As String
        If IstDateiliste.SelectedIndex <> -1 Then
            name = IstDateiliste.Text
            RichTextBox1.Text = name
            RichTextBox1.Text &= vbCrLf & " Erzeugt: " _
            & File.GetCreationTime(name)
            RichTextBox1.Text &= vbCrLf _
            & " Letzter Zugriff: " _
            & File.GetLastAccessTime(name)
            RichTextBox1.Text &= vbCrLf _
            & " Letzter Schreibzugriff: " _
            & File.GetLastWriteTime(name) 
        Else
            MsgBox("Es wurde keine Datei ausgewählt. Bitte wählen Sie einen Eintrag aus der obenstehenden Liste aus und wiederholen Sie den Vorgang.", MsgBoxStyle.Exclamation)

        End If

Das klappt auch wunderbar. Zum "vollkommenen Glück" eines Einsteigers fehlt mir nun noch eine Methode mit der ich herausfinden kann WER da zuletzt was in der Datei geändert (gepreichert also in jdem Fall geschrieben hat).
Gibt es da was?

---

Liebe Grüße Stefan