ricardo_br

Não, há não ser que tenha deixado o HD cair no chão ou algo assim.

@PincipiFiz um script que acho que faz o que você quer tudo que você tem que fazer é trocar essa parte por algum local dentro do seu SSD:
 
set Local=d:\alf
 
Ai você salva o arquivo de texto como NomeQueVoceQuiser.bat e arrasta um arquivo para o bat. Ai ele vai replicar esse arquivo dentro do local que você especificou em set Local= e quando a partição tiver 85% cheia apaga tudo e começa do zero até você fechar a janela do prompt de comando....
 

 
@echo off :: Arraste um arquivo para o bat para que comece a copiar :: Informe o local onde devem ser gravados os arquivos: set Local=d:\alf set "Arquivo=%~1" set "NArquivo=%~n1" set "Ext=%~x1" for /f %%a in ('echo %Local%') do set "Drive=%%~da" set Drive=%Drive:~0,1% :Loop for /f "delims=" %%a in ('powershell -command "[math]::floor([Decimal](get-volume '%Drive%' | %% { 100 - ($_.SizeRemaining/$_.size)*100}))"') do set "Porcentagem=%%a" IF %Porcentagem% GEQ 85 GOTO :Deletar set /a Contador+=1 cls echo. echo Disco %Porcentagem%%% Cheio echo Copiando %Arquivo% (%Contador%)%Ext% -^> %Local% copy "%Arquivo%" "%Local%\%NArquivo% (%Contador%)%Ext%" GOTO :Loop :Deletar cls echo. echo Deletando arquivos em %Local%.... For /f "Delims=" %%a in ('dir /b /a "%Local%"') do if exist "%Local%\%%~a\" (RD /q /s "%Local%\%%a") ELSE (del /q /a "%Local%\%%a") GOTO :Loop pause  
 

Aqui explica como fazer tem várias maneiras diferentes, mais está em inglês: https://www.tenforums.com/tutorials/178283-how-remove-change-password-ctrl-alt-del-screen-windows.html

Você quer saber como detectar o bat que tem como título: "inicia Servidor com proteção" está rodando? 
 
Tente esse comando:
 
tasklist /fi "WindowTitle eq inicia Servidor com proteção" /v /fo csv |find /i " inicia Servidor com proteção"  
Ai verifica com %ErrorLevel%....

Essas linguagens são bem popular para programar jogos:
 
C++
Java
Phyton
C#
Javascript
 
Não existe um ponto inicial certo, começa com uma a sua escolha e depois vai para a próxima e usa ambas em conjuto. Depende também se você quer criar jogos para Smartphone, computador etc.

Nessa parte abaixo você remove todos os espaços da linha não só ao final:
set "Linha=%Linha: =%"  
Teria que ser algo assim, verificar se o último caractere de uma linha é um espaço e caso sim remover o último charactere:
IF %Linha:~-1%==" " SET "Linha=%Linha:~0,-1%"  
 
@echo off :: Bat para remover espaços ao final da linha :: Você pode especificar um arquivo na variável Arquivo ou arrastar um arquivo de texto até o batch... chcp 1252 >nul SET Arquivo=texto.txt IF NOT EXIST "%Arquivo%" (IF EXIST "%~1" (SET "Arquivo=%~1") else (EXIT)) for %%a in ("%Arquivo%") do ( SET "NArquivo=%%~na" SET "EArquivo=%%~xa" SET "CArquivo=%%~dpa" ) for /f "usebackq delims=" %%a in ("%Arquivo%") do ( SET "Linha=%%~a" CALL :Editar ) EXIT :Editar ECHO "%Linha%" IF "%Linha:~-1%"==" " ( SET "Linha=%Linha:~0,-1%" GOTO :Editar ) for %%a in ("%Linha%") do >>"%CArquivo%%NArquivo%_Resultado%EArquivo%" ECHO %%~a GOTO :EOF  

Bem porque demora para aparecer não sei talvez seja intencional da microsoft, mais o motivo é porque o Windows não foi ativado corretamente.

Não, vale a mesma segurança que você tem no HD \ SSD interno. Eventualmente o SSD  pode ficar corrompido mais ai não é por falta de luz. É bom ter um backup em algum lugar sem que o arquivo seja sua única cópia do arquivo. 

Veje se é isso que você quer, no caso teria que usar o programa Winrar.
 
Vai em: Assistente \ Criar novo arquivo \ Selecione os arquivos \ Selecione nome para arquivo \ Criar arquivo autônomo
 
Aqui criei um gif para mostrar mais o meu winrar está em inglês: Criar exe

@FredMuskila Você pode usar um for para obter o tamanho dos arquivos em uma variável de reposição,
ex:
%%a = Nome do arquivo
%%~za = tamanho do arquivo em bytes
 
