PB使用findfirstfile以及findnextfile出错的有关问题

PB使用findfirstfile以及findnextfile出错的问题！
本人是PB菜鸟，现在想使用上述函数把C盘的所有文件夹和文件用目录树给列出来，但是使用上述函数在运行时出错
所以想请教各位大牛帮小弟解决下，谢谢哈

------解决方案--------------------
DirList()