|
7.2节:如果连续选择多个根目录下的图形文件,例如f:\1.dwg和f:\2.dwg,系统会向列表框中添加如下的结果:
f:\\1.dwg
f:\\2.dwg
这明显是一个Bug,今天ahlzl提醒,赶快改了过来。
修改部分如下:
Private Sub cmdOpen_Click()
On Error GoTo errHandle
………
'向列表框中添加对象
Dim count As Integer
count = lstFile.ListCount
If Y = 1 Then
lstFile.AddItem FileNames(Y - 1), count
Else
For i = 1 To Y - 1
If StrComp(Right$(FileNames(0), 1), "\") = 0 Then '**增加
FileNames(i) = FileNames(0) & FileNames(i) '**增加
Else '**增加
FileNames(i) = FileNames(0) & "\" & FileNames(i)
End If '**增加
lstFile.AddItem FileNames(i), i - 1 + count
Next i
End If
errHandle:
End Sub |
|