Переход в следующий каталог

Материал из TCKB 2.0
Перейти к:навигация, поиск
Q: Было бы полезным переходить в следующий каталог, не выходя из текущго. То есть вместо нажатия BackSpace, Вниз, Enter нажимать что-то вроде Ctrl+Alt+Вниз/Вверх, но просматривать содержимое папок.
A: Скрипт:


'(c) 2007, Volniy

Option Explicit
Dim TCS, D, prevD, FSO

Set TCS = CreateObject("TCScript.Helper")
Set FSO = CreateObject("scripting.filesystemobject")

TCS.SendCommand 2002 ' cm_GoToParent
prevD = TCS.GetSrcSelectedFiles(True)(0)
TCS.SendKeystroke "{DOWN}"
D = TCS.GetSrcSelectedFiles(True)(0)
If (FSO.FolderExists(D)=True) Then
If (StrComp(prevD,D,vbTextCompare)<>0) Then
TCS.SendCommand 2003 ' cm_GoToDir
Else
MsgBox "No more directories in the file panel!", vbExclamation, "Error!"
End If
Else
MsgBox "File is selected, no more directories!", vbExclamation, "Error!"
End If

Set TCS = Nothing
Set FSO = Nothing
WScript.Quit


Volniy