求助，真切求助，vb打开多个文件的问题

各位高手们，小弟近来做一项目，实为VB打开多个文件之问题烦恼，大牛们有vb打开多个文件的源码么，请发一份给我email好么，416226798@qq.com，谢啦！

---

怎么打开的？如果是OPEN打开多个文件，其文件号必须用FreeFile函数动态取得；如果是用SHELL打开，是否因为内存不够？你没有说清楚！

---

还是因为没有相应的程序打开文件！

---

谢谢大家的帮助，小弟先贴出自己的代码，请指正，我用的是getopenfilename函数
VB code:

Option Explicit
'这是从多文件名字符串分离出文件名的函数
Type DlgFileInfo
iCount As Long
sPath As String
sFile() As String
End Type
Private Type OPENFILENAME
lStructSize As Long
hwndOwner As Long
hInstance As Long
lpstrFilter As String
lpstrCustomFilter As Long
nMaxCustFilter As Long
nFilterIndex As Long
lpstrFile As String
nMaxFile As Long
lpstrFileTitle As String
nMaxFileTitle As Long
lpstrInitialDir As String
lpstrTitle As String
flags As Long
nFileOffset As Integer
nFileExtension As Integer
lpstrDefExt As String
lCustData As Long
lpfnHook As Long
lpTemplateName As String
End Type

Public Function GetDlgFileInfo(strFile As OPENFILENAME) As DlgFileInfo
Dim sPath, tmpStr As String
Dim sFile() As String
Dim iCount As Integer
Dim I As Integer
Dim strFilename As String
strFilename = strFile.lpstrFile
On Error GoTo ErrHandle

tmpStr = OpenFile.lpstrFileT