当前位置:首页 » 网页前端 » 删除本地磁盘脚本
扩展阅读
webinf下怎么引入js 2023-08-31 21:54:13
堡垒机怎么打开web 2023-08-31 21:54:11

删除本地磁盘脚本

发布时间: 2022-07-20 05:02:33

A. 磁盘清理脚本

@echo off
echo 正在清除系统垃圾文件,请稍等......
del /f /s /q %systemdrive%\*.tmp
del /f /s /q %systemdrive%\*._mp
del /f /s /q %systemdrive%\*.log
del /f /s /q %systemdrive%\*.gid
del /f /s /q %systemdrive%\*.chk
del /f /s /q %systemdrive%\*.old
del /f /s /q %systemdrive%\recycled\*.*
del /f /s /q %windir%\*.bak
del /f /s /q %windir%\prefetch\*.*
rd /s /q %windir%\temp & md %windir%\temp
del /f /q %userprofile%\cookies\*.*
del /f /q %userprofile%\recent\*.*
del /f /s /q "%userprofile%\Local Settings\Temporary Internet Files\*.*"
del /f /s /q "%userprofile%\Local Settings\Temp\*.*"
del /f /s /q "%userprofile%\recent\*.*"
echo 清除系统垃圾完成!
echo. & pause

把上面的代码存成一个批处理文件运行,即*.bat文件

B. 电脑右下角出现本地磁盘,如何删除

下个unlocker试一下安装以后,直接在对象上点右键,会有一个unlocker选项,点下去之后选择解锁,删除选项然后确定就可以了。

C. 怎么删除多余本地磁盘

删除磁盘分区的方法步骤如下;

准备材料:window7操作系统的电脑。

1、右键点击桌面计算机图标,点击“管理”。

删除本地磁盘完成。

D. 怎样删除一个本地磁盘。

在我的电脑处右击,选择“管理”。弹出一个页面,找到“计算机管理”的子项“磁盘管理”。就会出现每个硬盘的盘符,选择你要删除的盘符,点击右键在出现菜单中选择“删除磁盘分区”就可以了。

E. 怎么清理本地磁盘

1,打开此电脑,选择需要清理的磁盘-右键-选择“属性”

F. 怎么删除本地磁盘

其实删除分区的方法有很多种。1:用windows自带的磁盘管理工具来进行磁盘管理,删除掉你想删除的分区即可;2:用第三方软件来进行磁盘管理,同样删除待删磁盘即可;3:用windows启动光盘进行分区表管理,同样可以达到目的!另外,我听说用DOS也可以,但具体的就不清楚了,不过前3种方法应该能解决问题!
友情提示:在进行磁盘管理时一定要注意自已的数据安全,以防误删,一失手成千古恨哦,呵呵!
愿我的回答能对你有所帮助!谢谢

G. 怎么用VBS删除全磁盘里的文件

