Batya
|
 Posted: Thu Aug 12, 2010 10:43 Post subject: |
 |
|
Flasher
Примерно так:
| Code: | '=====================================================
' Открытие в TC текущей папки в плагине NTFS4TC
'
' Параметры:
' "%P"
'
' Автор - Batya
'=====================================================
Option Explicit
Dim FSO, WSH, D, i, Path, NewPath, FS, TCPath, Drive
Set FSO = CreateObject("Scripting.FileSystemObject")
Set WSH = CreateObject("WScript.Shell")
Path = WScript.Arguments(0)
Drive = UCase(Left(FSO.GetDriveName(Path), 1))
i = 0
NewPath = ""
For Each D In FSO.Drives
On Error Resume Next
FS = D.FileSystem
If (Err.Number = 0) And (FS = "NTFS") Then
If UCase(D.DriveLetter) = Drive Then
NewPath = "\\\NTFS\I" & CStr(i) & " " & D.DriveLetter & ": (" & D.VolumeName & ")" & Mid(Path, 3)
Exit For
End If
i = i + 1
End If
On Error GoTo 0
Next
If NewPath = "" Then
MsgBox "Файловая система не поддерживается!", vbCritical+vbOKOnly, "Ошибка"
Else
TCPath = WSH.ExpandEnvironmentStrings("%Commander_Path%") & "\totalcmd.exe"
'MsgBox """" & TCPath & """ /S /O /L=""" & NewPath & """"
WSH.Run """" & TCPath & """ /S /O /L=""" & NewPath & """", 1, True
End If
Set D = Nothing
Set WSH = Nothing
Set FSO = Nothing
WScript.Quit 0
|
Полностью проверить не могу - плагин не установлен.
_________________
Нет, я не сплю. Я просто медленно моргаю.
Last edited by Batya on Thu Aug 12, 2010 15:36; edited 2 times in total |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
