Orion9
|
Posted: Sat Feb 10, 2024 01:09 Post subject: |
|
|
jentoso wrote: | Orion9
А что именно не срабатывает? |
Да просто не работает это поле и все условия по нему.
Добавлено спустя 35 минут:
Quote: | В общем, надо смотреть, что он там запрашивает у системы, может на Win10 уже всё поменялось или в ТС 11.хх |
Да вроде обычный vbs-скрипт работает без проблем:
Code: | TOTALCMD#BAR#DATA
%COMMANDER_PATH%\Scripts\DriveType.vbs
%P%N
wscript.exe
DriveType
-1
|
Code: | If WScript.Arguments.Count = 0 Then
MsgBox "Не указаны параметры!", vbOKOnly + vbCritical, "Внимание!"
Wscript.Quit
End If
ps = WScript.Arguments(0)
Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
ShowDriveType(fs.GetDriveName(ps))
Sub ShowDriveType(drvpath)
Dim fs, d, s, t
Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetDrive(drvpath)
Select Case d.DriveType
Case 0: t = "Unknown"
Case 1: t = "Removable"
Case 2: t = "Fixed"
Case 3: t = "Network"
Case 4: t = "CD-ROM"
Case 5: t = "RAM Disk"
End Select
s = "Drive " & d.DriveLetter & ": - " & t
MsgBox s
End Sub |
|
|