vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#

http://www.vbarchiv.net
Rubrik: Dateisystem · Ordner & Verzeichnisse   |   VB-Versionen: VB2005 - VB201528.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 KhederBewertung:  Views:  1.529 
www.bk-software.deSystem:  Vista, Win7, Win8, Win10 Beispielprojekt auf CD 

Neue Version! sevEingabe 3.0 (für VB6 und VBA)
Das Eingabe-Control der Superlative! Noch besser und noch leistungsfähiger!
Jetzt zum Einführungspreis       - Aktionspreis nur für kurze Zeit gültig -

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



Anzeige

Kauftipp Unser Dauerbrenner!Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv  Vol.6
(einschl. Beispielprojekt!)

Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
- nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten
- Symbol-Galerie mit mehr als 3.200 Icons im modernen Look
Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m.
 
 
Copyright ©2000-2017 vb@rchiv Dieter OtterAlle 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.