VFP中怎样利用WIN32API函数实现系统文件名列表

主题：VFP中怎样利用WIN32API函数实现系统文件名列表

zwc0215 [专家分：0] 发布于 2008-06-13 16:25:00

在VFP中可以利用WIN32API函数实现系统文件夹列表，但能不能更进一步，实现系统文件名列表！

沙发

homayzh [专家分：7040] 发布于 2008-06-13 22:22:00

楼主的意思是，如果系统是XP，
想得到
c:\windows\system32
目录下的所有文件名？？
用DOS命令
dir c:\windows\system32 > list.txt

VFP 命令也可
dir c:\windwos\system32 to list.txt

板凳

zwc0215 [专家分：0] 发布于 2008-06-15 10:18:00

谢谢homayzh的回复，但不是我想要的。
在VFP中，不但想要得到文件名的列表，还想在列表中可以任意选中某文件。
例如：我想要打开d:\dnbpds\dbf\dnbpy01.dbf。在文件名列表怎样选中？

3 楼

homayzh [专家分：7040] 发布于 2008-06-15 11:57:00

给表单添加一个列表框 list1

把list1 的 RowSourceType 设置为 7 - 文件

thisform.list1.RowSourceType = 7

在list1双击时 DblClick

WAIT WINDOW this.Value NOWAIT

4 楼

zwc0215 [专家分：0] 发布于 2008-06-16 10:07:00

OK!
谢谢3楼

5 楼

cbl518 [专家分：57140] 发布于 2008-06-16 15:21:00

thisform.list1.RowSource="c:\windows\system32\*.*"
thisform.list1.RowSourceType = 7

6 楼

cbl518 [专家分：57140] 发布于 2008-06-16 15:23:00

thisform.list1.RowSource=GETENV("windir")-"\system32\*.*"
thisform.list1.RowSourceType = 7

7 楼

cbl518 [专家分：57140] 发布于 2008-06-16 15:30:00

thisform.list1.RowSource="d:\dnbpds\*.dbf"
thisform.list1.RowSourceType = 7

您尚未登录，请登录后再回复。点此登录或注册