title image


Smiley TIPP: Zahl der Dateien/Unterverzeichnisse im Verzeichnis
Such dir eins aus:



Public Function ZahlDerDateienImVerzeichnis( ByVal Pfad As String)

Dim DateiName As String

If Right(Pfad, 1) "\" Then Pfad = Pfad & "\"

On Error Resume Next

DateiName = Dir(Pfad & "*.*")

If Err 0 Then

MsgBox "Falsche Pfadangabe!", vbExclamation

Exit Function

End If

On Error GoTo 0

ZahlDerDateienImVerzeichnis = 0

DateiName = Dir(Pfad & "*.*")

Do Until DateiName = ""

ZahlDerDateienImVerzeichnis = ZahlDerDateienImVerzeichnis + 1

DateiName = Dir()

Loop

End Function



Public Function ZahlDerUnterverzeichnisseImVerzeichnis( _

Optional ByVal Pfad As String = "C:\Temp\")

Dim DateiName As String

If Right(Pfad, 1) "\" Then Pfad = Pfad & "\"

On Error Resume Next

DateiName = Dir(Pfad & "*.*")

If Err 0 Then

MsgBox "Falsche Pfadangabe!", vbExclamation

Exit Function

End If

On Error GoTo 0

ZahlDerUnterverzeichnisseImVerzeichnis = 0

DateiName = Dir(Pfad & "*.*", vbDirectory)

Do Until DateiName = ""

If Left(DateiName, 1) "." Then ZahlDerUnterverzeichnisseImVerzeichnis = ZahlDerUnterverzeichnisseImVerzeichnis + 1

DateiName = Dir()

Loop

DateiName = Dir(Pfad & "*.*")

Do Until DateiName = ""

ZahlDerUnterverzeichnisseImVerzeichnis = ZahlDerUnterverzeichnisseImVerzeichnis - 1

DateiName = Dir()

Loop

End Function



Public Function ZahlDerDateienImVerzeichnis1( ByVal Pfad As String )

Dim FSO As New Scripting.FileSystemObject, F As Scripting.Folder

If Right(Pfad, 1) "\" Then Pfad = Pfad & "\"

On Error Resume Next

Set F = FSO.GetFolder(Pfad)

If Err 0 Then

MsgBox "Falsche Pfadangabe!", vbExclamation

Exit Function

End If

On Error GoTo 0

ZahlDerDateienImVerzeichnis1 = F.Files.Count

End Function



Public Function ZahlDerUnterverzeichnisseImVerzeichnis1( _

Optional ByVal Pfad As String = "C:\Temp\")

Dim FSO As New Scripting.FileSystemObject, F As Scripting.Folder

If Right(Pfad, 1) "\" Then Pfad = Pfad & "\"

On Error Resume Next

Set F = FSO.GetFolder(Pfad)

If Err 0 Then

MsgBox "Falsche Pfadangabe!", vbExclamation

Exit Function

End If

On Error GoTo 0

ZahlDerUnterverzeichnisseImVerzeichnis1 = F.Subfolders.Count

End Function



(Für die letzten beiden Funktionen muss ein Verweis auf die Scripting Runtime SCRRUN.DLL gesetzt sein!)



Gruß aus dem Norden
Reinhard


Bitte immer die Access-Version angeben!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: