| Вопрос: ListBox и работа с каталогами | Добавлено: 23.12.07 16:53 |
Автор вопроса:  __Pavel__ | Web-сайт: ммм.сайта.НЕТ
|
|
Неподскажите как ListBox-у передать список папок находящихся в папке? Например если в папке C:\111\ есть папки: папка1, папка2, папка3 и т.д. то чтобы ListBox "заполнился" ими.
И можете подсказать как в VB.NET 2005 переименовать папку, проверить ее наличие, создать папку и удалить ее? Заранее спасибо! |
| Ответы | Всего ответов: 7 |
|
Номер ответа: 1 Автор ответа:  Sharp Лидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #1 | Добавлено: 23.12.07 17:50 |
|
System.IO.Directory
GetFiles, Move, Exists, CreateDirectory, Delete |
||
|
Номер ответа: 2 Автор ответа: Fatty Вопросов: 0 Ответов: 55 |
Профиль | | #2 | Добавлено: 24.12.07 01:38 |
|
Заполнить листбокс можно так:
Imports system Imports System.IO ' Namespace FattyWasHere Public Class Form1 Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click Me.Close() End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load With dlgDir .SelectedPath = "  :\" '// initial folder selected
End With Dim retFold As String Dim res As DialogResult = Me.dlgDir.ShowDialog() If res = Windows.Forms.DialogResult.OK Then retFold = Me.dlgDir.SelectedPath txtDir.Text = retFold Else Exit Sub End If Dim foldInfo() As FileSystemInfo = New DirectoryInfo(retFold).GetFileSystemInfos For k As Integer = 0 To foldInfo.Length - 1 Dim subFold As FileSystemInfo = foldInfo.GetValue(k) If subFold.Attributes = FileAttributes.Directory Then Me.lstFolders.Items.Add(subFold.Name) Else 'do nothing, or use recursion to get subfolders End If Next End Sub End Class dlgDir - FolderBrowserDialog txtDir - TextBox lstFolders - ListBox ~'J'~ |
||
|
Номер ответа: 3 Автор ответа: __Pavel__ Вопросов: 29 Ответов: 284 |
Web-сайт: Профиль | | #3 | Добавлено: 24.12.07 12:26 |
Вот упрощеный вариант того что написал выше Fatty, для новичков вроде меня 
Перед объявлением класса записываем: Imports system
Imports System.IO Потом в любом событии(Например: загрузка формы, нажатие кнопки и т.д.) записываем: Dim foldInfo() As FileSystemInfo = New DirectoryInfo("полный путь к папке"
 .GetFileSystemInfos
For k As Integer = 0 To foldInfo.Length - 1 Dim subFold As FileSystemInfo = foldInfo.GetValue(k) If subFold.Attributes = FileAttributes.Directory Then "Список".Items.Add(subFold.Name) End If Next |
||
|
Номер ответа: 4 Автор ответа: __Pavel__Вопросов: 29 Ответов: 284 |
Web-сайт: Профиль | | #4 | Добавлено: 24.12.07 12:39 |
|
Еще вопросик:
System.IO.Directory.Move 'перемещение
System.IO.Directory.Exists 'существует или нет System.IO.Directory.CreateDirectory 'создание System.IO.Directory.Delete 'удаление А КАК ПЕРЕИМЕНОВАТЬ ПАПКУ??????????? |
||
|
Номер ответа: 5 Автор ответа:  Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949 |
Web-сайт: Профиль | | #5 | Добавлено: 24.12.07 13:17 |
|
System.IO.Directory.Move 'перемещение
переместить с новым именем
|
||
|
Номер ответа: 6 Автор ответа: __Pavel__Вопросов: 29 Ответов: 284 |
Web-сайт: Профиль | | #6 | Добавлено: 24.12.07 13:24 |
|
ох ееееее.... во я тормоз
|
||
|
Номер ответа: 7 Автор ответа: xuserВопросов: 1 Ответов: 20 |
Профиль | | #7 | Добавлено: 11.02.08 08:25 |
| А Microsoft.VisualBasic.Rename method? | ||
Страница: 1 |