Script Request

[Flasher]

taravasya
Убрал буфер.

[Avada]

Flasher
taravasya
Чем больше ссылок — тем лучше. Самая последняя на данный момент версия Хелпера на Народе (пока 90 дней).

[taravasya]

Бессрочная:
ftp://photomir.dn.ua/tools/tcwshelp_b11Plus.rar

[HEXFIX]

Здравствуйте! Скрипт создания текстового файла с содержимым буфера обмена заменяет русские буквы на знаки вопроса. Как можно поправить?

[Tol!k]

HEXFIX
Продвинутая версия нормально работает?
Кроме того, есть кнопки http://forum.wincmd.ru/viewpost.php?p=53362 и http://forum.wincmd.ru/viewpost.php?p=51907





_____________________
Ненавижу спагетти-темы

[HEXFIX]

При использовании продвинутой версии вылетает окошко с ошибкой
Строка 13
Символ 1
Индекс выходит за пределы допустимого диапазона
Код 800A0009

[Tol!k]

Строка 13 это FileName=WScript.Arguments(0) ?
Параметры указал?






_____________________
Ненавижу спагетти-темы

[HEXFIX]

Она самая
А какие параметры нужно указать? А главное как и где?

[Tol!k]

' Параметры:
' {создаваемый файл} [{минимальное количество цифр номера}]

Новый_файл.txt 2
в параметрах кнопки.


_____________________
Ненавижу спагетти-темы

[HEXFIX]

Спасибо, всё работает

[bastol]

Задача:

С помощью ТС выбрал дубликаты файлов, они на одной из панелей.
требуется скрипт, для создания жестких ссылок из дубликатных файлов.

Файлы могут быть с одинаковыми именами и одинаковым размером, но с разным содержимым.

проблема в том что таких файлов у меня куча, в одном из каталогов до 160 тыс файлов, при размере 12 байт....
Вот и получается потеря практически 1 Гб на пустом месте.

К сожалению, сам пока не могу реализовать эту идею, но очень нужно сейчас, а не потом когда все освою.

Заранее спасибо,
такой скрипт нужен всем - однозначно.

[MVV]

С помощью ТС выбрал дубликаты файлов, они на одной из панелей.
требуется скрипт, для создания жестких ссылок из дубликатных файлов.

...

такой скрипт нужен всем - однозначно.

Есть сторонняя программа FindDupe, которая именно этим и занимается - ищет дубликаты и заменяет их жесткими ссылками.

Предупреждение. При замене дубликатов жесткой ссылкой и последующей праве файла-дубликата оригинал тоже будет изменен!

[Flasher]

bastol
Было. Там же в последнем посте приводилась ссылка на FindDupe.
Добавлено: На днях, кстати, выкладывал микропак, в состав которого вошла утилита DupeMerge, которая также выполняет аналогичную задачу.

[Flasher]

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

'=====================================================
' Переход на сменные накопители и переключение между ними
' Авторcтво: по мотивам скрипта Batya
'=====================================================
Option Explicit
Dim FSO, WSH, D, Disk, TCPath, Drive
Set FSO = CreateObject("Scripting.FileSystemObject")
Set WSH = CreateObject("WScript.Shell")
Drive   = UCase(FSO.GetDriveName(WSH.CurrentDirectory))
For Each D In FSO.Drives
  If D<>"A:" And D.DriveType=1 And UCase(D.Path)<>Drive Then
      Disk = D.Path & "\"
     Exit For
  End If
  On Error GoTo 0
Next
  TCPath  = WSH.ExpandEnvironmentStrings("%Commander_Path%")_
 & "\totalcmd.exe"
WSH.Run """" & TCPath & """ /S /O /L=""" & Disk & """", 1, True
Set D   = Nothing
Set WSH = Nothing
Set FSO = Nothing
WScript.Quit 0

Плюс - быстрый доступ в флешкам, внешним хардам при заваленной панели дисков из виртуальных, сетевых и жёстких томов.
Минус - переключается только между двумя первыми см. накопителями. (тут, конечно, не помешает помощь Batya)

[Batya]

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

'========================================================
' Последовательное переключение между дисками

' Параметры скрипта:
' [{Тип дисков}]
' Здесь {Тип дисков} может принимать значения:
' 1 - тома сменных накопителей;
' 2 - тома жёстких дисков;
' 3 - сетевые диски;
' 4 - оптические приводы;
' 5 - виртуальные диски.

' Авторcтво: Flasher, Batya
'========================================================
Option Explicit
'================ Изменяемые параметры ==================
Const DefaultDriveType = 1 'Тип дисков по умолчанию
'========================================================
Dim FSO, WSH, D, Drive, Flag, DriveType
Set FSO   = CreateObject("Scripting.FileSystemObject")
Set WSH   = CreateObject("WScript.Shell")
DriveType = DefaultDriveType
If WScript.Arguments.Count > 0 Then _
  DriveType = CInt(WScript.Arguments(0))
Drive = UCase(FSO.GetDriveName(WSH.CurrentDirectory))
Flag  = False
For Each D In FSO.Drives
  If Flag Then
    If CheckDrive Then
      GoToDrive(D.Path & "\")
      Quit
    End If
  Else
    Flag = (UCase(D.Path) = Drive)
  End If
Next
'Если текущий диск последний, начнём сначала
For Each D In FSO.Drives
  If CheckDrive Then
    GoToDrive(D.Path & "\")
    Quit
  End If
Next

'Подходящих по условиям дисков нет. Выходим
Quit

Sub Quit
  Set D   = Nothing
  Set WSH = Nothing
  Set FSO = Nothing
  WScript.Quit 0
End Sub

Function CheckDrive
  CheckDrive = ((D <> "A:") And D.IsReady And (D.DriveType = DriveType) And (UCase(D.Path) <> Drive))
End Function

Sub GoToDrive(pDrive)
  Dim TCPath
  TCPath = WSH.ExpandEnvironmentStrings("%Commander_Path%")
  WSH.Run """" & TCPath & "\totalcmd.exe"" /S /O /L=" & pDrive, 1, True
End Sub