VBA-Beispiel 114
mail schreiben
mail schreiben

per VBA Anzahl der Unterordner ermitteln

Public Sub Aufruf()
 'Funktionsaufruf - Pfadangabe anpassen
  MsgBox AnzUnterordner("C:\"), , ""
End Sub

Private Function AnzUnterordner(ByVal strPfad As String) As Long
Dim objFSO As Object
Dim objOrdner As Object

On Error GoTo Fehler

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objOrdner = objFSO.GetFolder(strPfad)

'Anzahl Unterordner
AnzUnterordner = objOrdner.SubFolders.Count

Set objFSO = Nothing
Set objOrdner = Nothing
Exit Function

Fehler:
  Set objFSO = Nothing
  Set objOrdner = Nothing
  MsgBox "FehlerNr.: " & Err.Number & _
          vbNewLine & vbNewLine & _
         "Beschreibung: " & Err.Description, _
          vbCritical, "Fehler:"
  End
End Function

Download:   vba114.zip