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

Материал из 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

Личные инструменты
Реклама