Помогите, пожалуйста, поменять в свойствах файлов то, что в проводнике называется столбец "Название" на то, что в проводнике называется "Имя". Туда нашёл как поменять, а обратно никак не могу. Задача практическая, дело в том, что плеер выстраивает воспроизведение именно по свойству файла "Имя", а смартфон по свойству "Название". И очередность совпадает не всегда.
| Код |
|---|
Sub RenameFiles()
'
'Название
Dim sFile As Variant
Dim oShell: Set oShell = CreateObject("Shell.Application")
Dim oDir: Set oDir = oShell.Namespace("C:\Users\Alw\Desktop\Rename_YouTube\")
Sheets(1).Select
Cells.ClearContents
i = 1
For Each sFile In oDir.Items
Sheets(1).Cells(i, 1) = oDir.GetDetailsOf(sFile, 21)
i = i + 1
Next
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set catalog = fso.GetFolder("C:\Users\Alw\Desktop\Rename_YouTube\")
Set MASSIV = catalog.Files
' добавление даты загрузки в Имя
For Each Files In MASSIV
Set f1 = fso.GetFile(Files)
N = f1.Name
L = Len(N)
N1 = Mid(N, 1, L - 4)
En = Mid(N, L - 3, 4)
N2 = "2022-05-27 " + N1 + En
f1.Name = N2
Next
'
End Sub |
Изменено: - 28.05.2022 14:00:05
