VB6中FSO具体应用详解（个人实例版）

1、 VB 6.0 中FSO对象的具体应用(个人改进版)文前申明:原文为通用版实例代码,本菜鸟在每例之后加入一个简单的实例(均验证通过),供有需要的朋友参考.您正在看的VB教程是:VB入门基础认识VB的文件系统对象FSO。 在 VB 编程中经常需要和文件系统打交道，比如获取硬盘的剩余空间、判断文件夹或文件是否存在等。在VB 推出文件系统对象(File System Object)以前，完成这些功能需要调用 Windows API 函数或者使用一些比较复杂的过程来实现，使编程复杂、可靠性差又容易出错。使用 Windows 提供的的文件系统对象，一切变得简单多了。以下笔者举出一些编程中比较常用的例子，

2、以函数或过程的形式提供给大家，读者可在编程中直接使用，也可以改进后实现更为强大的功能。 要应用 FSO 对象，须要引用一个名为 Scripting 的类型库，方法是，执行 VB6.0 的菜单项“工程/引用”，添加引用列表框中的“Microsoft Scripting Runtime”一项。然后我们在“对象浏览器”中就可以看到 Scripting 类型库下的众多对象及其方法、属性。如果未添加此引用,运行时会出现以下错误:1.判断光驱的盘符 Function GetCDROM() 返回光驱的盘符(字母) Dim Fso As New FileSystemObject 创建 FSO 对象的一个实例

3、Dim FsoDrive As Drive, FsoDrives As Drives 定义驱动器、驱动器集合对象 Set FsoDrives = Fso.Drives For Each FsoDrive In FsoDrives 遍历所有可用的驱动器 If FsoDrive.DriveType = CDRom Then 如果驱动器的类型为 CDrom GetCDROM = FsoDrive.DriveLetter 输出其盘符 Else GetCDROM = End If Next Set Fso = Nothing Set FsoDrive = Nothing Set FsoDrives =

4、Nothing End Function个人改写实例:用以上代码验证电脑硬盘的盘符类型首先建立窗体, 在设计模式把form的autoredraw设置为trueSub Form_Load()首先在设计模式把form的autoredraw设置为true Dim Fso As New FileSystemObject 创建 FSO 对象的一个实例 Dim FsoDrive As Drive, FsoDrives As Drives 定义驱动器、驱动器集合对象 Set FsoDrives = Fso.Drives For Each FsoDrive In FsoDrives 遍历所有可用的驱动器 If

5、 FsoDrive.DriveType = CDRom Then 如果驱动器的类型为 CDrom GetCDROM = FsoDrive.DriveLetter 输出其盘符 Print CDRom 驱动器是: Print GetCDROM ElseIf FsoDrive.DriveType = Fixed Then getfixed = FsoDrive.DriveLetter Print 固定驱动器是: Print getfixed ElseIf FsoDrive.DriveType = Remote Then getremote = FsoDrive.DriveLetter Print 网

6、络驱动器是: Print getremote ElseIf FsoDrive.DriveType = unknown Then getunknown = FsoDrive.DriveLetter Print 未知驱动器是: Print getunknow ElseIf FsoDrive.DriveType = RamDisk Then getramdisk = FsoDrive.DriveLetter Print RAM磁盘是: Print getramdisk End If Next Set Fso = Nothing Set FsoDrive = Nothing Set FsoDrives

7、 = NothingEnd Sub2.判断文件、文件夹是否存在： 返回布尔值:True 存在，False 不存在，filername 文件名 Function FileExist(filename As String) Dim Fso As New FileSystemObject If Fso.FileExists(filename) = True Then FileExist = True Else FileExist = False End If Set Fso = NothingEnd Function返回布尔值:True 存在，False 不存在，foldername 文件夹 Fun

8、ction FolderExist(foldername As String) Dim Fso As New FileSystemObject If Fso.FolderExists(foldername) = True Then FolderExist = True Else FolderExist = False End If Set Fso = Nothing End Function个人改进实例:验证文件是否存在首先在form中建立一个文本框和一个按钮.文本框的multiline属性改为true运行时在文本框中输入文件名,格式为D:*.jpg,可以用通配符,或者固定文件名然后单击按钮来

