递归查找盘符下所有文件夹,并显示在list控件上

VB做的一个定时关机东西,写得不好,高手别笑啊.