[已解决][求助]请老师帮助解决对文件夹里文件名进行判断‘结果放在列表框里

zzh49

老师好！请帮助解决文件夹里文件名进行判断，结果放在列表框的复选框里。
具体情况见附件中工作簿内说明。
附件： 文件管理.rar (46.29 KB, 下载次数: 3)

2012-3-13 17:28 上传

点击文件名下载附件
谢谢！！！

最佳答案

月排行榜 / 总排行榜

happym8888

2012-3-13 22:41

Sub 打开窗体()
UserForm1.Show 0
MyFilename = Dir(ThisWorkbook.Path & "\文件存放处\*.doc")
Do While Len(MyFilename) <> 0
For i = 1 To UserForm1.ListView2.ListItems.Count
If Left(MyFilename, Len(MyFilename) - 4) = UserForm1.ListView2.ListItems(i).SubItems(1) Then UserForm1.ListView2.ListItems(i).Checked = True
Next
MyFilename = Dir
Loop
End Sub


文件管理.rar (45.2 KB, 下载次数: 25)

2012-3-13 22:43 上传

点击文件名下载附件

跳转到最佳答案楼层

happym8888

Sub 打开窗体()
UserForm1.Show 0
MyFilename = Dir(ThisWorkbook.Path & "\文件存放处\*.doc")
Do While Len(MyFilename) <> 0
For i = 1 To UserForm1.ListView2.ListItems.Count
If Left(MyFilename, Len(MyFilename) - 4) = UserForm1.ListView2.ListItems(i).SubItems(1) Then UserForm1.ListView2.ListItems(i).Checked = True
Next
MyFilename = Dir
Loop
End Sub


文件管理.rar (45.2 KB, 下载次数: 25)

2012-3-13 22:43 上传

点击文件名下载附件

zzh49

happym8888 发表于 2012-3-13 22:41
Sub 打开窗体()
UserForm1.Show 0
MyFilename = Dir(ThisWorkbook.Path & "\文件存放处\*.doc")

感谢老师的帮助，问题解决得很好。
谢谢！！！