CMD/BAT - отображение начала копирования

[stuntman77]

прошу помощи,что то совсем не соображу)))

есть такой вот код :


Цитата:



@ECHO off

COLOR 1E

:loop

@echo ╔═════════════════════════════════════════════════╗

@echo ║ УСТАНОВИТЕ USB НОСИТЕЛЬ В РАЗЪЕМ НА КЛАВИАТУРЕ! ║

@echo ╚═════════════════════════════════════════════════╝

@QWERTY.vbs

@set /P flash=

[stuntman77]

вопрос снимается,сделал как ниже,работает как и требовалось.



вот теперь мысль есть как это все компактно в один vbs\wsh соорудить?

а потом компилировать в один exe-ник.

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

@ECHO OFF

COLOR 1E

:loop

CLS  

@echo                    ╔═════════════════════════════════════════════════╗

@echo                    ║ УСТАНОВИТЕ USB НОСИТЕЛЬ В РАЗЪЕМ НА КЛАВИАТУРЕ!                   ║

@echo                    ╚═════════════════════════════════════════════════╝

@QWERTY.vbs

set /P flash=<"./l" || ping -n 4 localhost 1>nul && goto:loop

if exist /P flash=<"./l" ( 

@echo                    ╔═════════════════════════════════════════════════╗

@echo                    ║                 КОПИРОВАНИЕ...                                                                  ║

@echo                    ╚═════════════════════════════════════════════════╝

set datetemp=%date:~-10%

xcopy "c:\2011" "%flash%:\%datetemp%\" /H /E /G /q /R /Y || ping -n 4 localhost 1>nul && goto:loop

@echo                  ╔═════════════════════════════════════════════════════╗

@echo                  ║"***************" СКОПИРОВАНО УСПЕШНО!           ║ 

@echo                  ║"***************" СКОПИРОВАНО УСПЕШНО!      ║ 

@echo                  ║"***************" СКОПИРОВАНО УСПЕШНО!║ 

@echo                  ║"***************" СКОПИРОВАНО УСПЕШНО!                         ║

@echo                  ╚═════════════════════════════════════════════════════╝

@del "./l"

set Timer=5

ping -n %Timer% 127.0.0.1>nul 

@echo                    ╔═════════════════════════════════════════════════╗

@echo                    ║             ИЗВЛЕКИТЕ USB НОСИТЕЛЬ              ║

@echo                    ╚═════════════════════════════════════════════════╝

set Timer=15

ping -n %Timer% 127.0.0.1>nul

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

flash = ""

'Set fs = CreateObject("Scripting.FileSystemObject") 

Set fso = CreateObject("Scripting.FileSystemObject")

Set Drives = FSO.Drives 

For Each Drive In Drives

    if ((Drive.DriveType = 1) and (Drive.DriveLetter <> "A") and (Drive.DriveLetter <> "B") and Drive.IsReady) then 

        flash =  Drive.DriveLetter

        exit for

    end if

Next



'e:



Set f1 = fso.CreateTextFile("l", True)

f1.WriteLine flash

f1.Close