洛阳翼展电脑

批处理检测是否安装过 Microsoft.NET Framework

2019-7-11 乱云飞 评论(0) 浏览(10) 标签: 代码 批处理 检测 .net

@echo off
set checked=0
if exist "%windir%\Microsoft.NET\Framework\v1.0*" set checked=1
if exist "%windir%\Microsoft.NET\Framework\v1.1*" set checked=1
if exist "%windir%\Microsoft.NET\Framework\v2.0*" set checked=1
if exist "%windir%\Microsoft.NET\Framework\v3.0*" set checked=1
if exist "%windir%\Microsoft.NET\Framework\v3.5*" set checked=1
if exist "%windir%\Microsoft.NET\Framework\v4.0*" set checked=1
if %checked% EQU 1 (echo 已安装.NET Framework) else (echo 未安装.NET Framework)
pause>nul

批处理批量下载文件

2019-6-29 乱云飞 评论(0) 浏览(22) 标签: 代码 批处理 批量下载 下载文件

@echo off  
for /l %%i in (1,1,88) do (  
echo "http://80c.cc/%%i.mp3" "%cd%/%%i.mp3"  
down.vbs "http://80c.cc/%%i.mp3" "%cd%/%%i.mp3"  
)  
******************************************************
Download Wscript.Arguments(0),Wscript.Arguments(1)  
Sub Download(url,target)  
    Set post=CreateObject("Msxml2.XMLHTTP")  
    post.Open "GET",url  
    '发送请求  
    post.Send()  
    Set aGet = CreateObject("ADODB.Stream")  
    aGet.Mode = 3  
    aGet.Type = 1  
    aGet.Open()  
    '等待3秒，等文件下载  
    wscript.sleep 3000   
    aGet.Write(post.responseBody)'写数据  
    aGet.SaveToFile target,2  
End Sub  

NTFS分区保留指定目录文件，其他的全部删除

2018-7-19 乱云飞 评论(0) 浏览(262) 标签: 批处理 删除目录 保留目录

示例：保留E盘的 net lan gho 目录，其他目录全部删除。

cacls E:\net /e /p everyone:n
cacls E:\lan /e /p everyone:n
cacls E:\gho /e /p everyone:n
rd /s /q E:\
cacls E:\net /e /r everyone
cacls E:\lan /e /r everyone
cacls E:\gho /e /r everyone

用批处理备份文件夹

2018-4-2 乱云飞 电脑 评论(0) 浏览(282) 标签: 批处理 备份目录 文件备份助手

@ title 文件夹备份批处理 http://80c.cc
@ color A
@ echo ┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━┓ 
@ echo ┃      文件夹备份批处理 http://80c.cc     ┃
@ echo ┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━┛
@ echo 备份日期：%date:~0,10% 时间：%time% >> bak.log
@ echo.
@ xcopy /E /C /Y /R /H "D:\需要备份" /s "E:\需要备份_bak\"  /d
@ echo.

批处理删除前五位，保留前五位

2018-2-21 乱云飞 代码 评论(0) 浏览(257) 标签: 批处理 删除前N位

setlocal enabledelayedexpansion
for /f "tokens=*" %%i in ('type aaa.txt') do (
set str=%%i
echo !str:~5!>>hou.txt
)
@echo 删除前五位
------------------------------------
@echo off
setlocal enabledelayedexpansion
for /f "delims=" %%i in (aaa.txt) do (
  set p=%%i
  echo !p:~6!>>OK.txt
)
pause>nul
@echo 删除前六位