Эту траблу (перекодировку кириллических имён в кракозябрические) при работе со скриптами встречал неоднократно. При переключении раскладки - всё путём.
Эту траблу (перекодировку кириллических имён в кракозябрические) при работе со скриптами встречал неоднократно. При переключении раскладки - всё путём.
У меня соответствующий ключ в реестре изменен с незапамятных времен.
Однако, я думаю, что здесь другой случай, т.к. обычно проблемы возникают с функцией SendKeys, а здесь она не используется.
Вообщем, обращение к fa1con - есть ли разница при смене кодировки и если изменить ключ реестра, как указано по ссылке?
fa1con писал(а):Именно так: имя ресурса «рисунки» как «@8AC=:8», а каталог кириллицей нормально.
«@8AC=:8» это неверный перевод в ANSI-строку кириллической Unicode строки "рисунки" ( 0x40043804410443043D043A043804) как Latine Unicode, тоесть так как будто бы это изначально было 0x40003800410043003D003A003800. Известный глюк XP, заметный при копировании кириллицы через буфер обмена.
Нужен скрипт для копирования всех файлов из одной определенной папки в другую, с учетом времени создания файла, т.е. если дата создания файла меньше указанной, то копируем.
StasK
Не понял. Что делать ручками?
Alt+F7 -> Закладка "Дополнительно" -> "Не старше" или "Дата между" ... -> Начать поиск -> Файлы на панель -> Num * -> F5
При сохранении html странички Firefox’ом получается например: Сталин И.В. биография.htm и Сталин И.В. биография_files. Нужно при выделении файла html и нажатии кнопки на панели инструментов копировать/переместить и файл и папку. Такое возможно сделать с помощью скрипта?
Когда ангелу обрезают крылья, он учится летать на метле...
'==========================================================================
' Копирование выделенных файлов с соответствующими им (для *.html) папками
'
' Параметры вызова из TC:
' %L "%T"
'==========================================================================
Dim FSO, Fld, OTF, Rln
Set FSO = CreateObject("Scripting.FileSystemObject")
Set OTF = FSO.OpenTextFile(WScript.Arguments(0), 1)
Do While Not OTF.AtEndOfStream
Rln = OTF.ReadLine
If FSO.FileExists(Rln) Then
FSO.CopyFile Rln, WScript.Arguments(1)
Fld = FSO.GetBaseName(Rln) & "_files"
If FSO.FolderExists(Fld) Then
FSO.CopyFolder Fld, WScript.Arguments(1)
End If
ElseIf FSO.FolderExists(Rln) Then
FSO.CopyFolder Rln, WScript.Arguments(1)
End If
Loop
Set OTF = Nothing
Set FSO = Nothing
WScript.Quit
Но это можно сделать и с помощью TC. Для этого надо установить способ копирования проводником.
Кстати, может по этому поводу кто-нибудь запостит реквест Гислеру - сделать отдельную команду (типа cm_Copy) для копирования проводником (чтобы не переключать при необходимости режимы копирования)?