2013-02-13 2 views
0

Я хочу отображать каталоги и файлы на моем FTP-сервере в ListView. Я новичок в ListViews, так кто-то, пожалуйста, помогите мне начать?ListView с FTP VB.net

Код:

Dim newSelected As TreeNode = e.Node 
     ListView1.Items.Clear() 
     Dim nodeDirInfo As DirectoryInfo = _ 
     CType(newSelected.Tag, DirectoryInfo) 
     Dim subItems() As ListViewItem.ListViewSubItem 
     Dim item As ListViewItem = Nothing 

     Dim dir As DirectoryInfo 
     For Each dir In nodeDirInfo.GetDirectories() 
      item = New ListViewItem(dir.Name, 0) 
      subItems = New ListViewItem.ListViewSubItem() _ 
       {New ListViewItem.ListViewSubItem(item, "Directory"), _ 
       New ListViewItem.ListViewSubItem(item, _ 
       dir.LastAccessTime.ToShortDateString())} 

      item.SubItems.AddRange(subItems) 
      ListView1.Items.Add(item) 
     Next dir 
     Dim file As FileInfo 
     For Each file In nodeDirInfo.GetFiles() 
      item = New ListViewItem(file.Name, 1) 
      subItems = New ListViewItem.ListViewSubItem() _ 
       {New ListViewItem.ListViewSubItem(item, "File"), _ 
       New ListViewItem.ListViewSubItem(item, _ 
       file.LastAccessTime.ToShortDateString())} 

      item.SubItems.AddRange(subItems) 
      ListView1.Items.Add(item) 
     Next file 
+0

что вы наделали? – spajce

+0

Я пытался подключиться к нему .. и он работал, но я получаю все файлы и никаких каталогов? Теперь я отправлю свой код. – Kraxed

+0

'TreeView' или' ListView'? – SysDragon

ответ

0

Если нет каталогов не добавляются к Listview, это, вероятно, потому, что nodeDirInfo.GetDirectories пуст. Установите контрольную точку и проверьте ее содержимое. Это может не иметь никакого отношения к самому ListView. Существуют ли какие-либо подкаталоги в пути NewSelected.Tag?

Смежные вопросы