Форум программистов, компьютерный форум, киберфорум
Наши страницы

Visual Basic

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 19, средняя оценка - 4.89
olasa
0 / 0 / 0
Регистрация: 14.08.2007
Сообщений: 6
#1

Код сканирования папок МСДН иногда виснет. - VB

12.01.2009, 18:19. Просмотров 2279. Ответов 0
Метки нет (Все метки)

Я взял код с МСДН:



Dim f, f1, sfk

Dim fso

Set fso = CreateObject("Scripting.FileSystemObject")

Set f = fso.GetFolder(FolderPath)

Set sfk = f.SubFolders

For Each f1 In sfk

ScanFolders f1.Path

List1.AddItem f1.Path

Next



Немного подправил под свои нужды вот так:



Public Function ScanFolders(FolderPath As String) As Variant

Dim f, f1, sfk, ReturnArray() As String, Counter As Double, TempReturn() As String, TempI As Double

Counter = 0



If Len(FolderPath) = 0 Then GoTo fails



On Error GoTo fails



Dim fso

Set fso = CreateObject("Scripting.FileSystemObject")

Set f = fso.GetFolder(FolderPath)

Set sfk = f.SubFolders

For Each f1 In sfk

ReDim Preserve ReturnArray(Counter) As String

ReturnArray(Counter) = f1.Path

Counter = Counter + 1



TempReturn = ScanFolders(f1.Path)



If TempReturn(0) <> "YSNOITEMS" Then

For TempI = LBound(TempReturn) To UBound(TempReturn)

ReDim Preserve ReturnArray(Counter) As String

ReturnArray(Counter) = TempReturn(TempI)

Counter = Counter + 1

Next TempI

End If

Next

fails:

If Counter = 0 Then

ReDim Preserve ReturnArray(Counter) As String

ReturnArray(Counter) = "YSNOITEMS"

End If

ScanFolders = ReturnArray

End Function



На некоторых компьютерах моих клиентов все работает нормально, а вот на некоторых код виснет... Понять не могу в чем дело! Может какие общие советы подскажете?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.01.2009, 18:19
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Код сканирования папок МСДН иногда виснет. (VB):

Ошибка в МСДН: 'CloseCollection g_ccolCollection.Open(collectionname)dwError=7' - VB
Горе случилось... На w2000 eng стояла MSDN (98), после дефрагментации MSDN - рухнула. При запуске пишет:-'ошибка hh.exe....' и...

Нужен батник для сканирования папок и записи результатов в файл HTML (hypertext) - CMD/BAT
Прошу помочь в такой проблеме: Есть набор папок, в каждой из которых расположены разные файлы (txt/doc/djvu/pdf/..). Нужно, с помощью...

Компьютер при исчислениях ненадолго виснет и иногда выбивает число nan - C++
Доброго времени суток! Помогите, пожалуйста, оптимизировать код. Дело в том, что компьютер при исчислениях ненадолго виснет и иногда...

Компьютер иногда не видит жесткий диск, не загружает ОС или просто виснет с синим экраном. - Компьютерное железо
Кратко суть проблемы: Начал у меня на днях комп глючить: то одного из двух дисков (оба - PATA) не увидит, то ХРюшку загрузит не с первого...

Виснет Outlook при синхронизации папок по IMAP - MS Outlook
Хорошего денька всем! Помогите пожалуйста советом. Начну немного издалека. Раньше пользовались почтой от masterhost, на exchange....

Виснет постоянно сеть, часто проподает сервачный диск, иногда даже пропинговать сервак не получается(сервак WS2003, 25 компов) - Администрирование Windows
виснет постоянно сеть, часто проподает сервачный диск, иногда даже пропинговать сервак не получается(сервак WS2003, 25 компов), на вирусы...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.01.2009, 18:19
Привет! Вот еще темы с ответами:

Почему код иногда выдаёт переполнение массива? - C#
Товарищи, почему выдаёт иногда выдаёт переполнение массива? using System; using System.Collections.Generic; using System.Linq; ...

Почему иногда отслеживается нажатие на три клавиши сразу, а иногда нет - C++
Доброй ночи, кто может объяснить почему иногда отслеживает нажатие на три кнопки сразу, а иногда нет. И как выйти с ситуации *( P.S. Пишу...

Openssl. Иногда вызов функций шифрования проходит нормально, иногда нет - C++
Всем привет! Использую библиотеку openssl для шифрования / дешифрования. Генерирую ключи следующим образом: RSA...

Почему иногда функции передается значение int, а иногда - нет? - C++
1 случай: void Function_1(int* &amp; rVarOne, int* &amp;rVarTwo) { /* Какие-то операции с указателями: rVarOne++; *rVarOne =...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru