在listview对不带扩展名的文件没显示 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim ftp As New FtpClient

If Network.Ping("X.X.X.X", 1000) = False Then

ftp.Host = "X.X.X.X"

Else

ftp.Host = "X.X.X.X"

End If

ftp.Account = "X"

ftp.Password = "X"

Dim lvw As WinForm.ListView = Forms("需求文件上传FTP").Controls("ListView3")

lvw.Rows.Clear

lvw.Images.Clear

lvw.Images.LargeSize = New size(32, 32)

Dim ics As String() = {"swf", "accdb", "mdb", "psd", "png", "xls", "xlsx", "bmp", "rar", "jpg", "gif", "doc", "docx", "zip", "pdf", "txt", "ppt", "exe", "bin", "map", "other"} '定义扩展名数组

Dim kzms As String = "swf accdb mdb psd png xls xlsx bmp rar jpg gif doc docx zip pdf txt ppt exe bin map" '定义已知扩展名的文本串

For Each ic As String In ics

lvw.Images.AddImage(ic, ic & ".png", ic & ".png") '向listview里添加图标

'==============================以上是设置listview的代码============================

'==============================以下是生成listview的代码============================

Dim sts As List(Of String) = ftp.GetFileList(vars("ljwjj"))

If sts.Count > 0 Then '若有文件

For Each st As String In sts

Dim r As WinForm.ListViewRow = lvw.Rows.Add '增加一行

Dim Dot As Integer = st.LastIndexOf(".") '定义.的位置

Dim kzm As String = st.SubString(Dot + 1) '获取扩展名

r.text = st

If kzms.Contains(kzm) = True Then '若为已知扩展名

r.ImageKey = kzm '指定行的图标键值

Else

r.ImageKey = "other"

End If

'上传带扩展名的文件都正常显示，但上传不带扩展名的文件，没显示。

ftp.Close

if Array.IndexOf(ics,kzm) > -1 then

r.ImageKey = kzm '指定行的图标键值

Else

r.ImageKey = "other"

End If

Dim sts As List(Of String) = ftp.GetFileList(vars("ljwjj"))

If sts.Count > 0 Then '若有文件

For Each st As String In sts

Dim r As WinForm.ListViewRow = lvw.Rows.Add '增加一行

Dim Dot As Integer = st.LastIndexOf(".") '定义.的位置

Dim kzm As String = st.SubString(Dot + 1) '获取扩展名

r.text = st

If Array.IndexOf(ics, kzm) > -1 Then

r.ImageKey = kzm '指定行的图标键值

Else

r.ImageKey = "other"

End If

'不行啊。对不带扩展名在listview还是没显示。

End If

For Each st As String In sts

msgbox(st)

Dim r As WinForm.ListViewRow = lvw.Rows.Add '增加一行

Dim Dot As Integer = st.LastIndexOf(".") '定义.的位置

Dim kzm As String = st.SubString(Dot + 1) '获取扩展名

msgbox(kzm )

r.text = st

If Array.IndexOf(ics, kzm) > -1 Then

msgbox(1)

r.ImageKey = kzm '指定行的图标键值

Else

msgbox(2)

r.ImageKey = "other"

End If

'不行啊。对不带扩展名在listview还是没显示。

End If

1和2都没弹出。

文件是上传成功的。

说明前面代码出错了

For Each st As String In sts

msgbox(st)

Dim r As WinForm.ListViewRow = lvw.Rows.Add '增加一行

Dim Dot As Integer = st.LastIndexOf(".") '定义.的位置

msgbox(Dot )

Dim kzm As String = st.SubString(Dot + 1) '获取扩展名

msgbox(kzm )

r.text = st

带扩展名的都是没问题的。而且msgbox也是正常弹出。

现在有问题的是不带扩展名的。比如上传文件的名称就是default-config。这种文件上传是成功的但是在listview没显示。注：带扩展名的都是没问题的。

6楼调试弹出什么内容

带扩展名的文件。msgbox都是弹出正确的内容。

没带扩展名的，没弹出msgbox。

GetFileList只能获取有扩展名的文件

改为ftp1.GetDetailList

主题：在listview对不带扩展名的文件没显示