Option Explicit\'\'\'\'\'\'\'\'\'\'\'\'\'\'说明\'\'\'\'\'\'\'\'\'\'\'\'
\'网盟-黑火制作,送给需要的朋友。
\'配置文件“Listfile.ini”的格式如下:
\'要删除什么(文件|目录)=要执行删除的文件夹=排除1;排除2;排除3............
\'配置文件可以有多行,以便对多个目录进行操作。
\'配置文件里以“/”开头的行为注释行。
\'排除多个内容时,使用分号“;”进行分隔。
\'↓↓↓ 配置文件例子:↓↓↓
\'/配置文件开始
\'目录=D:\\=System Volume Information;网络游戏;单机游戏;小游戏
\'目录=C:\\Program Files=qq;WinRAR
\'文件=D:\\网络游戏=文件1.exe;文件2.exe
\'/配置文件结束
\'\'\'\'\'\'\'\'\'\'\'\'\'说明完\'\'\'\'\'\'\'\'\'\'\'\'Dim Fso,Listfile,objListfile \'//定义三个变量
Listfile = "" \'//设置配置文件路径,如果配置文件和脚本放在一起,请保持原样If Listfile = "" Then Listfile = "Listfile.ini" \'//如果Listfil未设置那么Listfile(配置文件)为Listfile.ini
Set Fso = CreateObject("Scripting.FileSystemObject") \'//创建文件系统
On Error Resume Next \'//忽略错误继续执行下面的命令
Set objListfile = Fso.OpenTextFile(Listfile,1) \'//只独模式打开Listfile.ini文件
If Err Then \'//如果有错误
err.Clear \' //清除错误
Msgbox "没有找到配置文件 "&Listfile,16,"错误" \'//弹出提示消息
WScript.quit \'//退出脚本(结束)
End If
On Error GoTo 0 Dim flnum,fdnum,t1,t2,tm \'//定义变量
flnum=0 \'//设置变量的值
fdnum=0
t1 = timer() \'//将当前时间赐予t1(用来计算脚本运行时间的起始时间)Dim Myline,LineArr,ListArr \'//定义变量
Do While objListfile.AtEndOfStream <> True \'//判断是否读取到配置文件的结尾
Myline = LCase(Replace(objListfile.ReadLine,"==","=")) \'//读取一行并将配置文件中的 == 替换成 =
If Left(Myline,1) = "/" Then \'//如果第一个字符为 / 那么
objListfile.SkipLine \'//跳过一行(以 / 开头的为注释行所以跳过)
ElseIf CheckLine(Myline) = 2 Then \'//否则 如果 = 号两边是否都有内容那么
LineArr = Split(Myline,"=") \'//将读取的那一行内容以=号为界线分成两部分
\'DoFolder = LineArr(1)
ListArr = Split(LineArr(2),";") \'//将后一部分内容再以 ";"号为界线分成两部分
\'MsgBox LineArr(0)
If LineArr(0) = "目录" Then DelFolder LineArr(1),ListArr \'//如果第一部分内容为“目录” 那么调用删除目录模块删除这一行配置指定的目录
If LineArr(0) = "文件" Then DelFile LineArr(1),ListArr \'//同上 删除文件
End If
Loopt2 = timer() \'//将当前时间赐予t2(用来计算脚本运行时间的结束时间)
tm=cstr(int(( (t2-t1)*10000 )+0.5)/10) \'//计算两时间差(这里我觉得用DateDiff这个函数比较好)MsgBox "扫描完毕,共删除 "&fdnum&" 个目录, "&flnum& "个文件。"& vbCrLf &"耗时 "&tm&" 毫秒",64,"执行完毕"
\'不需要显示报告的话,注释掉上面这一行Set Fso=Nothing
WScript.quit \'//脚本结束Sub DelFolder(Folder,ListArr) \'//定义删除目录模块(下面的代码不一一解释了)
Dim objFolder,subFolders,subFolder
Set objFolder=Fso.Getfolder(Folder)
Set subFolders=objFolder.subFolders
For Each subFolder In subFolders
If Not InArray(LIstArr,LCase(subFolder.name)) Then
On Error Resume Next
subfolder.Delete(True)
If Err Then
err.Clear
Msgbox "不能删除目录,请检查 "&subFolder,16,"错误"
Else
fdnum = fdnum + 1
End If
On Error GoTo 0
End If
Next
End SubSub DelFile(Folder,ListArr) \'//定义删除文件模块(下面的代码不一一解释了)
Dim objFolder,Files,File
Set objFolder=Fso.Getfolder(Folder)
Set Files=objFolder.Files
For Each File In Files
If Not InArray(LIstArr,LCase(File.name)) Then
On Error Resume Next
File.Delete(True)
If Err Then
err.Clear
Msgbox "不能删除文件,请检查 "&File,16,"错误"
Else
flnum = flnum + 1
End If
On Error GoTo 0
End If
Next
End SubFunction CheckLine(strLine) \'//自己定义的函数用于检查配置文件中 = 号两边是否都有内容
Dim LineRegExp,Matches \'//定义变量
Set LineRegExp = New RegExp \'//创建正则表达式
LineRegExp.Pattern = ".=." \'//(不知道该怎么解释好,对于正则表达式不是很理解)类是我们查找*.*文件一样,这里查找*=*
LineRegExp.Global = True \'//以下就是判断=号两边是否都有内容
Set Matches = LineRegExp.Execute(strLine)
CheckLine = Matches.count \'//如果都有将返回 2
End FunctionFunction InArray(Myarray,StrIn) \'//这个函数是用于检测需要排除的目录的
Dim StrTemp
InArray = True
For Each StrTemp In Myarray
If StrIn = StrTemp Then
Exit Function
Exit For
End If
Next
InArray = False
End Function

H. 怎样删除多余无内存的本地磁盘

控制面板--管理工具--计算机管理--设备管理(中间靠下的一个窗口里有个下拉菜单的,找到Ramdisk,点开,就看到了Ramdisk
Driver)--打开后,在“设备用法”中设定为“不要使用这个设备(停用)”,再重新启动
2,
可以在“开始”菜单中“运行”里,用“regedit"命令进入注册表,然后在“查找”里输入“本地磁盘(Q)”,找到后把“本地磁盘”几个字删除即可。

I. 如何删除本地磁盘

用DOS命令删除啊,打命令的时候记得后面加个
-S

或者把U盘直接格式化