要给邮件添加多附件,用什么控件?:打开文件夹目录,选中多个文件,然后能自动把文件路径全部添到list1中
vb6要给邮件添加多附件,用什么控件:打开文件夹目录,选中多个文件,然后能把文件路径全部添到到我的list1中.
就是类似于比如qq网页邮箱添加附件时候一样的功能.它是可以一次添加多个的.不过我要的是文件路径名添加到我的list1中.
多谢!
[解决办法]
Private Sub Command1_Click()
Dim strFileName As String
Dim aryFileName() As String
Dim i As Long
Me.CommonDialog1.Flags = cdlOFNExplorer + cdlOFNAllowMultiselect
Me.CommonDialog1.ShowOpen
strFileName = Me.CommonDialog1.FileName
If Len(strFileName) > 0 Then
Debug.Print strFileName
aryFileName = Split(strFileName, vbNullChar)
For i = LBound(aryFileName) To UBound(aryFileName)
MsgBox aryFileName(i)
Next
End If
End Sub
注意，aryFileName 的第一项是所选文件所在的目录，不是第一个文件！
