遍历-初级程序-极语言教程

//窗体代码:

整数 窗体,列表;
程序资源 24,"清单.xml";
程序段 加载窗体
整数 左=(桌面.宽-259)>>1,上=(桌面.高-342)>>1;
窗体=创建窗口($100,程序.名称,"窗口标题",$10C80000,左,上,259,342,0,0,0,0);
列表=创建窗口($200,"listbox","列表框",$50210081,0,0,230,290,窗体,1,9,0);
窗体启动;读取消息
结束

 

//程序代码:

查找文件类 文件
程序段 窗体消息(窗口,消息,参数,数据)
    判断(消息)为 窗口关闭 停止
    否则{处理窗口(窗口,消息,参数,数据)}
结束;

程序段 窗体启动
    遍历("*.exe")
    读取消息
结束

程序段 遍历(路径)
    路径=查找文件(路径,文件)
    循环{
    发送消息(列表, 列表添加, 0,文件.名称)
    }(下个文件(路径,文件)=0)
    关闭查找(路径)
结束