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
