Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Ветеран


Contributor


Сообщения: 2735
Благодарности: 1699

Профиль | Отправить PM | Цитировать


NickM, ИМХО, чтобы работало, rem надо убрать. И можно обойтись без пустышки
Код: Выделить весь код
@Echo Off &Cls
	Set /A TimeSec=20
	:Begin
		FOR %%d In (F, G, H, I, J, K) DO >nul 2>&1 Dir /B /A:D  %%d:\
		>nul Timeout /T %TimeSec%
	GoTo :Begin
Exit /B
ИМХО, лучше сделать vbs-скрипт. Не будет постоянно висеть окно CMD. Убить скрипт можно в диспетчере задач (процесс wscript)
Код: Выделить весь код
Const TimeSec = 20
Dim x, i, D: D = Array("F", "G", "H", "I", "J", "K")

With CreateObject("Scripting.FileSystemObject")
    On Error Resume Next
    Do
        For Each i In D
            x = "": x = .GetFolder(i & ":\").Size
            ' MsgBox x & vbCr & i
        Next
        WSctipt.Sleep TimeSec * 1000
    Loop
    On Error GoTo 0
End With

-------
Даже самая сложная проблема обязательно имеет простое, лёгкое для понимания, неправильное решение. Каждое решение плодит новые проблемы.


Последний раз редактировалось megaloman, 29-05-2025 в 16:30.


Отправлено: 15:07, 29-05-2025 | #4