dim FileName as string=""‘定义存储文件路径的变量
for i=0 to ListBox1.Items.Count -1'
FileName=listbox1.items(i)
textbox1.AppendText(My.Computer.FileSystem.ReadAllText(FileName,System.Text.Encoding.Default))'读取文件并追加到textbox1文本框
next
自己弄个按钮,有条件可以设置几个判断文件是否存在、路径是否为空的条件。本人新学小白菜鸟,自己看能不能用,我只会vb.net,其他语言木办法