[megaloman]

shadowbat,

Не знаю, зачем нужно делать для массива, но я бы его определил вот так:

Код:

a = Array("\F0\", _
        "\f0\1.txt", _
        "\F0\2\", _
        "\F0\2\2.txt", _
        "\F0\3.txt", _
        "\F1\", _
        "C:\F111\333\", _
        "C:\F111\22\3.txt", _
        "\F1\1.txt", _
        "\f11.txt", _
        "\F111\", _
        "\F111\2.txt", _
        "\f111\222\", _
        "\F111\222\2.txt", _
        "\f22.txt", _
        "\f33.txt", _
        "\F222\222.txt", _
        "\F000\000.txt")

MsgBox a(0) + vbCrLf + a(UBound(a))