Private Sub Command3_Click()


' 设置CancelError为True。


With CommonDialog2
'重新打开软件，目录默认为上次打开的目录
.CancelError = True
On Error GoTo ErrHandler
' 设置过滤条件。
.Filter = "所有文件 (*.*)|*.*|文本文件" & _
"(*.txt)|*.txt|"
' 指定缺省的过滤条件索引。
.FilterIndex = 2
' 此“打开”对话框具有类似于资源管理器的对话框模板，
' 支持长文件名和多重选择，并显示“帮助”按钮。
.Flags = cdlOFNExplorer Or _
cdlOFNLongNames Or _
cdlOFNAllowMultiselect Or _
cdlOFNHelpButton
' 显示“打开”对话框。
.ShowOpen
Dim strPath As String
Dim strFileName() As String
' 调用GetMultiFiles方法，以获得文件的路径和文件名。
Call GetMultiFiles(.FileName, strPath, strFileName())
' 清除列表框
Combo3.Clear
End With
Dim i As Integer
' 通过下列循环将文件名及其全路径加入到列表框中。
For i = LBound(strFileName) To UBound(strFileName)
Combo3.AddItem strPath & "\" & strFileName(i)
Next i
Combo3.Text = Combo3.List(0)


Exit Sub

ErrHandler: ' 用户按了“取消”按钮。

Exit Sub

End Sub

点按钮，选择导入20个以下的文本文件，combo3能完全显示所有文件名和路径，包括中文和长文件名都可以完全显示。
但是超过20个文本文件，就会显示如下的乱码？302是最后的路径,下面的无论文件数还是文件名全都不显示,只显示一行：

C:\WINDOWS\Desktop\302\坤 |

请大家帮忙看看倒底什么原因？

[此贴子已经被作者于2006-11-9 19:31:41编辑过]