用WIN32 API实现寻找当前目录下所有文件

hFile ＝ FindFirstFile (“*.*”, file_data) ' 开始寻找文件
.判断循环首 (hFile ≠ 0) ' 如果有文件，看看还能不能找到
fileName ＝ 到文本 (到字节集 (file_data.cFileName))
.如果真 (取反 (fileName ＝ “.” 或 fileName ＝ “..”))
' 因为每个目录实际上都有两个默认子目录，即‘.’和‘..’命令行中，
' 但是我们不需要这些点，所以我们把它屏蔽掉
pListBox.加入项目 (fileName, )
.如果真结束
.如果真 (FindNextFile (hFile, file_data) ＝ 假) ' 如果找不到了，跳出循环
跳出循环 ()
.如果真结束

.判断循环尾 ()
FindClose (hFile)