Поисковик файлов работает корректно не на всех ПК

@RostovWolf · Регистрация: 04.08.2012

Студворк — интернет-сервис помощи студентам

Всем привет! У меня возникла проблема, стоит 2012 студия, basic на framework 2.0, приложение запускается на всех машинах, но исправно выводит список и считает только на моем компе!

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Try
 
            For Each foundFile As String In IO.Directory.GetDirectories(My.Computer.FileSystem.SpecialDirectories.MyDocuments, "*", IO.SearchOption.TopDirectoryOnly)
                TextBox2.Text = TextBox2.Text + foundFile & vbCrLf
            Next
 
            '' For Each foundFile As String In IO.Directory.GetFiles(user + "\Documents", "*.txt", IO.SearchOption.TopDirectoryOnly)
            ''TextBox1.Text = TextBox1.Text + foundFile & vbCrLf
            '' Next
 
            ''  For Each foundFile As String In IO.Directory.GetFiles(user + "\Documents", "*.doc", IO.SearchOption.TopDirectoryOnly)
            ''TextBox1.Text = TextBox1.Text + foundFile & vbCrLf
            ''  Next
 
 
 
            Dim strdir = UBound(Split(TextBox2.Text, vbNewLine))
            TextBox3.Text = strdir
 
 
            For i = 0 To strdir
 
                For Each foundFile As String In IO.Directory.GetFiles(TextBox2.Lines(i), "*.doc", IO.SearchOption.AllDirectories)
                    TextBox1.Text = TextBox1.Text + foundFile & vbCrLf
                Next
 
                For Each foundFile As String In IO.Directory.GetFiles(TextBox2.Lines(i), "*.txt", IO.SearchOption.AllDirectories)
                    TextBox1.Text = TextBox1.Text + foundFile & vbCrLf
                Next
            Next
 
        Catch ex As UnauthorizedAccessException
        End Try
 
 
        Dim str = UBound(Split(TextBox1.Text, vbNewLine))
        TextBox4.Text = str

Вот результаты:
Мой компьютер:

Поисковик файлов работает корректно не на всех ПК

Любой другой компьютер:

В чем может быть проблема? В вкладке проекта "Безопасность" выставил Приложение с полным доверием, приложение где бы не запускалось, все время от администратора. Что не так? Или поиск по маске в папке Документы можно реализовать более простым образом?! Пожалуйста помогите!!!

@Юпатов Дмитрий · 24.05.2013, 11:25

Для тестов это:

VB.NET
1
Catch ex As UnauthorizedAccessException

замени на исключение общего вида

VB.NET
1
Catch ex As Exception

и внутрь блока Catch
впиши:
MsgBox(ex.tostring)
ну и погоняй на других машинах. По идее в блоке Try возникает какое-то исключение, но у тебя нет никакой его обработки...
Будешь иметь на руках текст сообщения об ошибке, тогда и думать надо.

@RostovWolf · 24.05.2013, 18:20 **[ТС]**

Сделал все как сказано, а вот и ошибка:

@RostovWolf · 24.05.2013, 18:32 **[ТС]**

Ну про эту ошибку я знал, на моем компе все норм запускалось, а на других выскакивала эта ошибка, но вот вопрос, как обойти эти папки, или дать программе права зайти в них?

@phantom96 · 24.05.2013, 18:34

Запуск от администратора используйте.

@RostovWolf · 24.05.2013, 19:07 **[ТС]**

Использую конечно, но все равно выдает ошибку

@Qgreg · 24.05.2013, 19:40

Сообщение от RostovWolf

Сделал все как сказано, а вот и ошибка:

Вложение 272315

Это конешно не совсем корректное решение но всё же.

В Windows Vista/7 имеется система защиты важных, с точки зрения ОС, файлов и папок от изменений, и все бы хорошо, но она может вызывать достаточно серьезные сложности при работе с операционной системой. Например, невозможно удалить, переименовать или изменить файлы, выяснилось, что некоторые программы отказываются устанавливаться, причем никакие известные методы борьбы с этим явлением - ни включение хорошо известного по Windows XP режима совместимости, ни пляски с бубном вокруг компьютера, ни даже такой очень эффективный новомодный метод разрешения проблем, как исполнение гопака под одобрительные возгласы "Так!" окружающих - не помогают.
'хз кто автор

Установить.reg

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Windows Registry Editor Version 5.00
 
[HKEY_CLASSES_ROOT\*\shell\runas]
@="Take Ownership"
"NoWorkingDirectory"=""
 
[HKEY_CLASSES_ROOT\*\shell\runas\command]
@="cmd.exe /c takeown /f \"%1\" && icacls \"%1\" /grant administrators:F"
"IsolatedCommand"="cmd.exe /c takeown /f \"%1\" && icacls \"%1\" /grant administrators:F"
 
[HKEY_CLASSES_ROOT\Directory\shell\runas]
@="Take Ownership"
"NoWorkingDirectory"=""
 
[HKEY_CLASSES_ROOT\Directory\shell\runas\command]
@="cmd.exe /c takeown /f \"%1\" /r /d y && icacls \"%1\" /grant administrators:F /t"
"IsolatedCommand"="cmd.exe /c takeown /f \"%1\" /r /d y && icacls \"%1\" /grant administrators:F /t"

Code
1
2
3
4
'файл:
cmd.exe /c takeown /f \"%1\" && icacls \"%1\" /grant administrators:F
'папка:
cmd.exe /c takeown /f \"%1\" /r /d y && icacls \"%1\" /grant administrators:F /t

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .

@RostovWolf 0 / 0 / 0 Регистрация: 04.08.2012 Сообщений: 12
	24.05.2013, 18:20 [ТС]
	Сделал все как сказано, а вот и ошибка: 0

@RostovWolf 0 / 0 / 0 Регистрация: 04.08.2012 Сообщений: 12
	24.05.2013, 18:32 [ТС]
	Ну про эту ошибку я знал, на моем компе все норм запускалось, а на других выскакивала эта ошибка, но вот вопрос, как обойти эти папки, или дать программе права зайти в них? 0

@phantom96 MЫW 124 / 109 / 9 Регистрация: 15.02.2013 Сообщений: 538
	24.05.2013, 18:34
	Запуск от администратора используйте. 0

@RostovWolf 0 / 0 / 0 Регистрация: 04.08.2012 Сообщений: 12
	24.05.2013, 19:07 [ТС]
	Использую конечно, но все равно выдает ошибку 0