第十章vb6.0文件管理及操作
第⼗章vb6.0⽂件管理及操作
第⼗章⽂件管理及操作10.1 ⽂件系统的基本操作VB提供了⼀些⽤于处理⽂件系统的语句，使⽤这些语句可以在VB应⽤程序中进⾏更改当前⽬录、建⽴或删除⽬录、删除⽂件等基本操作。
⽬录操作
1.获取指定驭动器的当前路径。
要获取某驱动器的当前路径，可以使⽤CurDir函数，它的语法是：
CurDir [drive].
参数drive是指要获取信息的驱动器名称，如果忽略该参数，则CurDir函数返回当前驱动器的当前路径。
例如，如果驱动器E；的当前路径为“E: \Too1\Qicq”，则如下语句将在窗体上显⽰
“E:\Too1\Qicq”.
Print CurDir（“E”）。
2.更改当前驱动器。
使⽤ChDrive语句可以更改当前驱动器，其语法为：
ChDrive drive.
参数drive为要指定为当前驱动器的名称，例如，将驱动器A：指定为当前驱动器的语句为：
ChDrive “A”.
3.更改当前路径。
使⽤ChDir语句可以更改当前路径，其语法为：
ChDir Path.
参数Path为要指定的路径，如果在路径中没有指定驱动器的名称，则表⽰驱动器为当前驱动器。例如，将路径C: \Windows指定为当前路径的语句为：
ChDir “C:\Windows”.
4.建⽴与删除⽬录。
使⽤MkDir语句可以创建⼀个新的⽬录，其语法为：
MktDir Path.
参数Path⽤来指定所要创建的⽬录以及⽬录所在的路径。Path可以包含驱动器。如果没有指定路径，则MkDir会在当前路径下创建新的⽬录。
例如：
MKDir “C:\aa”在C盘中创建⽬录aa
MKDir “C:\Windows\bb”在C盘windows⽬录中创建⼦⽬录bb
小年拜年祝福语
MKDir “CC”在当前路径下创建⽬录cc
使⽤RmDir语句可以删除某⼀空⽬录，其语法为：
RmDir Path.
例如：
MKDir “C:\aa”删除C盘中⽬录aa
MKDir “C:\Windows\bb”删除C盘windows⽬录中的⼦⽬录bb
MKDir “CC”删除当前路径下创建⽬录cc
注意：RmDir语句只能⽤来删除空的⽬录，如果⽬录中还包含有⼦⽬录或⽂件，则必须先删除⼦⽬录和⽂件。
10.1.2 ⽂件操作⽂件的操作包括拷贝⽂件、删除⽂件、重命名⽂件和设置⽂件属性等。在操作⽂件时，⽂件必须是关闭的，否则会产⽣运⾏错误。下⾯逐⼀介绍VB中的各种⽂件操作语句。
明天几点立春20231.拷贝⽂件。
使⽤PileCopy语句可以在磁盘介质间拷贝⽂件，其语法为：
FileCopy Source. Destination.
参数Source⽤来指定源⽂件及其路径。参数Destination⽤来指定⽬标⽂件及其路径。如果没有指定路径，则默认路径为当前路径。
例如：
将C盘Windows⽬录中的⽂件www.doczj/doc/89bfc8d2b9f3f90f76c61bc3.html 拷贝到F盘，并且⽂件名变为
www.doczj/doc/89bfc8d2b9f3f90f76c61bc3.html
FileCopy“C:\Windows\www.doczj/doc/89bfc8d2b9f3f90f76c61bc3.html
,”F:\www.doczj/doc/89bfc8d2b9f3f90f76c61bc3.html
将C盘Windows⽬中中的⽂件www.doczj/doc/89bfc8d2b9f3f90f76c61bc3.html 拷贝到当前路径下，且仍使⽤原名
FileCopy “C:\windows\www.doczj/doc/89bfc8d2b9f3f90f76c61bc3.html
,”www.doczj/doc/89bfc8d2b9f3f90f76c61bc3.html
2.删除⽂件。
使⽤Kill语句可以删除磁盘中⼰存在的⽂件，其语法为：
Kill PathName.
建行白金卡年费参数PathName⽤来指定所要删除的⽂件及其路径。如果没有指定路径，会删除当前路径下的⽂件。
Kill语句⽀持多字符（*）和单字符（？）等通配符来指定多重⽂件。
例如：
Kill “D:\vcd\mm.dat”删除D盘Vcd⽬录中的mm.dat⽂件
Kill “Capter1.doc”删除当前路径中的Capter1.doc⽂件
Kill “E:\temp\*.txt”删除E盘Temp⽬录中的所有后缀为TXT的⽂件
Kill “E:\temp\*.*”删除E盘Temp⽬录中的所有⽂件
3.重命名⽂件。
使⽤Name语句可以重命名⽂件或移动⽂件，其语法为：
Name OldPathName As NewPathName.
参数OldPathname⽤来指定所要重命名的⽂件及其路径，参数NewPathname⽤来指定⽂件的新名称及其路径。如果NewPathName参数指定的路径与OldPathName参数指定的路径不同，则⽂件将被移动到新的路径下。
例如：
将D盘中的⽂件重命名
Name “D:\” AS“D:\”
将D盘中的⽂件移动到E盘的Temp⽬录中，并重命名为
Name“D:\” AS “E:\”
Name语句对⽬录也有效，例如：
将D盘中的Tocl⽬录重命名为TT
Name “D:\Tool” As “D:\TT”
将E盘的oicq⽬录移动到D盘的Tools⽬中
Name “E:\Oicq”As “D:\Tools\Oicq”
4.设贵⽂件的属性。
使⽤SetAttr语句可以设置⽂件或⽬录的属性，其语法为：
SetAttr PathName, VbFileAttribute.
参数Pathname⽤来指定所要设置属性的⽂件或⽬录，参数VbFileAtrribute⽤来指定⽂件或⽬录的属性，其取值及含义如表10.1所⽰。
注意：要删除和设置属性的⽂件必须是关闭的，否则会产⽣运⾏错误。
VBFileAttribute参数的取值也可以是各取值的和，这⼀点与在前⾯介绍的通⽤对话框的Flags属性类似。
例如：
设置D盘Temp⽬录中⽂件的属性为只读
setAttr“D:”,1
设置D盘Temp⽬录的属性为隐藏
SetAttr “D:\Temp”,2
设置E盘中yy.jpg⽂件的属性为只读和隐藏
SetAttr “E:\yy.jpg”,3
函数GetAttr⽤来返回⽂件的属性设置，例如，如果GetAttr（E:\yy.jpg）的返回值为1,
则表明⽂件yy:jPg的属性为只读。如果GetAttr函数的返回值为16，则表明是⽬录。
5.获取⽂件的⼤⼩。
使⽤Filelen函数可以获取⽂件的⼤⼩，其语法为：
Filelen（PathName）五年级作文450字
参数PathName⽤来指定要获取⼤⼩的⽂件及其路径。函数的返回值为⼀个长整型值，代表⽂件的⼤⼩，单位是字节。
例如：
显⽰E盘中forml.frm⽂件的⼤⼩，单位为字节。
Print FileLen（“E:\form1.frm”）
10.2.1 驱动器列表框
驱动器列表框⽤来显⽰当前系统所安装的驱动器，例如，软驱、硬盘的各分区和光驱等。驱动器列表框是⼀个下拉式列表框，平时只显⽰⼀个驱动器（在默认情况下，显⽰的是当前驱动器的名称）。单击列表框右边的向下箭头，就会下拉出⼀个驱动器列表，列出当前系统安装的所有驱动器，以供⽤户选择，如图10.1所⽰。
驱动器列表框的最重要的属性是Drive该属性⽤来在运⾏时设置或返回所选择的驱动器，在设计时不可⽤。
例如，将如下语句添加到窗体的Load事件中，则程序启动后驱动器框中显⽰的将是指定的驱动器E:⽽不是当前驱动器。
Drivel.Drive=“E”
在驱动器列表框中选择驱动器并不能⾃动更该系统的当前驱动器，要使⽤户在驰动器列表框中的操作影响到系统，还需要编写⼀定的代码。
改变驱动器列表框的Drive属性的设置值会触发它的Change事件。因此，在Change事件过程中，可⽤ChDrive语句来更改系统当前驱动器，语句如下：
ChDrive Drivel.Drive
10.2.2 ⽬录列表框⽬录列表框⽤于显⽰当前驱动器上的⽬录结构。它以根⽬录开头，显⽰的⽬录按照⼦⽬录的层次依次缩进，如图10.2所⽰。
腾讯客服人工台电话双击某⼀⽬录，可打开该⽬录，即显⽰该⽬录中的所有⼦⽬录。被打开的⽬录的图标为⼀个打开状的⽂件夹。双击打开的⽬录可将其关闭，其中的⼦⽬录不再显⽰出来，并且⽬录的图标变成⼀个关闭状的⽂件夹。
⽬录列表框的最重要的属性是Path，该属性⽤来在运⾏时设置或返回所选择的路径，在设计时不可⽤。
同样，改变⽬录列表框的Path属性的设置值会触发它的Change事件。因此，在Change 事件过程中，可⽤ChDir语句来更改系统当前路径，语句如下：
ChDir Dirl.Path
⽬录列表框只能显⽰当前驱动器下的⽬录，如果要显⽰其他驱动器下的⽬录结构，则必须使⽤Path属性来设置它的路径，最佳选择是将⽬录列表框与驱动器列表框配合使⽤。
实例10.1⽬录列表框与驱动器列表框的配合使⽤。
在窗体上放置⼀个驱动器列表框、⼀个⽬录列表框、⼀个标签控件和⼀个⽂本框控件。如图10.3所⽰，其中各对象属性的设置如表10.2所⽰。
运⾏程序，在驱动器列表框中选择驱动器，则⽬录列表框中的⽬录会同步发⽣相应的改变；在⽬录列表框中选择⽬录，则⽂本框中会显⽰出当前所选择的路径，如图10.4所⽰。
10.2.3 ⽂件列表框⽂件列表框⽤来显⽰当前⽬录中的⽂件列表。⽂件列表框有4个重要的属性，下⾯分别介绍。
1.Path属性。
Path属性⽤来设置或返回列表框中所显⽰⽂件的⽬录，在设计时不可⽤。⽂件列表框常常与⽬录列表框和驱动器列表框⼀起使⽤。在⽬录列表框的Change事件中添加如下语句：File1.Path=Dirl.Path
即可将⽬录列表框与⽂件列表框关联起来，当在⽬录列表框中选择⼀个⽬录时，⽂件列表框中会⾃动同步显⽰出该⽬录中的所有⽂件。
当⽂件列表框的Path属性改变后，会触发它的PathChange事件。
2.Patted属性。
Patten属性⽤来设置或返回⽂件列表框中所显⽰的⽂件类型，该属性既可以在设计时通过【属性】窗⼝设置，也可以在代码中设置。Patters属性的默认值为*、*，即显⽰所有⽂件。当Patters属性改变后，会触发⽂件列表框的pattenChange事件。
例如，要使⽂件列表框中只显⽰⽂本⽂件，则应该将Patten属性的值设置为“ *.TXT”，要设置多个⽂件类型，可以使⽤分号（：）来分隔。
例如：
File1.Pattern=“.DOC”只显⽰word⽂档⽂件
File1.Pattern=“*.EXE;*.COM”显⽰EXE和COM⽂件
File1.Pattern=“*BMP;*GIF;*JPG”显⽰⼏种图形⽂件
梦见被猫咬3. FileName属性。
FileNarne属性⽤来设置或返回⽂件列表框中所选⽂件的路径和⽂件名，如果没有选择任何⽂件，则返回⼀个空字符串。FileNarne属性在设计时不可⽤。
例如：
Print File1.FileName 显⽰⽤户所选择的⽂件

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。