Проверка свободного места на диске в cmd

@denisk37 · Регистрация: 16.03.2013

Студворк — интернет-сервис помощи студентам

Пользуясь подсказками Dragokas и яндекса сделал для себя такую штуку freespace.cmd
после её запуска получаю файлик freespace.cmd.txt:

Windows Batch file
1
2
3
4
Free space C:  128 Gb of  160 Gb
Free space D:  410 Gb of  500 Gb
Free space E:  16 Gb of  20 Gb
Free space F:  1038 Gb of  1479 Gb

Сам командник:

Windows Batch file
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
@echo off
setlocal enableextensions enabledelayedexpansion
echo.>%0.txt
 for %%j in (C D E F G H I J K L M N O P Q R S T U V W X Y Z) do (
 rem echo %%j
 
 
set sFreeSize=0
set /a c=0
for /f "skip=1 tokens=2 delims=:" %%i in ('fsutil volume diskfree %%j:') do (
  set /a c+=1
  rem echo !c! %%i
  if !c!==1 set sFreeSizeOf=%%i
  if !c!==2 set sFreeSize=%%i
)
 
if NOT !sFreeSize!==0 echo Free space %%j: !sFreeSize:~0,-9! Gb of !sFreeSizeOf:~0,-9! Gb>>%0.txt
rem :~0,-9
 )
endlocal

p.s.1. дальше его хватаю и отправляю себе на мыло zerat-кой
p.s.2. Размеры взяты грубо и формально неправильно: перевод в Gb ведется тупо обрезанием последних 9-ти цифорок. Но дает общую картину.

@Angry Old Man · 24.12.2024, 07:48

vampir551, Могу предположить, что Вы плохо скопировали код. Копирую код с портала, запускаю - у меня работает.

Еще раз проанализировал код, сделал одно изменение для повышения надежности (если на диске меньше гига).

Windows Batch file
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
@Echo Off &Cls
 
    Set /A Space=21475 &Rem 20Г=21474'836480 байт усекли на 6 разрядов
 
    FOR /F "tokens=1,2* delims=: " %%i In ('"WMIC LogicalDisk where DriveType=3 Get FreeSpace, Name, Size |Find ":""') DO (
        Set "S=%%i
        Call Set "Fsize%%j=%%S:~0,-6%%"
    )
    Echo Free disk space Mbyte bytes on disks: &Set "Fsize"
 
    Set "Disk="
    If "%Disk%"=="" If Not "%FsizeE%"=="" If %FsizeE% GTR %Space% Set "Disk=E" 
    If "%Disk%"=="" If Not "%FsizeD%"=="" If %FsizeD% GTR %Space% Set "Disk=D" 
    If "%Disk%"=="" If Not "%FsizeC%"=="" If %FsizeC% GTR %Space% Set "Disk=C" 
 
    If "%Disk%"==""  (Echo There is not enough disk space. &Pause &Exit /B 2)
 
    Echo. &Call Echo Here we make the necessary utility on the %Disk% (FreeSpace=%%Fsize%Disk%%% Mbyte)
Pause
Exit /B

Файл прилагаю, уберите только расширение .txt и запустите без каких-либо изменений.

@Angry Old Man · 24.12.2024, 08:36

vampir551, Мой предыдущий пост не решает Вашу проблему, проигнорируйте его
Исправленный вариант (у Вас мало места на дисках)

Windows Batch file
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
@Echo Off &Cls
 
    Set /A Space=21475 &Rem 20Г=21474'836480 байт усекли на 6 разрядов
 
    FOR /F "tokens=1,2* delims=: " %%i In ('"WMIC LogicalDisk where DriveType=3 Get FreeSpace, Name, Size |Find ":""') DO (
        Set "S=%%i"
        Call Set "Fsize%%j=%%S:~0,-6%%"
    )
    If "%FsizeE%"=="" Set "FsizeE=0" &If "%FsizeD%"=="" Set "FsizeD=0" &If "%FsizeC%"=="" Set "FsizeC=0"
 
    Echo Free disk space Mbyte bytes on disks: &Set "Fsize"
 
    Set "Disk="
    If "%Disk%"=="" If %FsizeE% GTR %Space% Set "Disk=E" 
    If "%Disk%"=="" If %FsizeD% GTR %Space% Set "Disk=D" 
    If "%Disk%"=="" If %FsizeC% GTR %Space% Set "Disk=C" 
 
    If "%Disk%"==""  (Echo There is not enough disk space. &Pause &Exit /B 2)
 
    Echo. &Call Echo Here we make the necessary utility on the %Disk% (FreeSpace=%%Fsize%Disk%%% Mbyte)
Pause
Exit /B

@vampir551 · 24.12.2024, 21:39

Angry Old Man, Спасибо, этот код работает))

Новые блоги и статьи Все статьи Все блоги /
Как надо было делать правильно - вообще не слушать ИИ, его дело - текст. Hrethgir 15.07.2026 А вообще надо было делать не так, чтобы не исправлять ошибку https:/ / www. cyberforum. ru/ blogs/ 223907/ 10996. html , правильно было : удалил кнопку, а потом добавил её. Всё это стресс конечно. Почему?. . .	Знаете, от чего появляется стресс? kumehtar 15.07.2026 Стресс появляется оттого, что вы, зная как поступить правильно, делаете наоборот. Ларри Уингет	Нас бьют, а мы крепчаем? Какая чушь! kumehtar 15.07.2026 Вот это вот бытующее мнение, что человек меняется только под действием проблем, всегда считал вредоносным. Поверь, от проблем у людей появляются не изменения, а нервное расстройство и ПТСР. А. . .	сукцессия 29. Переход от одних деревьев на другие делать более или менее вероятностным? anaschu 12.07.2026 Насколько смена типов микоризы — исключительное событие в двухвековой сукцессии? Оценка вероятности в пространстве параметров В текущей версии модели успешно реализован ключевой механизм. . .
сукцессия 27. Думаю, как переделывать уже написанную статью с планами на сукцессию. anaschu 12.07.2026 Анализ соответствия модели требованиям Реализованные компоненты: Механизм закисления почвы через протонную помпу Конкуренция между типами микориз pH как триггер сукцессии C/ P соотношение. . .	Сукцессия 26. Мат модель создана. anaschu 12.07.2026 Модель смены растительных сукцессий посредством управления грибами работает внутри небольшой ячейки почвы, восстанавливающейся после пожара, где ненадолго бывшее царство хвойных снова захватили. . .	Решил проблему с ошибкой пагинации сообщений с сервера на алгоритме обхода дерева "Эстафета хвоста". Hrethgir 12.07.2026 Проблема была в том, что удалялась именно новая кнопка, а не старая. Ни один ИИ не обнаружил это, а сам я смог только когда с работой стало попроще и когда заставил работать будущее автономное. . .	сукцессия 25. Хронология ошибок anaschu 12.07.2026 # От 50-тонного гриба до устойчивого леса: хроника ошибок при построении модели вековой сукцессии микоризы ## О чём эта статья В процессе построения ОДУ-модели (система дифференциальных. . .

@vampir551 0 / 0 / 0 Регистрация: 13.06.2019 Сообщений: 4
	24.12.2024, 21:39
	Angry Old Man, Спасибо, этот код работает)) 0