大家知道Dir1.Path最后展开的那个文件路绝对路径，然后可以移动光标，双击光标所在行（反显行）就改变了Dir1.Path，即改变最后展开的文件夹。但我在实际应用中需要用代码来改变最后展开的文件夹。在网上搜索了很久，没有得到答案。后来经过反复琢磨发现Dir1控件应该是以列表控件为平台编写的。于是我就试着用istBox1属性来套用，结果喜出望外：
列表控制 ListBox1.ListCount ‘返回的是列表的总行数
改成 Dir1.ListCount ‘返回的是最后展开的文件夹之下的行数 从0 起步。
Dir1.ListIndex ‘返回反显行的行号（返回值为 -1）
最后展开的文件夹内的文件夹（即向下分别为 0、1、2、3…
最后展开的文件夹这上（展开的文件夹的逐级）负弟增，如 -2、-3、-4 …
推导：
Dir1.ListIndex = 0 ‘反显行设为最后展开的文件夹内的第1 个文件夹
Dir1 = Dir1.List(Dir1.ListIndex) ‘打开新设为友显的第1 个文件夹就民开了
供有类似困扰的朋友分享。