这段代码执行怎么老蓝屏。是不是占内存太大?
ctListPhoto.ClearList '清除LIST内容。
For i = 0 To ctListProc.ListCount - 1
If ctListProc.CellCheck(i, 5) = 1 Then
Set objFolder = FSO.GetFolder(ctListProc.CellText(i, 6))
Set objFile = objFolder.Files
For Each objFile In objFile
ctListPhoto.AddItem ctListProc.CellText(i, 6) & "" & objFile.name + Chr(10) + objFile.name
Next
Set objFolder = Nothing
Set ojbFile = Nothing
End If
Next