| View previous topic :: View next topic |
| Author |
Message |
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
 (Separately) Posted: Sat Sep 18, 2010 06:22 Post subject: |
 |
|
taravasya
Убрал буфер. |
|
| Back to top |
|
 |
Avada
Joined: 01 Aug 2008
Posts: 10420
Location: Россия, Саратов
|
| (Separately) Posted: Sat Sep 18, 2010 08:58 Post subject: |
|
|
Flasher
taravasya
Чем больше ссылок — тем лучше. Самая последняя на данный момент версия Хелпера на Народе (пока 90 дней).
_________________
Даже самая богатая фантазия
Не представит себе наши безобразия. |
|
| Back to top |
|
|
taravasya
Joined: 27 Mar 2010
Posts: 38
|
|
| Back to top |
|
|
HEXFIX
Joined: 25 Jun 2010
Posts: 173
Location: Калининград
|
|
| Back to top |
|
|
Tol!k
Joined: 01 Apr 2008
Posts: 1727
Location: Арзамас
|
|
| Back to top |
|
|
HEXFIX
Joined: 25 Jun 2010
Posts: 173
Location: Калининград
|
| (Separately) Posted: Wed Sep 22, 2010 11:54 Post subject: |
|
|
При использовании продвинутой версии вылетает окошко с ошибкой
Строка 13
Символ 1
Индекс выходит за пределы допустимого диапазона
Код 800A0009 |
|
| Back to top |
|
|
Tol!k
Joined: 01 Apr 2008
Posts: 1727
Location: Арзамас
|
| (Separately) Posted: Wed Sep 22, 2010 12:00 Post subject: |
|
|
Строка 13 это FileName=WScript.Arguments(0) ?
Параметры указал?
_____________________
Ненавижу спагетти-темы |
|
| Back to top |
|
|
HEXFIX
Joined: 25 Jun 2010
Posts: 173
Location: Калининград
|
| (Separately) Posted: Wed Sep 22, 2010 12:10 Post subject: |
|
|
Она самая
А какие параметры нужно указать? А главное как и где?  |
|
| Back to top |
|
|
Tol!k
Joined: 01 Apr 2008
Posts: 1727
Location: Арзамас
|
| (Separately) Posted: Wed Sep 22, 2010 12:25 Post subject: |
|
|
| Quote: | ' Параметры:
' {создаваемый файл} [{минимальное количество цифр номера}] |
Новый_файл.txt 2
в параметрах кнопки.
_____________________
Ненавижу спагетти-темы |
|
| Back to top |
|
|
HEXFIX
Joined: 25 Jun 2010
Posts: 173
Location: Калининград
|
| (Separately) Posted: Wed Sep 22, 2010 12:40 Post subject: |
|
|
Спасибо, всё работает  |
|
| Back to top |
|
|
bastol
Joined: 03 Oct 2010
Posts: 1
|
| (Separately) Posted: Sun Oct 03, 2010 10:34 Post subject: Нужен скрипт для создания ссылок |
|
|
Задача:
С помощью ТС выбрал дубликаты файлов, они на одной из панелей.
требуется скрипт, для создания жестких ссылок из дубликатных файлов.
Файлы могут быть с одинаковыми именами и одинаковым размером, но с разным содержимым.
проблема в том что таких файлов у меня куча, в одном из каталогов до 160 тыс файлов, при размере 12 байт....
Вот и получается потеря практически 1 Гб на пустом месте.
К сожалению, сам пока не могу реализовать эту идею, но очень нужно сейчас, а не потом когда все освою.
Заранее спасибо,
такой скрипт нужен всем - однозначно. |
|
| Back to top |
|
|
MVV
Joined: 15 Oct 2009
Posts: 4815
Location: Ростов-Дон
|
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Sun Oct 03, 2010 10:44 Post subject: |
|
|
bastol
Было. Там же в последнем посте приводилась ссылка на FindDupe.
Добавлено: На днях, кстати, выкладывал микропак, в состав которого вошла утилита DupeMerge, которая также выполняет аналогичную задачу. |
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Mon Oct 25, 2010 21:33 Post subject: |
|
|
| Code: | '=====================================================
' Переход на сменные накопители и переключение между ними
' Автор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) |
|
| Back to top |
|
|
Batya
Joined: 15 Dec 2004
Posts: 2227
Location: Москва, Россия
|
| (Separately) Posted: Tue Oct 26, 2010 12:16 Post subject: |
|
|
| Code: | '========================================================
' Последовательное переключение между дисками
' Параметры скрипта:
' [{Тип дисков}]
' Здесь {Тип дисков} может принимать значения:
' 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
|
_________________
Нет, я не сплю. Я просто медленно моргаю.
Last edited by Batya on Tue Oct 26, 2010 16:41; edited 2 times in total |
|
| Back to top |
|
|
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
