3t 20:05 09-02-2011
Цитата:
Можно, но только уже не стандартными средствами TC, afaik. Например, [more=vbs скриптом]
Код: '==============================================================================
' В активной файловой панели TC открывает папку,
' полный путь которой отличается от папки в соседней файловой панели только буквой диска.
' http://forum.ru-board.com/topic.cgi?forum=5&topic=25394&start=1600#7
'
' Параметры вызова:
' "%T" {какую букву диска подставлять}
'
' Пример параметров в кнопке для вызова из TC:
' "%T" G
'
' Если второй параметр не задан, выводится запрос.
'
' Автор - Rodny
'==============================================================================
Option Explicit
Dim WSH, FSO, DiskLetter, TargetPath, NewPath
Set WSH = CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
' Получаем текущий путь в соседней панели
TargetPath = WSH.ExpandEnvironmentStrings(WScript.Arguments(0))
' Проверяем количество параметров в кнопке и задаём букву диска
If WScript.Arguments.Count = 1 Then
DiskLetter = InputBox("Введите букву диска", "Нужно указать букву диска")
Else
DiskLetter = WScript.Arguments(1)
End If
' Составляем новый путь
If DiskLetter <> "" Then
NewPath = DiskLetter & Right(TargetPath, Len(TargetPath)-1)
Else
MsgBox "Буква диска не задана, что Вам нужно - я не знаю.", vbOKOnly + vbExclamation, "Внимание!"
WScript.Quit
End If
' Если такая папка существует, открываем
If FSO.FolderExists(NewPath) Then
WSH.Run WSH.ExpandEnvironmentStrings("%COMMANDER_PATH%\totalcmd.exe") & " /O /S /L=" & NewPath
Else
MsgBox "Папки " & """" & NewPath & """" & " не существует!", vbOKOnly + vbExclamation, "Внимание!"
End If
Set WSH = Nothing
Set FSO = Nothing
WScript.Quit
Цитата:
Может быть можно жёстко задать букву диска, например G.
Можно, но только уже не стандартными средствами TC, afaik. Например, [more=vbs скриптом]
Код: '==============================================================================
' В активной файловой панели TC открывает папку,
' полный путь которой отличается от папки в соседней файловой панели только буквой диска.
' http://forum.ru-board.com/topic.cgi?forum=5&topic=25394&start=1600#7
'
' Параметры вызова:
' "%T" {какую букву диска подставлять}
'
' Пример параметров в кнопке для вызова из TC:
' "%T" G
'
' Если второй параметр не задан, выводится запрос.
'
' Автор - Rodny
'==============================================================================
Option Explicit
Dim WSH, FSO, DiskLetter, TargetPath, NewPath
Set WSH = CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
' Получаем текущий путь в соседней панели
TargetPath = WSH.ExpandEnvironmentStrings(WScript.Arguments(0))
' Проверяем количество параметров в кнопке и задаём букву диска
If WScript.Arguments.Count = 1 Then
DiskLetter = InputBox("Введите букву диска", "Нужно указать букву диска")
Else
DiskLetter = WScript.Arguments(1)
End If
' Составляем новый путь
If DiskLetter <> "" Then
NewPath = DiskLetter & Right(TargetPath, Len(TargetPath)-1)
Else
MsgBox "Буква диска не задана, что Вам нужно - я не знаю.", vbOKOnly + vbExclamation, "Внимание!"
WScript.Quit
End If
' Если такая папка существует, открываем
If FSO.FolderExists(NewPath) Then
WSH.Run WSH.ExpandEnvironmentStrings("%COMMANDER_PATH%\totalcmd.exe") & " /O /S /L=" & NewPath
Else
MsgBox "Папки " & """" & NewPath & """" & " не существует!", vbOKOnly + vbExclamation, "Внимание!"
End If
Set WSH = Nothing
Set FSO = Nothing
WScript.Quit
