Всем привет.
Прошу подсказать.
Формирую реестр информации в эксель на основе файлов на сетевом ресурсе.
Вроде бы всё не плохо - перебирает макрос папки, находит нужные файлы и добавляет информацию о них в реестр, кроме момента, что до файлов, которые имеют адрес длиной выше 255 символов, как случайно заметил, добраться не могу, то есть информации нет в реестре. Потом уже понял в чём дело.
Архив на сетевом ресурсе, перемещать, переименовывать ни папки, ни файлы не могу.
Как можно решить проблемку?
Код:
Прошу подсказать.
Формирую реестр информации в эксель на основе файлов на сетевом ресурсе.
Вроде бы всё не плохо - перебирает макрос папки, находит нужные файлы и добавляет информацию о них в реестр, кроме момента, что до файлов, которые имеют адрес длиной выше 255 символов, как случайно заметил, добраться не могу, то есть информации нет в реестре. Потом уже понял в чём дело.
Архив на сетевом ресурсе, перемещать, переименовывать ни папки, ни файлы не могу.
Как можно решить проблемку?
Код:
| Код |
|---|
Sub Реестр()
SourceFolder = "\\lan\Архив\"
Set fso = CreateObject("scripting.filesystemobject")
Set curfold = fso.GetFolder(SourceFolder)
If Not curfold Is Nothing Then
For Each sfol_1 In curfold.SubFolders
If sfol_1.Name Like "*Линия*" Then
For Each sfol_2 In sfol_1.SubFolders
If sfol_2.Name Like "L*" Then
For Each sfol_3 In sfol_2.SubFolders
If sfol_3.Name Like "*-D-*" Then
For Each sfol_4 In sfol_3.SubFolders
If sfol_4.Name Like "*утвержден*" Then
For Each fil In sfol_4.Files
If fil.Name Like "*-D-*" Then
'добавление информации в реестр на основе найденного файла
End If
Next
End If
Next
End If
Next
End If
Next
End If
Next
End If
Set fil = Nothing: Set curfold = Nothing: Set fso = Nothing
End Sub |
Изменено: - 03.12.2024 16:01:19
(Исправил название Темы. Учтите на будущее)
