vb 得到文件路径

我想设计一个程序，当用Dialog一次打开多个文件时，获得这些文件的完整路径，并将获得的路径写入到程序所在文件夹下的st.ini文件中
1.当St.ini文件不存在时自动建立
2.每次运行程序后从st.ini中获取路径信息并将他们用AddItem的方法添加到List1中
3.当单击list1 中的列表时，Label1.显示单击list1上反白选择的文字。

“当用Dialog一次打开多个文件”————你这里的Dialog指的是通用的OpenDialog“打开”对话框吗？

这样做：
引用Common Dialog 控件库。
在窗口上添加一个List1，一个Label1，两个按钮Command1和Command2，一个ComDlg控件命名为CD1。

然后加入以下代码：

Option Explicit

Private Sub Command1_Click()
  CD1.Flags = cdlOFNAllowMultiselect Or cdlOFNExplorer
  CD1.ShowOpen
  If CD1.FileName = "" Then Exit Sub
  Dim Str1 As String
  Dim Ary1() As String

  Str1 = CD1.FileName
  Ary1 = Split(Str1, Chr(0))

  If UBound(Ary1) = 0 Then
    ReDim Preserve Ary1(1)
    Dim n1 As Long
    n1 = InStrRev(Ary1(0), "\")
    Ary1(1) = Mid(Ary1(0), n1 + 1)
    Ary1(0) = Left(Ary1(0), n1)
  End If

  Dim s1 As Long, Apath1 As String