9、验证文件是否存在Sub Command1_Click()Dim fs As New FileSystemObjectfilename = Text1.TextIf fs.FileExists(filename) ThenText1.Text = 存在ElseText1.Text = 不存在End IfEnd SubPrivate Sub Form_Load()Command1.Caption = 验证End Sub3、获取驱动器参数:返回磁盘总空间大小(单位：M)，Drive = 盘符 A ,C, D . Function AllSpace(Drive As String) Dim Fso A

10、s New FileSystemObject, Drv As DriveSet Drv = Fso.GetDrive(Drive) 得到 Drv 对象的实例 If Drv.IsReady Then 如果该驱动器存在(软驱或光驱里有盘片，硬盘存取正常) AllSpace = Format(Drv.TotalSize / (2 20), 0.00) 将字节转换为兆 Else AllSpace = 0 End If Set Fso = Nothing Set Drv = Nothing End Function 返回磁盘可用空间大小(单位：M)，Drive = 盘符 A ,C, D . Functi

11、on FreeSpace(drive) Dim Fso As New FileSystemObject, drv As drive Set drv = Fso.GetDrive(drive) If drv.IsReady Then FreeSpace = Format(drv.FreeSpace / (2 20), 0.00) End If Set Fso = Nothing Set Drv = Nothing End Function 获取驱动器文件系统类型，Drive = 盘符 A ,C, D . Function FsType(Drive As String) Dim Fso As Ne

12、w FileSystemObject, Drv As Drive Set Drv = Fso.GetDrive(Drive) If Drv.IsReady Then FsType = Drv.FileSystem Else FsType = End If Set Fso = Nothing Set Drv = Nothing End Function个人改进实例:验证c盘空间和文件类型在窗体中画一个文本框和一个按钮,文本框的multiline属性改为trueSub Command1_Click() Dim fso As New FileSystemObject, drv As Drive Se

