在VFP中获取磁盘驱动器信息.docVIP

在VFP中获取磁盘驱动器信息 朱铮南 用VFP编写程序的时候，经常需要编写数据备份程序，过去无非是将数据备份在A驱或B驱，现在则通常将数据备份到U盘或移动硬盘，如何让程序自动获取计算机磁盘驱动器信息成了关键的问题。 通过调用API函数GetLogicalDriveStrings和GetDriveType就可以获取逻辑磁盘驱动器信息。函数GetLogicalDriveStrings有两个参数，第一个参数返回一个长整型数值，此数值指定了第二个参数的长度，第二个参数返回一个有当前计算机所有逻辑驱动器符组成的字符串，在此字符串里，每个逻辑驱动器占四个字符，分别是驱动器符、冒号、反斜杠和分隔空字符。函数GetDriveType有一个参数，该参数返回一个长整型数值，数值表示的意义如下： 2——软盘驱动器 3——硬盘驱动器 4——网络驱动器 5——光盘驱动器 6——内存驱动器 具体方法是建立一个表单Form1，将表单的Caption属性值设成“备份到驱动器：”。在表单上添加一个组合框Combo1控件和一个命令按钮Command1控件，将组合框的Style属性值设成2，将命令按钮的Caption属性值设成“确定”。 在表单的Activate事件中输入如下代码： public DriName mydri Declare INTEGER GetLogicalDriveStrings IN kernel32 INTEGE nBufferLength,; STRING @ lpBuffer Declare INTEGER GetDriveType IN kernel32 STRING nDrive AIIDrive replicate ,108 GetLogicalDriveStrings len AIIDrive ,@AIIDrive AIIDrive allt AIIDrive for i 1 to len AIIDrive /4 DriNameTmp substr AIIDrive,i*4-3,2 NDType GetDriveType DriNameTmp do case case NDType 2 and DriNameTmp A: or DriNameTmp B: or ; DriNameTmp a: or DriNameTmp b: DriType 软驱 case NDType 2 and DriNameTmp A: and DriNameTmp B: and ; DriNameTmp a: and DriNameTmp b: DriType U盘 case NDType 3 DriType 硬盘 case NDType 5 DriType 光驱 endc mydri mydri+,+DriNameTmp+ +DriType endf mydri righ mydri,len mydri -1 bo1.rowsource mydri 在表单的Unload事件中输入以下代码： if messagebox 请准备好驱动器，单击“确定”开始。,321,提示 1 copy file aaa.dbf to DriName.\aaa.dbf endi DriName left this.value,2 在命令按钮的Click事件中输入以下代码： rele thisform 大功告成，将U盘插入计算机，运行表单，在组合框里是不是有包括U盘在内的各个逻辑驱动器啊？ （本文发表在《软件报》2006年34期）