精华内容
下载资源
问答
  • Vb6中Dir()函数的使用方法:
  • vb.net 使用 DIR 遍历文件目录

    千次阅读 2016-05-10 15:47:54
    Dir 函数示例 本示例使用 Dir 函数来检查某些文件或目录是否存在。在 Macintosh 计算机上,默认驱动器名称是 “HD” ,并且路径部分由冒号取代反斜线隔开。而且 Microsoft Windows 的通配符在 Mac 中可以作为有效...

    原文地址

    Dir 函数示例
    本示例使用 Dir 函数来检查某些文件或目录是否存在。在 Macintosh 计算机上,默认驱动器名称是 “HD” ,并且路径部分由冒号取代反斜线隔开。而且 Microsoft Windows 的通配符在 Mac 中可以作为有效字符出现在文件名中。也可以使用 MacID 函数来指定文件组。

    Dim MyFile, MyPath, MyName

    ' 返回“WIN.INI” (如果该文件存在)。
    MyFile = Dir("C:\WINDOWS\WIN.ini")   

    ' 返回带指定扩展名的文件名。如果超过一个 *.ini 文件存在,
    ' 函数将返回按条件第一个找到的文件名。
    MyFile = Dir("C:\WINDOWS\*.ini")

    ' 若第二次调用 Dir 函数,但不带任何参数,则函数将返回同一目录下的下一个 *.ini 文件。
    MyFile = Dir

    ' 返回找到的第一个隐式 *.TXT 文件。
    MyFile = Dir("*.TXT", vbHidden)

    ' 显示 C:\ 目录下的名称。
    MyPath = "c:\"   ' 指定路径。
    MyName = Dir(MyPath, vbDirectory)   ' 找寻第一项。
    Do While MyName <> ""   ' 开始循环。
       ' 跳过当前的目录及上层目录。
       If MyName <> "." And MyName <> ".." Then
          ' 使用位比较来确定 MyName 代表一目录。
          If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
             Debug.Print MyName   ' 如果它是一个目录,将其名称显示出来。
          End If
       End If
       MyName = Dir   ' 查找下一个目录。
    Loop



    帮助里面的解释,这里应该有你要的答案。

    展开全文
  • vbdir函数用法

    千次阅读 2010-07-22 11:14:00
    vb中提供的成员函数dir返回一个满足指定类型或指定文件属性的文件名,目录名或卷标名,dir函数的语法结构为:Member Function Dir[(Pathname[,attributes])] As String 其中参数Pathname通常为一个文件名,此文件名...

    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(Dirname, vbNormal + vbDirectory) Do While FileNames <> "" If FileNames <> "." And FileNames <> ".." Then If (GetAttr(Dirname & 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控件,用来显示所查找到的文件,以便用户能选中其一.

    展开全文
  • VB 使用 Dir 函数遍历文件夹

    万次阅读 2012-05-31 15:19:30
    语法: Dir[(pathname[, attributes])] Dir 函数的语法具有以下几个部分: 以 vbDirectory 属性来调用 Dir 不能连续地返回子目录。!!!...以下是VB帮助自带查目录的例子,明确的指出目录必须要...MyName = Dir(MyPath, vb
    语法: 
    

    Dir[(pathname[, attributes])]

    Dir 函数的语法具有以下几个部分:

    以 vbDirectory 属性来调用 Dir 不能连续地返回子目录。!!!

    以下是VB帮助自带查目录的例子,明确的指出目录必须要用GetAttr!!!

    ' 显示 C:\ 目录下的名称。
    MyPath = "c:\" ' 指定路径。
    MyName = Dir(MyPath, vbDirectory) ' 找寻第一项。
    Do While MyName <> "" ' 开始循环。
    ' 跳过当前的目录及上层目录。
    If MyName <> "." And MyName <> ".." Then
    ' 使用位比较来确定 MyName 代表一目录。
    If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then

    Debug.Print MyName ' 如果它是一个目录,将其名称显示出来。
    End If
    End If
    MyName = Dir ' 查找下一个目录。
    Loop


    =========================================

    用VB函数Dir实现递归搜索目录

    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

    '函数GetExtName

    '功能:得到文件后缀名(扩展名)

    '输入:文件名

    '输出:文件后缀名(扩展名)

    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

    Public Function GetExtName(strFileName As String) As String
    Dim strTmp As String
    Dim strByte As String
    Dim i As Long
    For i = Len(strFileName) To 1 Step -1
         strByte = Mid(strFileName, i, 1)
         If strByte <> "." Then
            strTmp = strByte + strTmp
        Else
          Exit For
        End If
    Next i
    GetExtName = strTmp
    End Function
    Public Function search(ByVal strPath As String, Optional strSearch As String = "") As Boolean
    Dim strFileDir() As String
    Dim strFile As String
    Dim i As Long

    Dim lDirCount As Long
    On Error GoTo MyErr
    If Right(strPath, 1) <> "\" Then strPath = strPath + "\"
    strFile = Dir(strPath, vbDirectory Or vbHidden Or vbNormal Or vbReadOnly)
    While strFile <> "" '搜索当前目录
            DoEvents
            If (GetAttr(strPath + strFile) And vbDirectory) = vbDirectory Then '如果找到的是目录
               If strFile <> "." And strFile <> ".." Then '排除掉父目录(..)和当前目录(.)
                   lDirCount = lDirCount + 1 '将目录数增1
                   ReDim Preserve strFileDir(lDirCount) As String
                   strFileDir(lDirCount - 1) = strFile '用动态数组保存当前目录名
               End If
            Else
                If strSearch = "" Then
            Form1.List1.AddItem strPath + strFile
                ElseIf LCase(GetExtName(strPath + strFile)) = LCase(GetExtName(strSearch)) Then
                  '满足搜索条件,则处理该文件
                   Form1.List1.AddItem strPath + strFile '将文件全名保存至列表框List1中
                End If
            End If
            strFile = Dir
    Wend
    For i = 0 To lDirCount - 1
          Form1.Label3.Caption = strPath + strFileDir(i)
          Call search(strPath + strFileDir(i), strSearch) '递归搜索子目录
    Next
    ReDim strFileDir(0) '将动态数组清空
    search = True '搜索成功
    Exit Function
    MyErr:
    search = False '搜索失败
    End Function

    展开全文
  • VB 控件随窗体自动调整大小,像窗口中的ListBox、Image、FileListBox、VB.Frame控件等,都可以随窗口的大小变化而变化,当用户拖动改变窗口大小时,这些控件的大小也会随之改变,这个功能的实现得益于自定义函数Form...
  • 使用各种函数判断局域网内的共享文件夹是否存在,遇到了文件路径不存在程序会假死的问题,请问有什么办法能在不假死的情况下判断网络共享文件是否存在
  • VB6.0中Dir()函数的使用方法

    千次阅读 2008-08-15 16:43:46
    VB中提供的成员函数dir返回一个满足指定类型或指定文件属性的文件名,目录名或卷标名。dir函数的语法结构为: Member Function Dir[(Pathname[,attributes])] As String  其中参数Pathname通常为一个文件名,...
    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控件,用来显示所查找到的文件,以便用户能选中其一。进入讨论组讨论。
    展开全文
  • 遍历指定文件夹下的所有文本夹,首先,获取所有的文件夹;其次,从找到的第一个文件开始,循环查找,直到没有文件为止,最后,将文件目录和文件名组合,并存放到数组中
  • Dir 函数使用详解:

    2021-02-07 14:18:55
    VB Dir 函数使用详解: 返回一个 String,用以表示一个文件名、目录名或文件夹名称,它必须与指定的模式或文件属性、或磁盘卷标相匹配。 语法: Dir [(pathname[, attributes])] Dir函数的语法具有以下几个部分: 部分...
  • 选择文件夹提取文件名 VB程序,可以获取无后缀文件名 也可以获取带后缀文件名 ,两种选择,供您选择——大吉利祝您工作愉快~~
  • VB函数Dir实现递归搜索目录 我在很久以前就实现了这个方法了.它没有采用任何的控件形式.也没有调用系统API函数FindFirst,FindNext进行递归调用,和别人有点不同的就是我用的是VB中的Dir()函数.事实...
  • VBA中DIR用法举例.doc

    千次阅读 2020-12-30 09:55:45
    VBA中DIR用法举例VBA中DIR函数用法讲解1、dir代码演示先上一段代码,作用是获取某个文件夹下子文件夹和文件的名称没加注释的代码Sub 获取文件夹和文件名()Dim str1 As String, str2 As String, i As IntegerSet a = ...
  • 这个实例演示了包括对系统级环境变量的操作、用户级、包括其显示、改变、创建。
  • vb.net的 Attribute用法

    2019-01-06 16:56:10
     Attribute&lt;属性&gt;进一步详细类、属性、变量、过程和函数等的定义内容,为编译器和系统运行库提供更多...VB2010定义了400多个&lt;属性&gt;,大多数位于System.ComponentModel命名空间内,所...
  • 今天介绍利用Excel VBA的Dir方法来遍历某文件夹下的所有excel文件。还是直接来看例子,假设在D盘有一个叫工作日志的文件夹,里面放着每日的工作记录,都是excel 2007表格,现在由于工作需要要从这里表格中提取数据,...
  • vb菜单联动

    2015-08-22 23:40:52
    vb菜单联动Private Sub close_Click() On Error Resume Next '循环语句 For Each main In Forms If main.MDIChild = True Then Unload main End If Next Dim FNum As Integer Dim strfilename As String ...
  • VB遍历某目录下的某类型文件(Dir)

    千次阅读 2008-02-20 13:10:00
    List = ""tmp = Dir("c:*.txt")List = tmp + vbCrLfDo While tmp "" tmp = Dir List = List + tmp + vbCrLfLoopMsgbox List 
  • VB简单图片浏览

    2015-08-16 10:27:10
    Form1.File1.Path = Form1.Dir1.Path End Sub Private Sub Drive1_Change() Form1.Dir1.Path = Form1.Drive1.Drive End Sub Private Sub File1_Click() Form1.Picture1.Picture = LoadPicture(Form1.File1.Path ...
  • 几十个VB源代码

    2015-04-22 16:37:23
    2009-09-19 22:38 <DIR> 16进制数转换成十进制16进制转换 2009-09-19 22:38 <DIR> 16进制数转换成十进制16进制转换成二进 2009-09-23 22:37 <DIR> 3d彩旦 2009-09-23 21:51 <DIR> 3d水波纹 2009-09-23 22:03 <DIR> ...
  • 取法:strfilename = Dir(strpath, 7) 其中:strfilename--文件名strpath--完整的文件路径7--参数
  • VB 创建文件夹

    2021-08-05 00:35:24
    方法一:Public Function CheckDir(ByVal DirName As String) As BooleanDim ret As Integerret = SHFileExists(DirName)If ret = 0 ThenCheckDir = FalseElseCheckDir = TrueEnd IfEnd FunctionIf Dir("C:\Program ...
  • vb 连接ftp服务器

    2021-08-14 04:32:17
    vb 连接ftp服务器 内容精选换一换FTP/SFTP连接适用于从线下文件服务器或ECS服务器上迁移文件到OBS或数据库。当前仅支持Linux操作系统的FTP 服务器。连接FTP或SFTP服务器时,他们的连接参数相同,如表1所示。FTP/SFTP...
  • VB 提取Windows收藏夹内的内容,并将指定网址加入收藏夹。返回带指定扩展名的文件名。如果超过一个 *.url 文件存在,函数将返回按条件第一个找到的文件名。 若第二次调用 Dir 函数,但不带任何参数,则函数将返回...
  • VB6.0基础 打开文件夹

    2019-09-17 17:09:49
    Shell "explorer D:\dir-demo-2019-07-14", 1 End Sub   result   resource [ 文档 ] docs.microsoft.com/zh-cn/previous-versions/visualstudio/visual-basic-6/visual-basic-6.0-documentation ...
  •  3、支持创建控制台应用程序:生成的应用程序没有任何窗体,所有输入输出均通过系统命令行进行,真正的控制台字符界面,使用体验和DIR、DELETE、COPY等DOS命令完全一致。除此之外还支持标准EXE、ActiveX EXE、...
  • 微软旗下.net平台凭其易操作性、功能强大备受现代码农的喜爱,vb作为一门面向对象的程序语言,有着强大的功能和相对简单的操作,vb.net作为基于vb语言的面向对象的开发平台,同样有着优秀的操作体验以及更加强大的...
  • 在编写数据库应用程序时,...本文介绍在VB中动态加载ODBC数据源的两种方法。方法之一:修改注册表一般情况下,用户在控制面板中配置好ODBC数据源后,Windows系统会将用户配置的信息写在注册表中。当应用程序需要用...
  • VB 精典适用源代码

    2021-04-28 01:50:35
    查找方法:按ctrl+f,输入要查找的问题关键字即可每...////////////////////////////////////////////////////////////////////////////////////如何用VB建立快捷方式Private Declare FunctionfCreateShellLinkLib"...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 9,555
精华内容 3,822
关键字:

dirvb