sa
|
 Posted: Fri Feb 15, 2013 13:10 Post subject: |
 |
|
Bomm
Вот, набросал что-то на базе скрипта от Volniy.
| Code: | '===============================================================
' Описание: Выделяет файлы с датой/временем файла под курсором
' Параметр: %P%N
' Требования: Необходима регистрация WSH Helper for TC by Volniy
'===============================================================
Option Explicit
Dim List, TCS, Cnt, Buf, CurDir, FSO, Date, DateLen, TextClip
'============ Количество символов, учтываемых в дате/времени ===
DateLen = 8
'===============================================================
If WScript.Arguments.Count < 1 Then
MsgBox "Не указан параметр %P%N", vbOKOnly + vbCritical, "Внимание!"
WScript.Quit
End If
Set FSO = CreateObject("Scripting.FileSystemObject")
If FSO.FileExists(WScript.Arguments(0)) Then
Set TCS = CreateObject("TCScript.Helper")
With TCS
.LockTC True
TextClip = .GetTextFromClip
Date = Left(FSO.GetFile(WScript.Arguments(0)).DateLastModified, DateLen)
' MsgBox "Дата: " & Date, vbInformation, "Информация"
.SendCommand "cm_ClearAllFolders", True
.SendCommand "cm_SelectAllFiles", True
CurDir = .GetSrcPath
.SendCommand "cm_CopyFullNamesToClip", True
List = Split(.GetTextFromClip,vbNewLine)
For Cnt=LBound(List) To UBound(List)
If Left(FSO.GetFile(List(CNT)).DateLastModified, DateLen) = Date Then
If Len(CurDir) = 0 Then
Buf = Buf & List(Cnt) & vbNewLine
Else
Buf = Buf & Mid(List(Cnt), Len(CurDir) +2) & vbNewLine
End If
End If
Next
.SetTextToClip CStr(Buf)
.SendCommand "cm_LoadSelectionFromClip", True
' .GetSrcSelectedFiles
' MsgBox "Выделено файлов с датой файла под курсором: " & _
' (UBound(.GetSrcSelectedFiles) +1) & "." , vbInformation, "Завершено!"
.SetTextToClip(TextClip)
.LockTC False
End With
Set TCS = Nothing
Else
MsgBox "Надо указать файл!", vbOKOnly + vbExclamation,"Внимание!"
End If
Set FSO = Nothing
WScript.Quit |
Last edited by sa on Fri Feb 15, 2013 15:25; edited 1 time in total |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
