要写一个自动切换桌面背景的小程序,遇到遍历文件夹的问题,弄了一个下午终于搞定了。 代码如下: Global NewList DirID.i() Global NewList FList.s() Declare GetAllFile(s.s) Procedure GetAllFile(s.s) Did = ExamineDirectory(#PB_Any,s,"*.*") If Did AddElement(DirID()) DirID() = Did EndIf While NextDirectoryEntry(DirID()) If DirectoryEntryType(DirID()) = #PB_DirectoryEntry_Directory If DirectoryEntryName(DirID())<> "." And DirectoryEntryName(DirID())<> ".." Debug "文件夹:"+s+DirectoryEntryName(DirID()) GetAllFile(s+DirectoryEntryName(DirID())+"/") EndIf Else Debug "文件:"+s+DirectoryEntryName(DirID()) EndIf Wend DeleteElement(DirID()) EndProcedure path.s = PathRequester("选择文件夹……","d:/My Documents/Downloads/TDownLoad") If path <> "" GetAllFile(path) EndIf 写完这个小程序就要限制自己不对着电脑了!