quote:
Win+Rcmd
cd <путь как папке с 1.5 тыс. файлов>
dir /b > filenames.txt
все норм только на диск d не переходит . в любую папку диска с пожалуйста а с d не получается.
cd /d
скорее просто D: набрать, без cd
просто d переходит в кореньдиска но никак дальше
ладно тупо на с скопирую да сделаю, спасибо
D:
Cd d:\temp
1000 '__ _ __""-2 -"__-2 '+R<м-ЁЕR_бЕRГ +а, ___ '+R<м-ЁЕЁ, __' 100, _ _ ь 19849, _R __R 2001.doc
1000 "' _ __""-2 -"__-2 '+R<м-ЁЕR_бЕRГ +а, ___ '+R<м-ЁЕЁ, __' 100, _ _ ь 19849, _R __R 2001.doc
1101 '__ _ __""-2 -"__-4 _ ва ЕR_бЕRГ +а, "_' _ ва ЕR_бЕR_R +а, __' 75, аГ_. ь 133', _R __R 2006.doc
1101 "' _ __""-2 -"__-4 _ ва ЕR_бЕRГ +а, "_' _ ва ЕR_бЕR_R +а, __' 75, аГ_. ь 133', _R __R 2006.doc
1102 '__ ' __""-2 -"__-1 + _Г_ <R_бЕRГ +а, _га -R_бЕRГ +а, _ +Г- + -ЁдR<м -ле <Ё-Ёc бЕ_. ьь 1310, 1313, 1317, 1318 + _Г_ <R_бЕRГ +а, бЕ_. ьь 462, 478.doc
1102 "_ ' __""-2 -"__-1 + _Г_ <R_бЕRГ +а, _га -R_бЕRГ +а, _ +Г- + -ЁдR<м -ле <Ё-Ёc бЕ_. ьь 1310, 1313, 1317, 1318 + _Г_ <R_бЕRГ +а, бЕ_. ьь 462, 478.doc
1103 '__ ' __""-2 -"__-2 '+R<м-ЁЕR_бЕRГ +а, ___ '+R<м-ЁЕЁ, _R R_R , _'' ь 6 - __˜ ь 2, __˜ ь 2 - _ _. ь 317, аГ_. ьь 2251, 2250, _R __R 2006.doc
1103 "' ' __"" - 2, -"__-2 '+R<м-ЁЕR_бЕRГ +а, ___ '+R<м-ЁЕЁ, _R R_R , _'' ь 6 - __˜ ь 2, __˜ ь 2 - _ _. ь 317, аГ_. ьь 2251, 2250, _R __R 2006.doc
Такие кракозябры выдает
в самой консоли "корпорация майкрософт" тоже такими же написано?
можно с помощью макроса в Ёкселе сделать...
Sub Файлопоиск()
Dim Path As String
Dim FileName As String
Range("A1").Activate
Path = "C:\" ' путь к файлам, т.е. С: заменяем на нужный каталог
FileName = Dir(Path & "*.doc") ' задаем маску поиска файлов, в данном случае доки
Do Until FileName = ""
ActiveCell.Value = FileName
Range("A" & ActiveCell.Row + 1).Activate
FileName = Dir
Loop
End Sub
или VBS...
Option Explicit
Dim fso, files, file, objFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set objFile = fso.CreateTextFile("C:\logScan.txt", True) 'тут будет результат
Set files = fso.GetFolder("c:\").Files 'директория, в которой ведецца поиск
For Each file In files
If LCase(fso.GetExtensionName(file)) = "doc" Then 'Расширение файла DOC
objFile.WriteLine fso.GetFileName(file)
End If
Next
MsgBox "Таки уже пегебгали файлы в кошегной винде"
objFile.Close
Set objFile = Nothing
Set files = Nothing
Set fso = Nothing
quote:
в самой консоли "корпорация майкрософт" тоже такими же написано?
нет
quote:
или VBS...
а макросы в экселе не на VBS пишутся что ли?
Sub Ôàéëîïîèñê()
Dim Path As String
Dim FileName As String
Range("A1").Activate
Path = "C:\123" '
FileName = Dir(Path & "*.doc")
Do Until FileName = ""
ActiveCell.Value = FileName
Range("A" & ActiveCell.Row + 1).Activate
FileName = Dir
Loop
End Sub
создал ваш макрос в экселе. запускаю пусто. куда генерятся результаты? может вам проще мою папку скинуть а вы мне конечный текстовый файл?
Path = "C:\123\" '
макросы в экселе пишутся на VBA (Visual Basic for Application) а VBS это Visual Basic Script
т.е. второй код копируем в текстовый файл, меняем расширение на VBS - профит
Ваш КЭП
quote:
Originally posted by sanitar9700:
1103 "' ' __"" - 2, -"__-2 '+R<м-ЁЕR_бЕRГ +а, ___ '+R<м-ЁЕЁ, _R R_R , _'' ь 6 - __˜ ь 2, __˜ ь 2 - _ _. ь 317, аГ_. ьь 2251, 2250, _R __R 2006.doc
Такие кракозябры выдает
chcp 1251
В самый верх добавьте
виндопроблемы такие занимательные %)
спасибо макрос в экселе выручил.
quote:
виндопроблемы такие занимательные
Тут люди знают толк в извращениях
Макросы на ёкселе для такой задачи - это вообще сильно.
quote:
Макросы на ёкселе для такой задачи - это вообще сильно.
Кто чем балуется.
Я маросы в экселе писал. (по работе надо было)
Для быстрого переиманования файлов написал макросы (в экселе 2003м работает файл)
Делал для удобства переименования кучи музыкальных файлов.
Получает список файлов из папки. (при желании из всех вложенных тоже)
Можно копировать в текст или так распечатать.
Можно обрезать несколько первых символов. (например отрезать номера от списка песен, как они на дисках бывают пронумерованы)
Добавить номера или произвольный текст в начале названия каждого файла.
Ну это типа певца к названию песни.
А для тех файлов названия которых записаны латиницей есть корявая замена английских букв на русские.
Потом проще разобрать что за название и поправить.
Удобная для меня вещь получилась.
есть. ценник 500
quote:
есть. ценник 500
опоздал кажись
quote:
спасибо макрос в экселе выручил.