Para obter o tamanho de KB em bytes você vai ter que multiplicar por 1024 então 300 * 1024 = 307200
 
Ai é só usar um IF para comparar se o tamanho é menor ou igual com LEQ (Less or EQual) (menor ou igual)

"Pushd" muda temporariamente para pasta %destinoPasta% e "popd" volta para pasta onde estava anteriormente
 
@echo off set origemPasta=C:\Users\volne\AppData\Local\Packages\Microsoft.Windows.ContentDeliveryManager_cw5n1h2txyewy\LocalState\Assets set destinoPasta=C:\Users\volne\Downloads\Assets xcopy "%origemPasta%\*" "%destinoPasta%" /E /H /R ren "%destinoPasta%\*" *.jpg pushd "%destinoPasta%" for /f "delims=" %%a in ('dir /b "*.jpg"') do IF %%~za LEQ 307200 (del /q /a /f "%%~a") popd exit  

Qual a marca do pendrive, ele ainda está na garantia?

Usando o exemplo dos vídeos que eu tinha usado antes o resultado ficaria assim: Renomear-DXXX.gif
 
Código
 
@echo off :: Antes: AAAAA-111-AA111111111111_2024-05-21_012129_Ch1_02 :: Depois: AAAAA-111-AA111111111111-2024-05-21-T-01-21-29-D0XX :: XX == minutos como eles aparecem em comprimento do vídeo :: Informe aqui a pasta onde estão os vídeos: set Pasta=%userprofile%\desktop\videos :Inicio for /f "delims=" %%a in ('echo %Pasta%') do set "Pasta=%%~a" if not exist "%Pasta%" ( set /p "Pasta=Informe a pasta dos videos: " goto :Inicio ) pushd "%Pasta%" for /f "delims=" %%a in ('dir /b *.mp4 *.mkv') do for /f "tokens=1-3 delims=_" %%b in ("%%~a") do ( set "NO=%%~a" set "EXT=%%~xa" set "P1=%%~b" set "P2=%%~c" set "P3=%%~d" call :Renomear ) exit :Renomear for /f "tokens=2 delims=:" %%a in ('powershell "$Path = '%Pasta%';$shell = New-Object -COMOBject Shell.Application;$File = '%NO%';$shellFolder = $shell.Namespace($Path);$shellfile = $shellfolder.ParseName($File);$shellFolder.GetDetailsOF($shellfile, 27);"') do set "Min=%%a" set P3=T-%P3:~0,2%-%P3:~2,2%-%P3:~4,2%-D0%Min% IF NOT EXIST "%P1%-%P2%-%P3%0%EXT%" ( ren "%NO%" "%P1%-%P2%-%P3%0%EXT%" goto :EOF ) set Contador=0 :Contador set /a Contador+=1 IF NOT EXIST "%P1%-%P2%-%P3%%Contador%%EXT%" (ren "%NO%" "%P1%-%P2%-%P3%%Contador%%EXT%") else (goto :Contador) goto :EOF  

Bem como você não postou a maneira como você tentou não da para saber ao certo qual o erro. Provavelmente não foi aplicado o sinal escape (circunflexo) em alguns caracteres especiais como " , > < = | que precisam ser sinalizados quando um comando é usando dentro de um for:
 
@echo off for /f "delims=" %%a in ('reg query ^"HKLM\SYSTEM\CurrentControlSet\Services^" /f ^"_^" ^| findstr /R ^"_[^_]*.*[0-9]$^"') do reg add "%%~a" /v "start" /t reg_dword /d "4" /f pause  
Lembrando que o batch também precisa ser executado como administrador....

@Ariel159 Sim, isso em Propriedades \ Geral \ Avançadas \ Criptografar os dados....é criptografia NTFS se não fez backup dos certificados não tem como recuperar...

Todo Windows desde o Windows 8 ou algo assim vem com Windows Defender que você pode usar para verificar vírus.

Acredito que se colocar mais um pouco consegue um com placa de vídeo dedicada
 

 
Link: https://www.dell.com/pt-br/shop/notebooks/novo-notebook-vostro-3520/spd/vostro-15-3520-laptop/v3520tglw6001w

Parece que sim pela descrição dele, mais me parece que a intenção do programa é mais voltado para o uso com jogos antigos.

É só dar as permissões para você mesmo em -> Botão direito -> Propriedades -> Segurança -> Avançadas
 
Mais você tem que fazer de uma conta do tipo administrador.

Seria somente is icones com os pequenos marcar marrom a que você se refere correto?
 
Segundo a microsoft isso é apenas um problema com o Explorador de arquivos (Windows Explorer) e seria apenas o caso de reiniciar o explorador de arquivos:
 
