Поиск папки с пустым именем (Alt-255) и переименование силами VB
Формулировка задачи:
Доброго предпятничного вечера, сайтожители )
Вопрос у меня такой:
Нельзя ли в корне диска выловить и переименовать папку с пустым именем (Alt-255)? Ни больше ни меньше )
sql.ru
Вопрос у меня такой:
Нельзя ли в корне диска выловить и переименовать папку с пустым именем (Alt-255)? Ни больше ни меньше )
sql.ru
Решение задачи: «Поиск папки с пустым именем (Alt-255) и переименование силами VB»
textual
Листинг программы
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