Rubrik: Dateisystem · Ordner & Verzeichnisse | VB-Versionen: VB2005 - VB2015 | 28.11.16 |
Prüfen ob ein Verzeichnis/Ordner leer ist Mit diesem Code können Sie schnell und einfach prüfen lassen, ob ein bestimmtes Verzeichnis noch ohne Inhalt ist. | ||
Autor: Samir Ben Kheder | Bewertung: | Views: 8.468 |
www.bk-software.de | System: Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
Mit nachfolgendem Code lässt sich schnell und einfach prüfen, ob ein bestimmtes Verzeichnis leer ist, d.h. sich keine Dateien oder Ordner darin befinden.
''' <summary> ''' Prüft, ob das angegenene Verzeichnis leer ist ''' </summary> ''' <param name="strPfad">Pfad / Verzeichnisname</param> ''' <returns>True, wenn das Verzeichnis leer ist, andernfalls False</returns> Private Function IstOrdnerLeer(ByVal strPfad As String) As Boolean If System.IO.Directory.GetFiles(strPfad).Length > 0 _ OrElse System.IO.Directory.GetDirectories(strPfad).Length > 0 Then Return False Else Return True End If End Function
Beispielaufruf
' Prüfe ob der Ordner leer ist... If IstOrdnerLeer("D:\Temp") Then MessageBox.Show("Das Verzeichnis ist leer!") Else MessageBox.Show("Im Verzeichnis existieren Dateien oder Ordner!") End If