请教一个获取目录下所有文件名的问题

炽幻恶魔

如题有两个问题请教，第一个问题：网上搜索得到如下语句：
Set Dic = CreateObject("Scripting.Dictionary")
    p = ThisWorkbook.Path & "\"
    f = Dir(p & "*.xls")
    Do While Len(f)
        If f <> ThisWorkbook.Name Then
            Dic(f) = ""
        End If
        f = Dir
    Loop
上面的语句的确能将文件夹内所有文件名称获取，并且排除了自身，但  Do While Len(f) 这一句的循环条件没有看懂，Len(f)意思是文件名的长度吗？这为什么算一个判断语句？不应该是Len(f)大于或者等于或者小于某个值的时候才应该结束循环的吗？
第二个问题，上面的语句取得的文件名列表顺序与我期望的不符，比如文件夹中有“红”、“黄”、“绿”三个文件夹，我期望的顺序为Item1=红，Item2=黄，Item3=绿，但是系统取得的顺序却是Item1=黄，Item2=绿，Item3=红，怎么写能满足我的需求？谢谢

zopey

把你的 期望顺序 写到代码中。

炽幻恶魔

zopey 发表于 2018-5-29 16:58
把你的 期望顺序 写到代码中。

……我要是知道怎么写也不回来问了

zopey

你总要把 自定义顺序 ，正确表达出来 ，一个比如 能说明什么。

炽幻恶魔

好吧，这是文件夹中的文件，
这是系统字典获取的值
，
如图中Item1=红.txt，Item2=绿.txt，Item3=黄.txt，我需要Item1=黄.txt，Item2=红.txt，Item3=绿.txt，这样明白吗？怎么写可以达到目的？

zopey

炽幻恶魔 发表于 2018-5-29 17:36
好吧，这是文件夹中的文件，
这是系统字典获取的值
，

不明白 溜了溜了

炽幻恶魔

你成功拿我逗了个乐子，恭喜你……

炽幻恶魔

有没有老师能给指导一下，谢谢！

fxl447098457

得到文件名称后按照你想要的顺序自定义排序的顺序就可以了。这个excel自带的功能。

炽幻恶魔

fxl447098457 发表于 2018-5-30 09:09
得到文件名称后按照你想要的顺序自定义排序的顺序就可以了。这个excel自带的功能。

那顺序在字典里啊神仙，字典里的数据怎么自定义排序？话说能不能连操作步骤一起说啊，你别是跟前一个跟帖的伙计一样是上天派来玩我的啊