Поиск папки с пустым именем (Alt-255) и переименование силами VB / Visual Basic

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Поиск папки с пустым именем (Alt-255) и переименование силами VB

4 сообщений из 4, страница 1 из 1

Поиск папки с пустым именем (Alt-255) и переименование силами VB

#38360290

imishe

Участник

Сообщения: 147

Рейтинг: 0 / 0

Доброго предпятничного вечера, сайтожители )

Вопрос у меня такой:
Нельзя ли в корне диска выловить и переименовать папку с пустым именем (Alt-255)? Ни больше ни меньше )
sql.ru

...

Рейтинг:

0 / 0

08.08.2013, 23:15

| Ответить | Цитировать | Написать

Поиск папки с пустым именем (Alt-255) и переименование силами VB

#38360355

i45

Участник

Сообщения: 8 244

Рейтинг: 0 / 0

imisheДоброго предпятничного вечера, сайтожители )

Вопрос у меня такой:
Нельзя ли в корне диска выловить и переименовать папку с пустым именем (Alt-255)? Ни больше ни меньше )
sql.ru

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.

Private Sub CommandButton1_Click()
    Dim oFSO As New Scripting.FileSystemObject
    Dim oFolder As Folder
    
    
    For Each oFolder In oFSO.GetFolder("C:\").SubFolders
        If oFolder.Name = " " Then ' между "" вставь Alt^255, будет выглядеть как пробел.
            Debug.Print "#" & oFolder.Name & "#"
        End If
    Next oFolder
    
End Sub

...

Рейтинг:

0 / 0

09.08.2013, 06:26

| Ответить | Цитировать | Написать

Поиск папки с пустым именем (Alt-255) и переименование силами VB

#38361658

imishe

Участник

Сообщения: 147

Рейтинг: 0 / 0

i45,
Спасибо большое! )

Надо еще добавить:
On the Project menu, click Add Reference, and then click the COM tab.
Choose Microsoft Scripting Runtime from the Component Name list, and then click Select.

...

Рейтинг:

0 / 0

09.08.2013, 23:43

| Ответить | Цитировать | Написать

Поиск папки с пустым именем (Alt-255) и переименование силами VB

#38361704

i45

Участник

Сообщения: 8 244

Рейтинг: 0 / 0

imishe,

My pleasure

...

Рейтинг:

0 / 0

10.08.2013, 01:14

| Ответить | Цитировать | Написать

4 сообщений из 4, страница 1 из 1

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=60&fpage=54&tid=2156816]:	0ms
get settings:	10ms
get forum list:	12ms
check forum access:	3ms
check topic access:	3ms
track hit:	44ms
get topic data:	12ms
get forum data:	3ms
get page messages:	46ms
get tp. blocked users:	1ms
others:	264ms

total:	398ms