level 7
流星侠客网
楼主
Private Sub Command3_Click()
Dim retBao As Long
Dim i As Integer
List3.Visible = True
List3.Clear
retBao = resPackage.OpenPackage(Text1.Text)
Debug.Print "fileindex=" & Fileindex
For i = 1 To resPackage.GetFileCount(retBao)
List3.AddItem resPackage.GetFileName(retBao, i ) & ",大小：" & resPackage.GetFileSize(retBao, i)
Next
End Sub
打开一个包，想把包里的文件列表到列表框，可是得不到文件名，只能得到文件大小。
@reity
