Total Commander

LonerD писал(а):Сейчас проверил - на корне не отрабатывает (висит в процессах).

Он как раз отрабатывает, а не просто висит. Сравнивать только файлы в корнях - это для чего? Неужели ты отображаешь файлы без подкаталогов в корне?

Тут еще одна проблема возникла. Почему то на WinХР скрипт не работает, при использовании ничего не происходит.

Она не возникла. Я знал про неё.

Ссылка здесь уже приводилась.

Ссылочка битая похоже, можно перезалить clip?

На младших версиях в папке system32 лежит.

Если вы имеете в виду windows/system32 то в моей ХП такого файла нет (clip.exe)

hjiapex
Слово "младших" ни о чём не говорит?

Ну стал бы я такие вопросы озвучивать, будь мне все понятно?! Че за издевательство то такое? Что трудного перезалить маленький файлик на любой обменник? Нет же нужно поиграть на струнах моего мозга. Или это неотъемлемое условие на этом форуме?

А в голову не приходит мысль, что кто-то сейчас тоже на XP, и у него при себе этого файлика нет? Струны нужно лучше натягивать.

Младшие версии - все, что появились после XP - Vista, 7, 8, 10.
И не забываем про волшебное слово "google".

Flasher писал(а):Младшие версии - все, что появились после XP - Vista, 7, 8, 10.

Обычно младшие - это младшие по номеру, а не по возрасту

)
Ппц, я тут уже дистриб Win2000 начал расковыривать...

Просто уточню. Для ХП скрипт выглядит так? Что то мне подсказывает, что нет...

Код: Выделить всё

'===================================================================== 
' Выделение в панелях одноимённых файлов и/или папок 

' Параметры: "%P" "%T" <файлы/каталоги/всё: 1/2/3> 
'======================= Путь к утилите TCFS2 ======================== 
TCFS2 = """%COMMANDER_PATH%\Utils\TCFS2\TCFS2.exe""" 
Clip  = "%COMMANDER_PATH%\Utils\clip.exe"
'===================================================================== 
With CreateObject("WScript.Shell") 
  Clip = .ExpandEnvironmentStrings(Clip) 
  TempFile = CreateObject("Shell.Application")._ 
  NameSpace(.ExpandEnvironmentStrings("%TEMP%")).Self.Path & "\" & FSO.GetTempName 
  FSO.OpenTextFile(TempFile, 2, True, -1).Write List1 
  .Run "%comspec% /c """"" & Clip & """ < """ & TempFile & """""", 0, True 
  FSO.OpenTextFile(TempFile, 2, True, -1).Write List2 
  .Run """" & TCFS2 & """ /ef msg($0B,0) tcm(2033,0) send({TAB})",,True 
  .Run "%comspec% /c """"" & Clip & """ < """ & TempFile & """""", 0, True 
  .Run """" & TCFS2 & """ /ef tcm(2033,0) send({TAB}) msg($0B,1) redraw()",,True 
  .Run "cmd /c type|" & Clip,0 
End With : FSO.DeleteFile TempFile, 1 : D.RemoveAll : G.RemoveAll : Set D = Nothing 
Set G = Nothing : Set Items = Nothing : Set FSO = Nothing : WScript.Quit

И еще вопрос по поводу clip'a, что с ним делать? Просто скинуть в корень с программой? Или в настройках цвета и ИНИ файла тоже добавить по аналогии TCFS2?

hjiapex писал(а):Что то мне подсказывает, что нет...

Конечно, нет. Это только заменяемый кусок, но и в нём нужны небольшие правки в соответствии с данными в средней части исходника.

hjiapex писал(а):Просто скинуть в корень с программой?

Если его скинуть в system32, то исходник править вообще не нужно.

Flasher
То есть тем скриптом, который идет на семерку?

Если да, то вот я сижу у одного пользователя, скинул в windows/system32 clip.exe и при использовании ничего не происходит.

hjiapex
Замечание за нарушение правил форума: необоснованное полное цитирование скриптов вместо ссылки на них приравнивается в оверквотингу. Научитесь нормально оформлять сообщения. Код заменён ссылкой.

hjiapex
Советую проверить строку с TCFS2:
TCFS2 = """%COMMANDER_PATH%\Utils\TCFS2\TCFS2.exe"""
Промелькнула строка, где вместо трёх кавычек использовалась одна.

Total Commander

Сравнение файлов в панелях по именам