`
toyota2006
  • 浏览: 551539 次
  • 性别: Icon_minigender_1
  • 来自: 石家庄
社区版块
存档分类
最新评论

VB6.0中Dir()函数的使用方法

阅读更多
VB中提供的成员函数dir返回一个满足指定类型或指定文件属性的文件名,目录名或卷标名。dir函数的语法结构为:

Member Function Dir[(Pathname[,attributes])] As String 

  其中参数Pathname通常为一个文件名,此文件名可以包含目录或文件夹以及驱动器符号,如果没有找到指定的Pathname,dir语句将返回一个零长度的字符串(""),支持多字符通配符和单字符通配符。需要注意的是:

  1.在程序中第一次调用dir函数时必须指明pathname参数,否则会产生运行错误;

  2.dir函数只返回满足pathname条件的第一个文件名或目录名,要得到其余满足条件的文件名,可以再次调用dir函数而不用带参数,当没有匹配的文件,dir函数返回零长度的字符串,而此时如果再想调用dir函数,必须指定pathname参数,否则出现运行错误;

  3.在没有检索到满足当前pathname匹配条件的文件时可以改变新的pathname值,但不能再次递归调用dir函数;

  4.调用dir函数时将属性参数设置为vbdirectory并不能连续返回子目录,仅返回当前目录下的目录。
  
  例1

Public Sub main() 
Dim filenames As String 
filenames = Dir("c:\", vbNormal + vbDirectory) 
Do While filenames <> "" 
Debug.Print filenames 
filenames = Dir ’再次调用dir函数,此时可以不带参数 
Loop 
End Sub
 

  例2

’将符合条件的条件和目录分类,存到对应的数组中,完成输出
Public Sub main() 
 Dim FileNames As String, DirNames As String 
 Dim FileArray() As String, DirArray() As String 
 Dim TotalDirs As Integer, TotalFiles As Integer 
 Dim iLoop As Integer 

 DirNames = "c:\" 
 FileNames = Dir(DirNames ,vbNormal + vbDirectory) 
 Do While FileNames <> "" 
  If FileNames <> "." And FileNames <> ".." Then 
   If (GetAttr(DirNames & FileNames) And vbDirectory) = vbDirectory Then 
    TotalDirs = TotalDirs + 1 
    ReDim Preserve DirArray(TotalDirs) 
    DirArray(TotalDirs) = FileNames 
   Else 
    TotalFiles = TotalFiles + 1 
    ReDim Preserve FileArray(TotalFiles) 
    FileArray(TotalFiles) = FileNames 
   End If 
  End If 
  FileNames = Dir 
 Loop 
 ’这里可对数组进行排序,此处略 
 Debug.Print "___Directories______" 
 For iLoop = 0 To UBound(DirArray) 
  Debug.Print DirArray(iLoop) 
 Next 
 Debug.Print "___Files____" 
 For iLoop = 0 To UBound(FileArray) 
  Debug.Print FileArray(iLoop) 
 Next 
End Sub  

  Dir函数可以用在不确定本机是否存在某文件或目录的前提下后台帮助用户寻找并提示,然后运用该文件或目录完成指定操作,如run等。但是由于不能递归使用,这就意味着不能一次查找整棵树,更为糟糕的是,vb并没有提供用来在多个不知名的目录中查找某一给定的文件或文件簇的任何工具。幸运的win32api提供了一些文件查找的方法(SearchPath,FindFirstFile,FindNextFile等),此外还可利用已有的文件查找知识为用户创建一个listbox控件,用来显示所查找到的文件,以便用户能选中其一。进入讨论组讨论。
分享到:
评论

相关推荐

    Vb6中Dir()函数的使用方法

    ### Vb6中Dir()函数的使用方法 在Visual Basic 6.0(简称VB6)编程语言中,`Dir()` 函数是一个非常实用的功能,主要用于检索指定路径下的文件列表。该函数对于需要处理文件系统操作的应用程序尤其有用。本文将详细...

    文件批量打印VB6.0源代码.rar

    `Dir`函数是VB6.0中的文件系统操作函数,它允许你获取指定路径下符合特定条件的文件名。在批量打印的场景中,可以通过改变`Dir`函数的参数来获取文件夹中的所有文件,并将它们加入到打印队列。 `PrintDocument`是VB...

    VB6.0图片裁切的实现 代码实例.rar

    在VB6.0中,我们可以使用GDI+(Graphics Device Interface Plus)库来处理图像,它提供了丰富的图形绘制和处理函数。 1. **图形界面设计**:代码实例中可能包含了用户界面的设计,如添加一个OpenFileDialog控件让...

    用VB操作Excel(VB6.0)(整理).doc

    使用 VB 操作 Excel(VB6.0) VB(Visual Basic)是微软公司开发的一种编程语言,Excel 是微软公司开发的一种电子表格软件。VB 可以通过自动化功能来操作 Excel,实现对 Excel 的读写、控制和处理。本资源摘要信息...

    VB的kill删除功能程序(VB6.0代码编写)

    下面将详细阐述`Kill`函数的使用方法、相关知识点以及在VB6.0中的应用。 `Kill`函数的基本语法是: ```vb Kill filename ``` 这里的`filename`参数是必需的,它是一个字符串类型,用来指定要删除的文件的完整路径。...

    创建和删除文件夹程序(VB6.0代码编写)

    综上所述,VB6.0提供了多种方式来创建和删除文件夹,包括使用内置函数`MkDir`和`RmDir`,以及使用`FileSystemObject`对象。根据项目需求和具体情况,可以选择适合的方法。在进行这些操作时,务必注意错误处理和权限...

    获得windows和system路径程序(VB6.0源代码编写)

    在VB6.0环境下,开发一个能够获取Windows和System路径的程序是一项基础但重要的任务,尤其是在进行系统级的编程和调试时。...通过学习和理解这段代码,你可以深入了解Windows API的使用以及VB6.0与系统交互的基本方法。

    文件提取器程序(VB6.0代码编写)

    为了获取文件名,可以使用VB6.0的`Dir`函数,它能返回指定路径下匹配特定条件的第一个文件名。通过循环和`Dir`函数,可以遍历整个目录结构,收集所有文件的名称。例如: ```vb filename = Dir("C:\path\to\folder\",...

    自动识别Access 2000数据库路径例子,可以查上一条记录,下一条记录, '数据库连接,'查询语句,'调用函数等,VB6.0源代码,

    这通常涉及使用`Dir()`函数来查找特定扩展名的文件,然后通过`OpenDatabase`或`ADODB.Connection`对象打开数据库。 2. **数据库连接**:连接到Access数据库主要通过ADO(ActiveX Data Objects)中的`Connection`...

    文件管理系统(VB6.0代码编写)

    2. **目录操作**:VB6.0中的`Dir`函数和`ChDir`函数可以帮助获取和改变当前目录,而`MkDir`和`RmDir`用于创建和删除目录。在系统中,用户可能需要浏览不同的文件夹,这些功能必不可少。 3. **界面设计**:文件管理...

    VB编写的利用程序附加SQL Server数据库程序,VB6.0源代码编写

    在VB6.0中,我们主要使用ADO(ActiveX Data Objects)来与SQL Server进行交互。ADO提供了一组接口和类,使程序员能够方便地访问和操作数据库。这个VB程序可能包含了以下几个关键知识点: 1. **连接数据库**:首先,...

    vb6.0得到计算机上windows目录和系统目录

    在VB6.0中,我们可以使用内置的`Environ`函数来获取这些目录。`Environ`函数用于返回指定环境变量的值。例如,要获取Windows目录,可以使用: ```vb Dim WindowsDir As String WindowsDir = Environ("windir") ``` ...

    Visual basic 6.0 命令调用大全

    3. **文件系统操作**:VB6提供了`FileOpen`、`FileClose`、`Write#`、`Read#`等函数处理文件读写,以及`Dir`、`ChDrive`、`ChDir`等函数管理目录和驱动器。通过这些函数,开发者可以实现复杂的文件管理和数据存储。 ...

    vb操作cmd命令行读取返回值

    在VB6中,可以使用`WScript.Shell`对象的`Run`方法,并通过`StdOut`属性获取输出,如以下示例所示: ```vb Dim wsh As Object Set wsh = CreateObject("WScript.Shell") With wsh.Exec("cmd /c dir") Do While ....

    VB读取数据库测试程序

    在VB6.0中,这可能涉及到使用`Dir`函数来遍历目录,找到.MDB文件,这是Access数据库的默认文件格式。接着,程序会连接到数据库,这可能利用了`ADODB.Connection`对象和相应的连接字符串。然后,使用`ADODB.Recordset...

    DirTree 目录 OOP 遍历 框架

    VB6.0中,可以使用`Dir$`函数配合循环结构来实现这一功能。通过递归调用,可以遍历整个目录树。 3. **递归算法**:在DirTree框架中,为了实现深度优先或广度优先遍历,可能会使用递归函数。递归函数会自我调用,...

    精彩编程与编程技巧-在Visual Basic 6.0中实现自动播放VCD...

    ### 在Visual Basic 6.0中实现自动播放VCD的知识点 #### 1. VCD自动播放原理 在实现VCD自动播放之前,我们需要理解VCD的基本结构和工作原理。VCD(Video CD)是一种存储视频数据的标准格式,通常包含在光盘上。一个...

    VB用Treeview做成的类似资源管理器,带有系统图标

    在VB6.0环境下,开发一个类似于Windows资源管理器的应用程序是一项常见的编程任务。这个项目利用了TreeView控件和ImageList组件,实现了文件夹的单级展开,并且能够显示与系统一致的图标,增强了用户体验。以下是对...

    实现VB FTP上传文件

    在VB6中,打开控件工具箱,找到并添加“Microsoft Winsock Control 6.0”控件。然后在窗体上放置一个Winsock控件,通常命名为`Winsock1`。 **2. FTP连接设置** 在代码中,需要设置FTP服务器的地址、端口号(默认为...

    vb将文本框内容保存到txt文本.rar_VB TXT 文本_VB保存txt文本_vb TXT文本框_vb6_vb保存文本

    VB6中没有内置的`StreamWriter`类,但我们可以使用`FreeFile`函数获得一个可用的文件句柄,再用`Open`函数打开文件,接着使用`WriteLine`或`Write`方法写入数据,最后用`Close`函数关闭文件。以下是一个简单的示例...

Global site tag (gtag.js) - Google Analytics