Tælle antal biblioteker

Sub ShowFolderList()
Dim folderspec, antal
    Dim fs, f, f1, fc, s
   
    antal = 0
   
    folderspec = "D:\Eksperten"
   
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(folderspec)
    Set fc = f.SubFolders
    For Each f1 In fc
        s = s & f1.Name
        s = s & vbCrLf
        antal = antal + 1
    Next
    MsgBox antal
    MsgBox s
End Sub

lige hvad jeg manglede, smid et svar så er points

Det får du her...

Endnu engang tak for hjælpen