VBNet - Форум - просто функція

Вопрос: просто функція Добавлено: 16.11.08 19:46

Автор вопроса: rUs_LAN | Web-сайт: localhost

дано: адресу до папки
необхідно: 1) знайти всі файли по масці
2) вивести дані про файли в лістбокс
Ответить

Ответы Всего ответов: 8

Номер ответа: 1 Автор ответа: Фенягz ICQ: 387437448 Вопросов: 7 Ответов: 202	Web-сайт: atauenis.narod.ru/ Профиль \| \| #1	Добавлено: 16.11.08 19:54
	Offtop: rUs_LAN, это русский форум! Пешите по-русски! Я, конечно, немного понимаю по-укра'\|'нски и щас переведу вопрос rUs_LAN :P Перевод: имеется: адрес к папке необходимо: 1) найти все файлы по маске 2) вывести эти файлы в ListBox --- rUs_LAN, не знаю как в VBA, но в VB 6 это делается DriveList, DirList, FileList (Или как их там) Ответить

Номер ответа: 2 Автор ответа: rUs_LAN Вопросов: 1 Ответов: 4	Web-сайт: localhost Профиль \| \| #2	Добавлено: 16.11.08 20:26
	Dir - Возвращает имя каталога или файла, совпадающее с определенным именем файла, передаваемым как строковый аргумент. Предназначена для нахождения одного или нескольких файлов на диске. у меня такой код Private Sub CommandButton1_Click() browse.Text = Dir(GetFolderPath("Виберіть папку", "d:\"), vbNormal) End Sub Function GetFolderPath(Optional ByVal Title As String = "Виберіть папку", Optional ByVal InitialPath As String = "c:\") As String GetFolderPath = "": PS = Application.PathSeparator With Application.FileDialog(msoFileDialogFolderPicker) .ButtonName = "Вибрати: .Title = Title: .InitialFileName = InitialPath <br> If .Show = -1 Then GetFolderPath = .SelectedItems(1): If Not Right$(GetFolderPath, 1) = PS Then GetFolderPath = GetFolderPath & PS End With End Function browse.Text = Dir(GetFolderPath("Виберіть папку", "d:\", vbNormal) - Возвращает им я файла а мне нужно штоби возвращало имя файлов по маске. HELP!!! Ответить

Номер ответа: 3 Автор ответа: Фенягz ICQ: 387437448 Вопросов: 7 Ответов: 202	Web-сайт: atauenis.narod.ru/ Профиль \| \| #3	Добавлено: 16.11.08 21:19
	rUs_LAN, ничем не могу помочь. Я ламер в VBA. Ответить

Номер ответа: 4 Автор ответа: Skywalker ICQ: 300-70-6пятьЪ Вопросов: 62 Ответов: 545	Web-сайт: iSkywalker.ru Профиль \| \| #4	Добавлено: 16.11.08 22:18
	dir выполняй в цикле, она каждый раз будет следующий файл возвращать Ответить

Номер ответа: 5 Автор ответа: rUs_LAN Вопросов: 1 Ответов: 4	Web-сайт: localhost Профиль \| \| #5	Добавлено: 16.11.08 22:33
	а как узнать количество елементов, еслы ето возможно Ответить

Номер ответа: 6 Автор ответа: Боцман ICQ: 295725312 Вопросов: 53 Ответов: 830	Web-сайт: Rus-Skipper.narod.ru Профиль \| \| #6	Добавлено: 16.11.08 22:42
	ПоГугли рекурсивный перебор файлов vb6 Ответить

Номер ответа: 7 Автор ответа: rUs_LAN Вопросов: 1 Ответов: 4	Web-сайт: localhost Профиль \| \| #7	Добавлено: 17.11.08 08:53
	Private Sub CommandButton1_Click() Dim i As Integer Dim dirvar As String browse.Text = GetFolderPath("Âèáåð³òü ïàïêó", "d:\") dirvar = Dir(browse.Text) Do While dirvar <> "" List.AddItem Text = dirvar dirvar = Dir(browse.Text) Loop End Sub run time error (( где ошибка Ответить

Номер ответа: 8 Автор ответа: rUs_LAN Вопросов: 1 Ответов: 4	Web-сайт: localhost Профиль \| \| #8	Добавлено: 17.11.08 21:11
	Private Sub b1_Click() optft.Hide Exit Sub End Sub Private Sub CommandButton1_Click() List.Clear browse.Text = GetFolderPath("Âèáåð³òü ïàïêó", "d:\") Do While Dir(browse.Text) <> "" List.AddItem Dir(browse.Text) Loop End Sub Function GetFolderPath(Optional ByVal Title As String = "Âûáåðèòå ïàïêó", Optional ByVal InitialPath As String = "c:\") As String GetFolderPath = "": PS = Application.PathSeparator With Application.FileDialog(msoFileDialogFolderPicker) .ButtonName = "Âûáðàòè": .Title = Title: .InitialFileName = InitialPath If .Show = -1 Then GetFolderPath = .SelectedItems(1): If Not Right$(GetFolderPath, 1) = PS Then GetFolderPath = GetFolderPath & PS End With End Function где ошибка Ответить

Страница: 1 |