VBNet - Форум - Новое сообщение без темы

Вопрос: Новое сообщение без темы Добавлено: 30.05.03 18:29

Автор вопроса: Леонтий | ICQ: 172720720

Попробовал я дома это дело запустить, а оно не работает: пишет ошибку при вызове функции. Более того, в списке доступных функций ни Dir ни Dir$ нет-может надо подключить какую-нибудь библиотеку? В общем, помогите!
Ответить

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

Номер ответа: 1 Автор ответа: Padre ICQ: 346632205 Вопросов: 25 Ответов: 215	Web-сайт: localhost Профиль \| \| #1	Добавлено: 30.05.03 18:40
	О чём речь-то? Ответить

Номер ответа: 2
Автор ответа:

Леонтий

ICQ: 172720720

Вопросов: 3
Ответов: 4

Профиль | | #2

Добавлено: 30.05.03 18:51

Как узнать список папок в дирректории? Список файлов можно получить примерно таким способом:

Function ShowFolderList(path)

Set fileObject = CreateObject("Scripting.FileSystemObject")
Set allFiles = fileObject.GetFolder(path)
Set fc = allFiles.Files
For Each f In fc
Debug.Print "Имя " & f.Name
Debug.Print "Размер " & f.Size
Debug.Print "Создан " & f.DateCreated
Debug.Print "Изменен " & f.DateLastModified
Next

End Function

Но как узнать еще и список папок в директории?

Ответы

Всего ответов: 3

Номер ответа: 1
Автор ответа:

Emigrant

ответов: 5
вопросов: 1

добавлено: 28 май / 23:33

А не проще ли взять элемент ExplorerTree и смотреть себе.

Может тебе подойдет CommonDialog?

Номер ответа: 2
Автор ответа:

Дeнис

ответов: 22
вопросов: 10

добавлено: 29 май / 00:56

А без ФСО слабо чтоли? стандартными функциями ВБ?

например так:

генерит массив файлов или папок

Private Sub Form_Load()
    NumberFile = 0
    ReDim TestFiles(0)
    Dim NextFile As String
    Screen.MousePointer = 11
    ReDim TestFiles(1)
    NextFile = Dir$(App.Path & "\TBase\*.tsd") - здесь указывается путь к искомому файлу или папкам)))
    While NextFile <> ""
        NumberFile = NumberFile + 1
        ReDim Preserve TestFiles(NumberFile)
        TestFiles(NumberFile) = NextFile
        NextFile = Dir$
    Wend
    ViewInfo
    Screen.MousePointer = 0
End Sub

Извиняюсь. Я просто недавно на форуме, вот и ошибся-вместо "ответить на сообщение" нажал на "новое". А о чем речь-выше. Заранее спасибо за ответ

Ответить

Номер ответа: 3
Автор ответа:

hedgehog

ICQ: 175571327

Вопросов: 15
Ответов: 207

Web-сайт: ezh.ru
Профиль | | #3

Добавлено: 30.05.03 19:18

Если ты не в .NET'е, то Dir свободно отыщешь в Object Browser'e (VBA.FileSystem)

За .NET просто ничего сказать не могу, не интересовался есть ли у него это в его потрохах

Ответить

Номер ответа: 4 Автор ответа: Леонтий ICQ: 172720720 Вопросов: 3 Ответов: 4	Профиль \| \| #4	Добавлено: 30.05.03 19:34
	Так я уже искал. Он находит только CurDir, а ir-нет. Может я не там ищу? И еще-когда в VB пишешь имя функциии ставишь скобку, то появляется подсказка, какие переменные необходимы-а с ir этого не происходит. Что делать? Ответить

Номер ответа: 5 Автор ответа: Padre ICQ: 346632205 Вопросов: 25 Ответов: 215	Web-сайт: localhost Профиль \| \| #5	Добавлено: 30.05.03 22:12
	Можно решить задачу в лоб и брать список папок в дирректории из элемента управления DirListBox Ответить

Страница: 1 |