Total Commander

Код: Выделить всё

@echo off
cls

:start
cls
echo.   1. 11                                                                                         
echo.   2. 12 

choice /c:12 /t:1,60 
if errorlevel 2 goto 12.bat
if errorlevel 1 goto 11.bat
goto end

:end

Код: Выделить всё

if exist 11.flg goto end

:start
del *.flg
if exist 1 ren 1 12
ren 11 1
echo 11>11.flg

:end                        
RUN.bat
exit

Код: Выделить всё

@echo off
cls
if not exist *.flg  goto create

:start
cls
echo.   1. 11
echo.   2. 12
echo.   3. EXIT

choice /c:123 /t:1,60
if errorlevel 3 goto exit
if errorlevel 2 goto 12_1
if errorlevel 1 goto 11_1

:11_1
if exist 11.flg goto run

if exist 12.flg del *.flg
if exist 1 ren 1 12
ren 11 1
echo 11>11.flg
goto run

:12_1
if exist 12.flg goto run

if exist 11.flg del *.flg
if exist 1 ren 1 11
ren 12 1
echo 12>12.flg
goto run

:create
md 11
cd 11
echo 11>test11.file
cd ..
md 12
cd 12
echo 12>test12.file
cd ..
goto start

:run
echo *****Тут запускается некий RUN.exe******

:exit
echo *****EXIT******
pause

exit

Код: Выделить всё

'===================================================================================
' Выбор рабочей папки
'
' Входные параметры:
' 1 - файл со списком рабочих папок;
' 2 - обрабатываемая папка;
' 3 и далее - выполняемая программа и её параметры.
'===================================================================================
Option Explicit
Dim Mess, FSO, WSH, FolderList, ProcFolder, Command, Folders, Text, i, UseFolder, M, F
Dim Choice
SetMess
Set FSO = CreateObject("Scripting.FileSystemObject")
Set WSH = CreateObject("WScript.Shell")
CheckParams
Text = FSO.OpenTextFile(FolderList, 1, False).ReadAll
Folders = Split(Text, vbNewLine)
UseFolder = ""
i = 0
For Each F In Folders
  If F <> "" Then
    i = i + 1
    F = GetPath(F)
    If Not FSO.FolderExists(F) Then UseFolder = F
    M = M & vbNewLine & CStr(i) & " - " & F
  End If
Next
If UseFolder <> "" And Not FSO.FolderExists(ProcFolder) Then
  MsgBox Mess(6) & UseFolder, vbCritical + vbOKOnly, Mess(0)
  Quit
End If
'If UseFolder = "" And FSO.FolderExists(ProcFolder) Then
'  MsgBox Mess(8), vbCritical + vbOKOnly, Mess(0)
'  Quit
'End If
M = Mid(M, Len(vbNewLine) + 1)
Do
  Choice = InputBox(Mess(7) & vbNewLine & vbNewLine & M, Mess(0))
  If Choice = "" Then Quit 0
  If Not IsNumeric(Choice) Then
    Choice = ""
  Else
    Choice = CInt(Choice)
    If Choice < 1 Or Choice > i Then Choice = ""
  End If
  If Choice = "" Then MsgBox Mess(8), vbExclamation + vbOKOnly, Mess(0)
Loop While Choice = ""
F = GetPath(Folders(Choice - 1))
If UseFolder <> "" Then
  If UseFolder <> F Then
    FSO.MoveFolder ProcFolder, UseFolder
    FSO.MoveFolder F, ProcFolder
  End If
Else
  If FSO.FolderExists(ProcFolder) Then FSO.DeleteFolder ProcFolder
  FSO.MoveFolder F, ProcFolder
End If

WSH.Run Command, 7, False
Quit 0

Sub SetMess
  Set Mess = CreateObject("Scripting.Dictionary")
  With Mess
    .Add 0,  "Выбор рабочей папки"
    .Add 1,  "Не указаны параметры!"
    .Add 2,  "Не указана обрабатываемая папка!"
    .Add 3,  "Не указана выполняемая команда!"
    .Add 4,  "Файл-список "
    .Add 5,  " не существует!"
    .Add 6,  "Обрабатываемая папка не существует." &_
             "Не существует рабочая папка - "
    .Add 7,  "Укажите вариант выбора папки:"
    .Add 8,  "Указанное значение некорректно!"
  End With
End Sub

'Проверка входных параметров
Sub CheckParams
  Dim l
  With WScript
    If .Arguments.Count = 0 Then
      MsgBox Mess(1), vbCritical + vbOKOnly, Mess(0)
      Quit
    End If
    If .Arguments.Count < 2 Then
      MsgBox Mess(2), vbCritical + vbOKOnly, Mess(0)
      Quit
    End If
    If .Arguments.Count < 3 Then
      MsgBox Mess(3), vbCritical + vbOKOnly, Mess(0)
      Quit
    End If
    FolderList = GetPath(.Arguments(0))
    If Not FSO.FileExists(FolderList) Then
      MsgBox Mess(4) & FolderList & Mess(5), vbCritical + vbOKOnly, Mess(0)
      Quit
    End If
    ProcFolder = GetPath(.Arguments(1))
    For l = 2 To .Arguments.Count - 1
      Command = Command & " " & .Arguments(l)
    Next
    Command = Mid(Command, 2)
  End With
End Sub

Function GetPath(pPath)
  GetPath = FSO.GetAbsolutePathName(WSH.ExpandEnvironmentStrings(pPath))
End Function

Sub Quit(pExitCode)
  Set WSH  = Nothing
  Set FSO  = Nothing
  Set Mess = Nothing
  WScript.Quit pExitCode
End Sub

Код: Выделить всё

TOTALCMD#BAR#DATA
C:\WHS\FolderChoice.vbs
C:\Test\FolderList.txt C:\Test\1 net send admin Привет
shell32.dll,87
Выбор рабочей папки


-1

Код: Выделить всё

C:\Test\11\
C:\Test\12\
C:\Test\13\