zoukankan      html  css  js  c++  java
  • VBA 获取文件夹内的文件列表

    Private strFiles(20)

    Private Sub GetFiles(ByVal strFolder As String, ByVal ty As String) ' 获取文件列表

        If iFiles = 0 Then
            Erase strFiles
        End If
       
        If iFiles > 20 Then
            Exit Sub
        End If
       
        Dim FilePaths, FilePath As String
       
        FilePaths = strFolder & "*." & ty
       
        FilePath = Dir(FilePaths)          'Dir返回匹配*.*的第一个文件名
       
        Do While FilePath <> ""
       
            strFiles(iFiles) = strFolder & "" & FilePath
           
            iFiles = iFiles + 1
           
            FilePath = Dir        '再一次调用Dir,得到其它匹配*.*的文件名
           
        Loop
      
    End Sub

  • 相关阅读:
    day2-元组 列表-赋值和深浅拷贝
    day1-bytes类型 三元运算 进制
    DAY02
    DAY02
    Python格式化、显示颜色
    DAY02
    DAY02
    DAY02
    DAY02
    DAY02
  • 原文地址:https://www.cnblogs.com/lbnnbs/p/4785002.html
Copyright © 2011-2022 走看看