msgbox的标题是不是不可以动态取值?
我把上传成功的文件加入到了集合values里面,然后统计上传成功几个文件values.count作为标题,可是并没有显示values.count的值。
Dim fls() As String = dlg.FileNames
Dim Values As New List(Of String)
Dim ftp As new FTPClient
ftp.Host = "192.168.1.35"
ftp.Account = "tester"
ftp.Password = "tester"
e.Form.text = "所选文件上传中...."
Dim ss As String
For Each fl As String In dlg.FileNames
If (ftp.Upload(fl,Vars("zhygwjj") & "\" & Filesys.getName(fl))) = True Then
values.add(fl)
ss = ss & vbcrlf & fl
End If
Next
msgbox(values.Count)---这个统计的正确
Functions.Execute("listview")
e.Form.text = "版本目录文件list"
MessageBox.Show(ss,"恭喜你上传成功 & values.count & 个文件!,分别为:")-----没统计集合values元素的个数