Question

易语言怎么把一个文件夹中的全部文件名加入列表框

Answer 1

.版本
2
.支持库
iext
.子程序
_按钮1_被单击
.局部变量
ID,
整数型
.局部变量
文件夹信息,
文件夹信息_
.局部变量
MP3路径,
文本型
.局部变量
路径,
文本型
.局部变量
索引,
整数型
.局部变量
音乐路径,
文本型,
,
"0"
.局部变量
计次,
整数型
路径
＝
取空白文本
(255)
ID
＝
浏览文件夹对话框_
(文件夹信息)
从列表id取路径_
(ID,
路径)
文件框1.目录
＝
路径
MP3路径
＝
寻找文件
(路径
＋
“\*.mp3”,
)
.判断循环首
(MP3路径
≠
“”)
输出调试文本
(MP3路径)
索引
＝
超级列表框1.插入表项
(,
,
,
,
,
)
超级列表框1.置标题
(索引,
0,
路径
＋
“\”
＋
MP3路径)
MP3路径
＝
寻找文件
(,
)
.判断循环尾
()
.计次循环首
(超级列表框1.取表项数
(),
计次)
加入成员
(音乐路径,
超级列表框1.取标题
(计次
－
1,
0))
.计次循环尾
()
播放MP3
(,
音乐路径)
.版本
2
.DLL命令
从列表id取路径_,
整数型,
"shell32.dll",
"SHGetPathFromIDListA",
,
,
.参数
结构指针,
整数型,
,
pIdl
.参数
路径,
文本型,
传址,
pszPath
.DLL命令
浏览文件夹对话框_,
整数型,
"shell32.dll",
"SHBrowseForFolderA",
,
,
.参数
浏览文件夹结构,
文件夹信息_
.版本
2
.数据类型
文件夹信息_,
,
,
BROWSEINFO
.成员
窗口句柄,
整数型,
,
,
hOwner
.成员
根目录,
整数型,
,
,
pidlRoot
.成员
显示名称,
文本型,
,
,
pszDisplayName
.成员
标题,
文本型,
,
,
lpszTitle
.成员
标志,
整数型,
,
,
ulFlags
.成员
回调函数地址,
整数型,
,
,
lpfn
.成员
回调函数参数,
整数型,
,
,
lParam
.成员
图像索引,
整数型,
,
,
iImage
列表框也是一样的,你换过来不就成了,文件筐1.目录报错是因为你没有添加该组件,请在设计窗口上拖出该组件