https://support.microsoft.com/pt-br/office/o-que-significam-os-ícones-do-onedrive-11143026-8000-44f8-aaa9-67c985aa49b3

Se você usa Windows 10 ou 11 tem uma sequencia de atalhos que faz os drivers da placa de vídeo reiniciar: WINDOWS + CTRL + SHIFT + B

Usando um arquivo .bat:
@echo off chcp 1252 > nul setlocal EnableDelayedExpansion :: QExtTot = Quantidade de extensões totais existentes :: NExt[n] = Nome da extensão :: QExt[n] = Quantidade de cada extensão set "Resultado=%~dp0resultado.txt" set "ATemp=%temp%\VExtencao\Lista01.txt" :Inicio If "%~1"=="" (set /p "Pasta=Informe a Pasta: ") else (set "Pasta=%1") IF /i Not Exist "%Pasta%" goto :Inicio for %%a in ("%Pasta%") do set "Pasta=%%~dpnxa" pushd "%Pasta%" IF /i exist "%ATemp%" Del /q /f /a "%ATemp%" IF /i not Exist "%temp%\VExtencao" md "%temp%\VExtencao" :: for /f "Delims=" %%a in ('(for /f "Delims^=" %%b in ('dir /b /s /a-d') do @echo %%~xb^|%%~fb)') |sort for /f "delims=" %%a in ('dir /b /s /a:-d /o:e') do echo %%~xa^|%%~fa>>"%ATemp%" for /f "tokens=1,2 Delims=|" %%a in ('type "%ATemp%" ^|sort') do call :VerificaExtencao "%%~a" pause echo Pasta Pai: %Pasta%: >>"%Resultado%" echo.>>"%Resultado%" for /L %%a in (1,1,%QExtTot%) do ( echo !NExt[%%a]:~1! = !QExt[%%a]!: >>"%Resultado%" echo.>>"%Resultado%" for /f "delims=" %%b in ('dir /s /b /a *!NExt[%%a]!') do echo %%~nxb -^> %%~fb>>"%Resultado%" echo.>>"%Resultado%" ) exit :VerificaExtencao IF /i not "%Extencao%"=="%~x1" ( Set /a QExtTot+=1 Set NExt[!QExtTot!]=%~x1 set "Extencao=%~x1" set /a QExt[!QExtTot!]+=1 ) else ( set /a QExt[!QExtTot!]+=1 ) goto :EOF  

Pressione as teclas WINDOWS + R  e digite appwiz.cpl e pressione ENTER veja se o programa aparece na lista para ser desinstalado...

@nathangsc No caso você teria que especificar o ano pois a cada ano bissexto (2016 | 2000 | 2024 | 2028) fevereiro tem 29 dias, fora dos anos bissextos são 28. Veja se é isso:
 
@echo off SetLocal EnableDelayedExpansion set Ano=2024 chcp 1252 >nul for %%a in ("01 - Janeiro" "02 - Fevereiro" "03 - Março" "04 - Abril" "05 - Maio" "06 - Junho" "07 - Julho" "08 - Agosto" "09 - Setembro" "10 - Outubro" "11 - Novembro" "12 - Dezembro") do ( set /a Mes+=1 set Dia=31 call :Criar "%%~a" ) pause exit :Criar xcopy /d:%Mes%-%Dia%-%Ano% ".*" "%temp%" /L 2>nul 1>nul || ( set /a Dia-=1 goto :Criar ) for /L %%a in (%Dia%,-1,1) do ( set DiaZ=0%%a set DiaZ=!DiaZ:~-2! md "%Ano%\%~1\!DiaZ!" ) goto :EOF  
 

 
 

@danielffem Se eu te entendi corretamente seria algo assim, só muda o dns onde tiver conectado....
 
@echo off net session >nul 2>&1 || (powershell start -verb runas '"%~0"' &exit /b) set DNS1=208.67.220.220 set DNS2=208.67.220.221 wmic nicconfig where (IPEnabled=TRUE) call SetDNSServerSearchOrder ("%DNS1%", "%DNS2%")  
Resultado:
 

Algo assim:
 
@echo off set Arquivo=D:\Downloads\CBTESTE.TXT for %%a in ("%Arquivo%") do ( set Caminho=%%~dpna set Extensao=%%~xa ) for /f "usebackq Delims=" %%a in ("%Arquivo%") do call :Editar "%%~a" pause exit :Editar set "Posicao=%~1" if /i "%Posicao:~108,2%"=="33" goto :EOF set /a Contador+=1 set ContadorZ=00000%Contador% set ContadorZ=%ContadorZ:~-5% For %%a in ("%Posicao:~0,-5%") do >>"%Caminho%_mod%Extensao%" echo %%~a%ContadorZ% goto :EOF