VB6.0基础教程 文件列表框

兔纸兄

   文件列表框用来显示当前目录中的文件列表。文件列表框有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                 显示用户所选择的文件

    在文件列表框中只显示C盘windows目录中的Command.com文件

    File1.FileName=“C:\windows\Command.com”

    在文件列表框中显示C盘windows目录中的EXE文件

    File1.FileName=“C:\windows\*.exe”

   4.与文件属性有关的属性。

    表10.3中列出了与文件属性有关的4个属性，它们用来决定在文件列表框中显示哪一类属性的文件。

    实例10.2文件控件的使用。

  编写代码如下：

Private Sub Form_lcad() Driver.Drive=“F”    Dirl.Path=“F：\” End Sub Private Sub Drivel_Change()   Dirl.Path=Drivel.Drive        关联驱动器列表框和目录列表框 Private Sub Dirl_Change()   File1.Path=Dirl.Path          关联目录列表框和文件列表框 End Sub Private  Sub ComFind_Click()    On Error GoTo wwl    File1.FileName=TexFind.Text     查找文件    Exit Sub ww1:                       错误处理代码    If Err.Number=53 Then    MsgBox “文件未找到！”，64，“提示”    Else    MsgBox “出现未知错误！”，64.“提示”    End If    Resume Next End Sub Private Sub ComDel_Click()

    确定所选文件的路径及文件名

If Right(Dirl.Path, 1)=“\”Then    Else       Delfile=Dirl.Path & “\”&File1.FileName    End If    On Error GoTo ww2    msg=MsgBox(“是否真的删除文件？”，36，“警告”)    If msg=6 Then                    判断用户做出的选择       Kill Defile                   删除文件       Filel.Refresh                 刷新文件列表框    Exit Sub ww2：    If Err.Number=75 Then    MsgBox“文件不能被删除！”，64，“提示”    Else    MsgBox“出现未知错误！”，64，“提示”    End If    Resume Next End Sub Private Sub ComClose_Click()    End End Sub

    在程序代码中，首先在窗体的Load事件中设置了文件控件的初始值，即在启动程序后。驱动器列表框显示的是P盘，目录列表框显示的是F盘的根目录。驱动器列表框和目录列表框的Change事件过程用来关联3个文件控件。

    在查找文件时，如果用户输入的文件不存在，则会产生错误，并且错误号为53.在删除文件时，也可能会出现错误，例如，要删除的文件是只读的或文件已被打开，就会产生一个错误号为75的错误。为了处理这些错误，在【查找】按钮和【删除】按钮的Click事件过程中都设置了错误陷阱及错误处理代码。

    在该程序中，使用文件控件自行设计一个文件管理对话框，通过该对话框可以浏览系统中的文件，还可以进行文件的查找和删除操作。

    在窗体中放置1个驱动器列表框、1个目录列表框、1个文件列表框、l个标签控件、1个文本框控件和3个按钮控件，如图10.5所示，其中各对象的属性设置如表10.4所示。

  在删除文件时，首先要获得用户所选文件的路径及文件名。可以使用目录列表框的Path属性所返回的路径和文件列表框的FiIeName属性返回的文件名来‘拼接“出Kill语句所需要的参数。需要注意的是，Path属性返回根目录时，己经带有冒号〔：）和反斜杠（\），例如返回的是C.1而不是C或者C:.因此，在代码中使用了If语句，来判断是否有必要在文件名与路径之间添加一个反斜杠。

    运行该程序，在驱动器中选择驱动器，则目录列表框和文件列表框都会同步变化，在目录列表框中选择目录，则文件列表框会同步显示出所选目录中的文件。

    在文本框中输入要查找的文件名称，单击【查找】按钮，则文件列表框中就会显示出该文件，如图10.7所示。如果查找的文件不在当前文件列表中或不存在，则弹出消息框，提示文本找到。在查找文件时也可以使用通配符，例如，输入*.EXE,则文件列表框中显示出当前目录中的所有EXE文件。

    在文件列表框中选中某个文件，单击【删除】按钮则弹出消息框，提示用户是否真的删除文件。单击【是】按钮则被选中的文件将被删除，单击【否】按钮则不删除该文件。

    如果所要删除的文件是只读文件或文件己被打开，则执行文件的删除操作时会弹出消息框，提示用户此文件不能被删除。