举个列，我在文件列表框（FILE）中选择了三个文件，然后我想将所选择的文件名添加到列表框中（LIST），并且，在添加的过程中，能够记录下所有选择的文件的路径（呵呵，这一部好像我能弄出来，不过还是说说方法呵）。

小弟先谢谢各位高手了。

添加一个File控件，一个Label控件，两个Command控件，代码如下 Option Explicit

Private Sub Command1_Click() Dim i As Integer List1.Clear Label1.Caption = "文件路径：" & File1.Path For i = 0 To File1.ListCount - 1 If File1.Selected(i) = True Then List1.AddItem File1.List(i) 'Exit For End If Next End Sub

Private Sub Command2_Click() Unload Me End Sub

Private Sub Form_Load() '在属性窗口中将File1的MultiSelect属性设为 2 Label1.Caption = "文件路径：" Command1.Caption = "添加到ListBox" Command2.Caption = "退出(&X)" End Sub

版主，再教一个问题。 为何使用记录文件路径的功能，在显示的时候，当然选择的是硬盘根目录下，也就是说C盘下的文件，而不是C盘下某个目录中的文件的时候，路径上面显示的是两根“\”。这是何故啊。 能告诉解决方法吗？

[此贴子已经被作者于2004-09-04 18:09:00编辑过]

App.Path 得到的路径如果是根目录会有一个 \ ，所以要避免这个问题要稍加处理

Dim SysPath As String

SysPath=IIF(Len(App.Path)=3,App.Path,App.Path & "\")

这样得出来的地址总有一个 \ 在最后面

呵呵，小弟愚昧，还望兄弟能解释一下这一句是何意思？

“SysPath=IIF(Len(App.Path)=3,App.Path,App.Path & "\")”

再次感谢！~~~~~

SysPath=IIF(Len(App.Path)=3,App.Path , App.Path & "\") ---------------- -------- -------------- 判断条件 条件为真时 条件为假时

相当于

If Len(App.Path)=3 Then SysPath=App.Path Else SysPath=App.Path & "\" End If