求一个listitem.tag存放文件路径的例子

[liuqiquanliuqiquan]

求一个listitem.tag存放及读取文件路径的例子，越详细越好
（listbox控件中）

[SYSSZ]

Private Sub Form_Load()
List1.Tag = "C:\windows\regedit.exe|D:\1.xls|E:\光驱弹出或关闭(Ctrl+Alt+↓).exe"
List1.AddItem "C:\windows\regedit.exe"
List1.AddItem "D:\1.xls"
List1.AddItem "光驱弹出或关闭(Ctrl+Alt+↓).exe"
End Sub
Private Sub List1_DblClick()

vStr = Split(List1.Tag, "|")
s = vStr(List1.ListIndex)
MsgBox s
End Sub

[SYSSZ]

你刚才的贴子,我已用数组给你解决了

[liuqiquanliuqiquan]

多谢赐教 请多光照