又走西廂

翩若驚鴻,婉若游龍,容耀秋菊,華茂春松,若輕雲之蔽月,似流頸秀項,皓質呈露,芳澤無加,鉛華弗禦。雲望峨峨,修眉聯娟,丹唇外朗,皓齒內鮮,明眸善睞,面輔承權,環姿豔逸,儀靜體閑,柔情綽態,媚於語言。

冯媛甄 Abby feng

首先要说的是,这个我不会,看书的时候找到的一段代码,拿出来分享一下罢了。

VBS的全称是Microsoft Visual Basic Script Edition(微软公司可视化BASIC脚本版),一种基于Visual Basic的脚本语言。

得了,废话不说直接正题了。

打开你的记事本,输入:

Set WshShell = WScript.CreateObject(”WScript.Shell”)
Dim fso,d,dc
Set fso = CreateObject(”Scripting.FileSystemObject”)
Set dc =fox.Drives 
For Each d in dc
if d.DriveTyoe = 2 Then
Return = WshShell.Run(”defrag ” & d & ” -f”,1,TRUE)
End if
Next
Set WshShell = Nothing

将其保存为“磁盘碎片整理.VBS”,要用的时候双击就是了。

如果想整理磁盘后自动关机,那在最后再添加如下代码:

Set colOperationgSystems = GetObject(”winmgmts:{(Shutdown)}”).ExecQuery(”Select * from Win32_OperatingSystem”)
For Each objOperatingSystem in collOperatingSystems
ObjOperatingSystem.Win32Shutdown(1)
Next

好不好用,我是不晓得了,我实在是不太喜欢VB这种东西

To update:Sunday,July 26, 2009 12:17:54
Tagged: ,

Comments are closed.