Spis zawartości folderu

Poniższy przykład tworzy w aktywnym arkuszu począwszy od komórki A1 spis zawartości folderu (zmienna "fold"):

Sub spis()

    Dim mrange
    fold = "C:\"

    f = Dir(fold, vbDirectory)

    Set mrange = Range("A1")
    mrange.Value = f

    Do While f <> ""
    f = Dir
        If f <> "" Then
            Set mrange = mrange.Offset(1, 0)
            mrange.Value = f
        End If
    Loop

End Sub

Kolejna procedura różni się od poprzedniej tym, że wstawia hyperlinki zamiast samych nazw zawartości folderu:

Sub spis_hyperlinki()

    Dim mrange
    fold = "C:\"

    f = Dir(fold, vbDirectory)

    Set mrange = Range("A1")
    mrange.Value = f

    ActiveSheet.Hyperlinks.Add Anchor:=mrange, Address:=fold & f, _
    TextToDisplay:=f


    Do While f <> ""
        f = Dir
        If f <> "" Then

            Set mrange = mrange.Offset(1, 0)

            ActiveSheet.Hyperlinks.Add Anchor:=mrange, Address:=fold & f, _
            TextToDisplay:=f

        End If
    Loop

End Sub