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

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

12.01.2009, 18:19. Просмотров 2292. Ответов 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'
Горе случилось... На w2000 eng стояла MSDN (98), после дефрагментации MSDN -...

Нужен батник для сканирования папок и записи результатов в файл HTML (hypertext)
Прошу помочь в такой проблеме: Есть набор папок, в каждой из которых...

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

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

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

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

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

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

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

Почему иногда отслеживается нажатие на три клавиши сразу, а иногда нет
Доброй ночи, кто может объяснить почему иногда отслеживает нажатие на три...

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


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

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

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