VBA-Beispiel 116
mail schreiben
mail schreiben

per VBA Ordnerinformationen ermitteln

Diese Funktion ermittelt drei Informationen zu einem Ordner:
Ordnergröße, Anzahl der Dateien und Anzahl der Unterordner.
Public Sub Aufruf_Ordnerinfo()
Dim strOrdner As String
Dim lngB As Long, lngD As Long, lngU As Long

strOrdner = ThisWorkbook.Path

'Call Info(strOrdner, lngB, lngD, lngU)

If Info(strOrdner, lngB, lngD, lngU) = True Then
  MsgBox lngB & " Bytes" & vbNewLine & _
         lngD & " Dateien" & vbNewLine & _
         lngU & " Unterordner", , strOrdner
End If

End Sub

Private Function Info(ByVal strPfad As String, _
                      ByRef lngBytes As Long, _
                      ByRef lngDateien As Long, _
                      ByRef lngUnterordner As Long) As Boolean
Dim objFSO As Object
Dim objOrdner As Object

On Error GoTo Fehler

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

lngBytes = objOrdner.Size / 1000              'Ordnergröße
lngDateien = objOrdner.Files.Count            'Anz Dateien
lngUnterordner = objOrdner.SubFolders.Count   'Anz Unterordner

Set objFSO = Nothing
Set objOrdner = Nothing
Info = True

Exit Function

Fehler:
  Set objFSO = Nothing
  Set objOrdner = Nothing

  MsgBox "FehlerNr.: " & Err.Number & _
          vbNewLine & vbNewLine & _
         "Beschreibung: " & Err.Description, _
          vbCritical, "Fehler:"
End Function

Download:   vba116.zip