Imports System.IO
Public Class Form1
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        If Directory.Exists("c:\temp2") Then
            Directory.SetCurrentDirectory("c:\temp2")
        Else
            MsgBox("c:\temp existiert nicht")
        End If
 
        Dim dateiliste() As String
        Dim aktuellesVerzeichnis As String
        Dim Verzeichnisse() As String
        Dim i As Long
 
        aktuellesVerzeichnis = Directory.GetCurrentDirectory
        Verzeichnisse = Directory.GetDirectories(aktuellesVerzeichnis)
 
        For i = 0 To Verzeichnisse.Length - 1
            Directory.SetCurrentDirectory(Verzeichnisse(i))
            dateiliste = Directory.GetFiles(Directory.GetCurrentDirectory)
 
        Next
        MsgBox(dateiliste.Count & "     ")
    End Sub
End Class