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

Question

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

Answer 1

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
List1.Tag--附加在List控件上信息,在这里记录了三个文件的路径,还不如数组好用