13、t drv = fso.GetDrive(fso.GetDriveName(c:) 得到 Drv 对象的实例 If drv.IsReady Then 如果该驱动器存在(软驱或光驱里有盘片，硬盘存取正常) AllSpace = Format(drv.TotalSize / (2 20), 0.00) 将字节转换为兆 free = Format(drv.FreeSpace / (2 20), 0.00) sys = drv.FileSystem Else AllSpace = 0 End If Set fso = Nothing Set drv = NothingText1.Text = C盘空间

14、为 & AllSpace & MB & vbCrLf & c盘空闲空间为 & free & MBText1.Text = Text1.Text & vbCrLf & c盘的文件系统为 & sysEnd Sub4，获取系统文件夹路径： 返回 Windows 文件夹路径 Function GetWindir() Dim Fso As New FileSystemObject GetWindir = Fso.GetSpecialFolder(WindowsFolder) Set Fso = Nothing End Function 返回 WindowsSystem 文件夹路径 Function Ge

15、tWinSysdir() Dim Fso As New FileSystemObject GetWinSysdir = Fso.GetSpecialFolder(SystemFolder) Set Fso = Nothing End Function个人改进实例:获取系统文件夹同上,在窗体中画文本框和按钮,运行后点按钮来验证,别忘了把文本框的multiline属性改为truePrivate Sub Command1_Click()Dim fso As New FileSystemObject getwin = fso.GetSpecialFolder(windowfolder) getsys

16、= fso.GetSpecialFolder(SystemFolder) Text1.Text = windows文件夹为: & getwin & vbCrLf & system文件夹为: & getsysEnd Sub5，综合运用：一个文件备份通用过程： Filename = 文件名，Drive = 驱动器，Folder = 文件夹(一层) Sub BackupFile(Filename As String, Drive As String, Folder As String) Dim Fso As New FileSystemObject 创建 FSO 对象实例 Dim Dest_path

17、 As String, Counter As Long Counter = 0 Do While Counter 6 如果驱动器没准备好，继续检测。共检测 6 秒 Counter = Counter + 1 Call Waitfor(1) 间隔 1 秒Then Exit Do End If Loop If Fso.Drives(Drive).IsReady = False Then 6 秒后目标盘仍未准备就绪，退出 MsgBox 目标驱动器 & Drive & 没有准备好！ , vbCritical Exit Sub End If If Fso.GetDrive(Drive).FreeSpac

18、e Fso.GetFile(Filename).Size Then MsgBox 目标驱动器空间太小！, vbCritical 目标驱动器空间不够，退出 Exit Sub End If If Right(Drive, 1) : Then Drive = Drive & : End If If Left(Folder, 1) Then Folder = & Folder End If If Right(Folder, 1) Then Folder = Folder & End If Dest_path = Drive & Folder If Not Fso.FolderExists(Dest_p

19、ath) Then 如果目标文件夹不存在，创建之 Fso.CreateFolder Dest_path End If Fso.CopyFile Filename, Dest_path & Fso.GetFileName(Filename), True 拷贝，直接覆盖同名文件 MsgBox 文件备份完毕。, vbOKOnly Set Fso = Nothing End Sub Private Sub Waitfor(Delay As Single) 延时过程，Delay 单位约为 1 秒 Dim StartTime As Single StartTime = Timer Do Until (Ti

20、mer - StartTime) Delay Loop End Sub个人改进实例一:(复杂)首先建立窗体,在窗体下输入以下代码: Private Sub Waitfor(Delay As Single) 延时过程，Delay 单位约为 1 秒 Dim StartTime As Single StartTime = Timer Do Until (Timer - StartTime) Delay Loop End SubPrivate Sub Form_Load() Dim Fso As New FileSystemObject 创建 FSO 对象实例 Dim Dest_path As Str

21、ing, Counter As Long Counter = 0 Do While Counter 6 如果驱动器没准备好，继续检测。共检测 6 秒 Counter = Counter + 1 Call Waitfor(1) 间隔 1 秒 Exit Do Loop If Fso.Drives(d:).IsReady = False Then 6 秒后目标盘仍未准备就绪，退出 MsgBox 目标驱动器 & d: & 没有准备好！ , vbCritical Exit Sub End If Dim sofile sofile = InputBox(请输入要复制的文件名(如C:temp.doc) If

22、 Fso.GetDrive(d:).FreeSpace Fso.GetFile(sofile).Size Then MsgBox 目标驱动器空间太小！, vbCritical 目标驱动器空间不够，退出 Exit Sub End If Drive = InputBox(请输入目的驱动器盘符(如D):) If Right(Drive, 1) : Then Drive = Drive & : End If Depath = InputBox(请输入目标文件夹(如temp):) If Left(Depath, 1) Then Folder = & Depath End If If Right(Depa

23、th, 1) Then Folder = Depath & End If Dest_path = Drive & Folder MsgBox 目标文件为 & Dest_path If Not Fso.FolderExists(Dest_path) Then 如果目标文件夹不存在，创建之 Fso.CreateFolder (Dest_path) End If Fso.CopyFile sofile, Dest_path, True 拷贝，直接覆盖同名文件 MsgBox 文件备份完毕。, vbOKOnly Set Fso = NothingEnd Sub个人改进实例二:(精简)先建立窗体,在窗体下

24、输入以下代码:Private Sub Form_Load() Dim Fso As New FileSystemObject 创建 FSO 对象实例 Dim Depath As String Dim sofile sofile = InputBox(请输入要复制的文件名(如C:temp.doc) MsgBox 要复制的文件名为 & sofile Depath = InputBox(请输入目的文件夹(如D:temp):) MsgBox 目标文件夹为 & Depath If Not Fso.FolderExists(Depath) Then 如果目标文件夹不存在，创建之 Fso.CreateFol

25、der (Depath) End If Fso.CopyFile sofile, Depath, True 拷贝，直接覆盖同名文件 MsgBox 文件备份完毕。, vbOKOnly Set Fso = NothingEnd Sub 原作者信息： 张庆 Email:zhangking at QQ: 9365822改进作者信息:Email :liupipiwang 附录资料:不需要的可以自行删除bat文件的基本应用bat是dos下的批处理文件 .cmd是nt内核命令行环境的另一种批处理文件 从更广义的角度来看，unix的shell脚本以及其它操作系统甚至应用程序中由外壳进行解释执行的文本，都具有与

26、批处理文件十分相似的作用，而且同样是由专用解释器以行为单位解释执行，这种文本形式更通用的称谓是脚本语言。所以从某个程度分析，batch, unix shell, awk, basic, perl 等脚本语言都是一样的，只不过应用的范围和解释的平台各有不同而已。甚至有些应用程序仍然沿用批处理这一称呼，而其内容和扩展名与dos的批处理却又完全不同。 = 首先批处理文件是一个文本文件，这个文件的每一行都是一条DOS命令（大部分时候就好象我们在DOS提示符下执行的命令行一样），你可以使用DOS下的Edit或者Windows的记事本(notepad)等任何文本文件编辑工具创建和修改批处理文件。 = 注

27、= 批处理文件中完全可以使用非dos命令，甚至可以使用不具有可执行特性的普通数据性文件，这缘于windows系统这个新型解释平台的涉入，使得批处理的应用越来越边缘化。所以我们讨论的批处理应该限定在dos环境或者命令行环境中，否则很多观念和设定都需要做比较大的变动。 = 其次，批处理文件是一种简单的程序，可以通过条件语句(if)和流程控制语句(goto)来控制命令运行的流程，在批处理中也可以使用循环语句(for)来循环执行一条命令。当然，批处理文件的编程能力与C语言等编程语句比起来是十分有限的，也是十分不规范的。批处理的程序语句就是一条条的DOS命令（包括内部命令和外部命令），而批处理的能力主要

28、取决于你所使用的命令。 = 注 = 批处理文件(batch file)也可以称之为批处理程序(batch program)，这一点与编译型语言有所不同，就c语言来说，扩展名为c或者cpp的文件可以称之为c语言文件或者c语言源代码，但只有编译连接后的exe文件才可以称之为c语言程序。因为批处理文件本身既具有文本的可读性，又具有程序的可执行性，这些称谓的界限是比较模糊的。 = 第三，每个编写好的批处理文件都相当于一个DOS的外部命令，你可以把它所在的目录放到你的DOS搜索路径(path)中来使得它可以在任意位置运行。一个良好的习惯是在硬盘上建立一个bat或者batch目录（例如C:BATCH），然

29、后将所有你编写的批处理文件放到该目录中，这样只要在path中设置上c:batch，你就可以在任意位置运行所有你编写的批处理程序。 = 注 = 纯以dos系统而言，可执行程序大约可以细分为五类，依照执行优先级由高到低排列分别是：DOSKEY宏命令（预先驻留内存），COMMAND.COM中的内部命令（根据内存的环境随时进驻内存），以com为扩展名的可执行程序（由 直接载入内存），以exe位扩展名的可执行程序（由 重定位后载入内存），以bat位扩展名的批处理程序（由 解释分析，根据其内容按优先级顺序调用第2，3，4，5种可执行程序，分析一行，执行一行，文件本身不载入内存） = 第四，在DOS和Win

30、9x/Me系统下，C:盘根目录下的AUTOEXEC.BAT批处理文件是自动运行批处理文件，每次系统启动时会自动运行该文件，你可以将系统每次启动时都要运行的命令放入该文件中，例如设置搜索路径，调入鼠标驱动和磁盘缓存，设置系统环境变量等。下面是一个运行于Windows 98下的autoexec.bat的示例： ECHO OFF PATH C:WINDOWS;C:WINDOWSCOMMAND;C:UCDOS;C:DOSTools; C:SYSTOOLS;C:WINTOOLS;C:BATCH LH SMARTDRV.EXE /X LH DOSKEY.COM /insert LH CTMOUSE.EXE

31、 SET TEMP=D:TEMP SET TMP=D:TEMP = 注 = AUTOEXEC.BAT为DOS系统的自动运行批处理文件，由COMMAND.COM启动时解释执行； 而在Win9x环境中，不仅增加支持了 DOSSTART.BAT, WINSTART.BAT 等许多其它自动运行的批处理文件，对AUTOEXEC.BAT 也增加了 .DOS .W40 .BAK .OLD .PWS 等许多变体以适应复杂的环境和多变的需求。 = willsort 编注 = 以下关于命令的分类，有很多值得推敲的地方。常用命令中的本不是命令，而dir、copy等也很常用的命令却没有列入, 而特殊命令中所有命令对我

32、来说都是常用命令。建议将批处理所引用的命令分为内部命令、外部命令、第三方程序三类。而内部命令和外部命令中别有一类是专用于或常用于批处理中的命令可称之为批处理命令。 以下摘录MS-DOS 6.22 帮助文档中关于批处理命令的文字，当然，其中有些概念和定义已经有些落后了。 批处理命令 批处理文件或批处理程序是一个包含若干MS-DOS命令的正文文件，扩展名为.BAT。当在命令提示符下敲入批处理程序的名称时，MS-DOS成组执行此批处理程序中的命令。 任何在命令提示符下可使用的命令都可用在批处理程序中。此外，下面MS-DOS命令是专门在批处理程序中使用的。 = 常用命令 echo、call、pause

33、、rem(小技巧：用:代替rem)是批处理文件最常用的几个命令，我们就从他们开始学起。 = 注 = 首先, 不是一个命令, 而是DOS 批处理的一个特殊标记符, 仅用于屏蔽命令行回显. 下面是DOS命令行或批处理中可能会见到的一些特殊标记符: CR(0D) 命令行结束符 Escape(1B) ANSI转义字符引导符 Space(20) 常用的参数界定符 Tab(09) ; = 不常用的参数界定符 + COPY命令文件连接符 * ? 文件通配符 字符串界定符 | 命令管道符 文件重定向符 命令行回显屏蔽符 / 参数开关引导符 : 批处理标签引导符 % 批处理变量引导符 其次, : 确实可以起到r

34、em 的注释作用, 而且更简洁有效; 但有两点需要注意: 第一, 除了 : 之外, 任何以 :开头的字符行, 在批处理中都被视作标号, 而直接忽略其后的所有内容, 只是为了与正常的标号相区别, 建议使用 goto 所无法识别的标号, 即在 :后紧跟一个非字母数字的一个特殊符号. 第二, 与rem 不同的是, :后的字符行在执行时不会回显, 无论是否用echo on打开命令行回显状态, 因为命令解释器不认为他是一个有效的命令行, 就此点来看, rem 在某些场合下将比 : 更为适用; 另外, rem 可以用于 config.sys 文件中. = echo 表示显示此命令后的字符 echo off

35、 表示在此语句后所有运行的命令都不显示命令行本身 与echo off相象，但它是加在每个命令行的最前面，表示运行时不显示这一行的命令行（只能影响当前行）。 call 调用另一个批处理文件（如果不用call而直接调用别的批处理文件，那么执行完那个批处理文件后将无法返回当前文件并执行当前文件的后续命令）。 pause 运行此句会暂停批处理的执行并在屏幕上显示Press any key to continue.的提示，等待用户按任意键后继续 rem 表示此命令后的字符为解释行（注释），不执行，只是给自己今后参考用的（相当于程序中的注释）。 = 注 = 此处的描述较为混乱, 不如直接引用个命令的命令行

36、帮助更为条理 - ECHO 当程序运行时，显示或隐藏批处理程序中的正文。也可用于允许或禁止命令的回显。 在运行批处理程序时，MS-DOS一般在屏幕上显示（回显）批处理程序中的命令。 使用ECHO命令可关闭此功能。 语法 ECHO ON|OFF 若要用echo命令显示一条命令，可用下述语法： echo message 参数 ON|OFF 指定是否允许命令的回显。若要显示当前的ECHO的设置，可使用不带参数的ECHO 命令。 message 指定让MS-DOS在屏幕上显示的正文。 - CALL 从一个批处理程序中调用另一个批处理程序，而不会引起第一个批处理的中止。 语法 CALL drive:pa

37、thfilename batch-parameters 参数 drive:pathfilename 指定要调用的批处理程序的名字及其存放处。文件名必须用.BAT作扩展名。 batch-parameters 指定批处理程序所需的命令行信息。 - PAUSE 暂停批处理程序的执行并显示一条消息，提示用户按任意键继续执行。只能在批处 理程序中使用该命令。 语法 PAUSE REM 在批处理文件或CONFIG.SYS中加入注解。也可用REM命令来屏蔽命令（在CONFIG.SYS 中也可以用分号 ; 代替REM命令，但在批处理文件中则不能替代）。 语法 REM string 参数 string 指定要屏

38、蔽的命令或要包含的注解。 = 例1：用edit编辑a.bat文件，输入下列内容后存盘为c:a.bat，执行该批处理文件后可实现：将根目录中所有文件写入 a.txt中，启动UCDOS，进入WPS等功能。 批处理文件的内容为: 命令注释： echo off 不显示后续命令行及当前命令行 dir c:*.* a.txt 将c盘文件列表写入a.txt call c:ucdosucdos.bat 调用ucdos echo 你好 显示你好 pause 暂停,等待按键继续 rem 准备运行wps 注释：准备运行wps cd ucdos 进入ucdos目录 wps 运行wps 批处理文件的参数 批处理文件还可

39、以像C语言的函数一样使用参数（相当于DOS命令的命令行参数），这需要用到一个参数表示符%。 %1-9表示参数，参数是指在运行批处理文件时在文件名后加的以空格（或者Tab）分隔的字符串。变量可以从%0到%9，%0表示批处理命令本身，其它参数字符串用%1到%9顺序表示。 例2：C:根目录下有一批处理文件名为f.bat，内容为： echo off format %1 如果执行C:f a: 那么在执行f.bat时，%1就表示a:，这样format %1就相当于format a:，于是上面的命令运行时实际执行的是format a: 例3：C:根目录下一批处理文件名为t.bat，内容为: echo off

40、 type %1 type %2 那么运行C:t a.txt b.txt %1 : 表示a.txt %2 : 表示b.txt 于是上面的命令将顺序地显示a.txt和b.txt文件的内容。 = 注 = 参数在批处理中也作为变量处理, 所以同样使用百分号作为引导符, 其后跟0-9中的一个数字构成参数引用符. 引用符和参数之间 (例如上文中的 %1 与 a: ) 的关系类似于变量指针与变量值的关系. 当我们要引用第十一个或更多个参数时, 就必须移动DOS 的参数起始指针. shift 命令正充当了这个移动指针的角色, 它将参数的起始指针移动到下一个参数, 类似C 语言中的指针操作. 图示如下: 初始

41、状态, cmd 为命令名, 可以用 %0 引用 cmd arg1 arg2 arg3 arg4 arg5 arg6 arg7 arg8 arg9 arg10 | | | | | | | | | | %0 %1 %2 %3 %4 %5 %6 %7 %8 %9 经过1次shift后, cmd 将无法被引用 cmd arg1 arg2 arg3 arg4 arg5 arg6 arg7 arg8 arg9 arg10 | | | | | | | | | | %0 %1 %2 %3 %4 %5 %6 %7 %8 %9 经过2次shift后, arg1也被废弃, %9指向为空, 没有引用意义 cmd ar

42、g1 arg2 arg3 arg4 arg5 arg6 arg7 arg8 arg9 arg10 | | | | | | | | | %0 %1 %2 %3 %4 %5 %6 %7 %8 遗憾的是, win9x 和DOS下均不支持 shift 的逆操作. 只有在 nt 内核命令行环境下, shift 才支持 /n 参数, 可以以第一参数为基准返复移动起始指针. = 特殊命令 if goto choice for是批处理文件中比较高级的命令，如果这几个你用得很熟练，你就是批处理文件的专家啦。 一、if 是条件语句，用来判断是否符合规定的条件，从而决定执行不同的命令。 有三种格式: 1、if no

43、t 参数 = 字符串 待执行的命令 参数如果等于(not表示不等，下同)指定的字符串，则条件成立，运行命令，否则运行下一句。 例：if %1=a format a: = if 的命令行帮助中关于此点的描述为: IF NOT string1=string2 command 在此有以下几点需要注意: 1. 包含字符串的双引号不是语法所必须的, 而只是习惯上使用的一种防空字符 2. string1 未必是参数, 它也可以是环境变量, 循环变量以及其他字符串常量或变量 3. command 不是语法所必须的, string2 后跟一个空格就可以构成一个有效的命令行 = 2、if not exist 路

44、径文件名 待执行的命令 如果有指定的文件，则条件成立，运行命令，否则运行下一句。 如: if exist c:config.sys type c:config.sys 表示如果存在c:config.sys文件，则显示它的内容。 * 注 * 也可以使用以下的用法: if exist command device 是指DOS系统中已加载的设备, 在win98下通常有: AUX, PRN, CON, NUL COM1, COM2, COM3, COM4 LPT1, LPT2, LPT3, LPT4 XMSXXXX0, EMMXXXX0 A: B: C: ., CLOCK$, CONFIG$, Dbl

45、Buff$, IFS$HLP$ 具体的内容会因硬软件环境的不同而略有差异, 使用这些设备名称时, 需要保证以下三点: 1. 该设备确实存在(由软件虚拟的设备除外) 2. 该设备驱动程序已加载(aux, prn等标准设备由系统缺省定义) 3. 该设备已准备好(主要是指a: b: ., com1., lpt1.等) 可通过命令 mem/d | find device /i 来检阅你的系统中所加载的设备 另外, 在DOS系统中, 设备也被认为是一种特殊的文件, 而文件也可以称作字符设备; 因为设备(device)与文件都是使用句柄(handle)来管理的, 句柄就是名字, 类似于文件名, 只不过句柄

46、不是应用于磁盘管理, 而是应用于内存管理而已, 所谓设备加载也即指在内存中为其分配可引用的句柄. = 3、if errorlevel 待执行的命令 很多DOS程序在运行结束后会返回一个数字值用来表示程序运行的结果(或者状态)，通过if errorlevel命令可以判断程序的返回值，根据不同的返回值来决定执行不同的命令(返回值必须按照从大到小的顺序排列)。如果返回值等于指定的数字，则条件成立，运行命令，否则运行下一句。 如if errorlevel 2 goto x2 = 注 = 返回值从大到小的顺序排列不是必须的, 而只是执行命令为 goto 时的习惯用法, 当使用 set 作为执行命令时,

47、通常会从小到大顺序排列, 比如需将返回码置入环境变量, 就需使用以下的顺序形式: if errorlevel 1 set el=1 if errorlevel 2 set el=2 if errorlevel 3 set el=3 if errorlevel 4 set el=4 if errorlevel 5 set el=5 . 当然, 也可以使用以下循环来替代, 原理是一致的: for %e in (1 2 3 4 5 6 7 8.) do if errorlevel %e set el=%e 更高效简洁的用法, 可以参考我写的另一篇关于获取 errorlevel 的文章 出现此种现象的

48、原因是, if errorlevel 比较返回码的判断条件并非等于, 而是大于等于. 由于 goto 的跳转特性, 由小到大排序会导致在较小的返回码处就跳出; 而由于 set命令的 重复 赋值特性, 由大到小排序会导致较小的返回码 覆盖 较大的返回码. 另外, 虽然 if errorlevel= command 也是有效的命令行, 但也只是 解释命令行时将 = 作为命令行切分符而忽略掉罢了 = 二、goto 批处理文件运行到这里将跳到goto所指定的标号(标号即label，标号用:后跟标准字符串来定义)处，goto语句一般与if配合使用，根据不同的条件来执行不同的命令组。 如: goto en

49、d :end echo this is the end 标号用:字符串来定义，标号所在行不被执行。 = willsort 编注 label 常被译为 标签 , 但是这并不具有广泛的约定性. goto 与 : 联用可实现执行中途的跳转, 再结合 if 可实现执行过程的条件分支, 多个 if 即可实现命令的分组, 类似 C 中 switch case 结构或者 Basic 中的 select case 结构, 大规模且结构化的命令分组即可实现高级语言中的函数功能. 以下是批处理和C/Basic在语法结构上的对照: Batch C / Basic goto&: goto&: goto&:&if if

50、&else / if&elseif&endif goto&:&if. switch&case / select case goto&:&if&set&envar. function() / function(),sub() = 三、choice 使用此命令可以让用户输入一个字符（用于选择），从而根据用户的选择返回不同的errorlevel，然后于if errorlevel配合，根据用户的选择运行不同的命令。 注意：choice命令为DOS或者Windows系统提供的外部命令，不同版本的choice命令语法会稍有不同，请用choice /?查看用法。 choice的命令语法（该语法为Window

51、s 2003中choice命令的语法，其它版本的choice的命令语法与此大同小异）： CHOICE /C choices /N /CS /T timeout /D choice /M text 描述: 该工具允许用户从选择列表选择一个项目并返回所选项目的索引。 参数列表: /C choices 指定要创建的选项列表。默认列表是 YN。 /N 在提示符中隐藏选项列表。提示前面的消息得到显示， 选项依旧处于启用状态。 /CS 允许选择分大小写的选项。在默认情况下，这个工具 是不分大小写的。 /T timeout 做出默认选择之前，暂停的秒数。可接受的值是从 0 到 9999。如果指定了 0，就不

52、会有暂停，默认选项 会得到选择。 /D choice 在 nnnn 秒之后指定默认选项。字符必须在用 /C 选 项指定的一组选择中; 同时，必须用 /T 指定 nnnn。 /M text 指定提示之前要显示的消息。如果没有指定，工具只 显示提示。 /? 显示帮助消息。 注意: ERRORLEVEL 环境变量被设置为从选择集选择的键索引。列出的第一个选 择返回 1，第二个选择返回 2，等等。如果用户按的键不是有效的选择， 该工具会发出警告响声。如果该工具检测到错误状态，它会返回 255 的 ERRORLEVEL 值。如果用户按 Ctrl+Break 或 Ctrl+C 键，该工具会返回 0 的 E

53、RRORLEVEL 值。在一个批程序中使用 ERRORLEVEL 参数时，将参数降 序排列。 示例: CHOICE /? CHOICE /C YNC /M 确认请按 Y，否请按 N，或者取消请按 C。 CHOICE /T 10 /C ync /CS /D y CHOICE /C ab /M 选项 1 请选择 a，选项 2 请选择 b。 CHOICE /C ab /N /M 选项 1 请选择 a，选项 2 请选择 b。 = willsort 编注 = 我列出win98下choice的用法帮助, 已资区分 Waits for the user to choose one of a set of c

54、hoices. 等待用户选择一组待选字符中的一个 CHOICE /C:choices /N /S /T:c,nn text /C:choices Specifies allowable keys. Default is YN 指定允许的按键(待选字符), 默认为YN /N Do not display choices and ? at end of prompt string. 不显示提示字符串中的问号和待选字符 /S Treat choice keys as case sensitive. 处理待选字符时大小写敏感 /T:c,nn Default choice to c after nn s

55、econds 在 nn 秒后默认选择 c text Prompt string to display 要显示的提示字符串 ERRORLEVEL is set to offset of key user presses in choices. ERRORLEVEL 被设置为用户键入的字符在待选字符中的偏移值 如果我运行命令：CHOICE /C YNC /M 确认请按 Y，否请按 N，或者取消请按 C。 屏幕上会显示： 确认请按 Y，否请按 N，或者取消请按 C。 Y,N,C? 例：test.bat的内容如下（注意，用if errorlevel判断返回值时，要按返回值从高到低排列）: echo o

56、ff choice /C dme /M defrag,mem,end if errorlevel 3 goto end if errorlevel 2 goto mem if errorlevel 1 goto defrag :defrag c:dosdefrag goto end :mem mem goto end :end echo good bye 此批处理运行后，将显示defrag,mem,endD,M,E? ，用户可选择d m e ，然后if语句根据用户的选择作出判断，d表示执行标号为defrag的程序段，m表示执行标号为mem的程序段，e表示执行标号为end的程序段，每个程序段最后

57、都以goto end将程序跳到end标号处，然后程序将显示good bye，批处理运行结束。 四、for 循环命令，只要条件符合，它将多次执行同一命令。 语法： 对一组文件中的每一个文件执行某个特定命令。 FOR %variable IN (set) DO command command-parameters %variable 指定一个单一字母可替换的参数。 (set) 指定一个或一组文件。可以使用通配符。 command 指定对每个文件执行的命令。 command-parameters 为特定命令指定参数或命令行开关。 例如一个批处理文件中有一行: for %c in (*.bat *.txt) do