dir成功搜索了文件夹，但是该如何计算文件的个数，用来给数组赋下标用？

布鲁斯　发表于：2013-07-23 10:54:25 　

我想将成功读取的文件名赋给一个数组，数组下标根据搜索到的文件数来确定，但是怎么搞都有问题，求大神帮忙！！！！！

一下是我现在的代码

            Dim strPath, strTmp As String
            Dim i, j As Integer                                    'i是行，j是列
            Dim kk As String

            Dim g()'这里的下标不知如何确定
            i = 0
            strPath = "D:\11\"
            strTmp = Dir(strPath & "*.xls")
            Do While strTmp <> ""
                msgbox strtmp’在这里加 g(i)=strtmp i=i+1 会报“下标越界 ”，想了很久都解决不了下标，所以求一个方法来确定下标
              strTmp = Dir
            Loop

Top

煮江品茶发表于：2013-07-23 11:29:32

http://www.accessoft.com/blog/article-show.asp?userid=10802&Id=5956

Top

布鲁斯发表于：2013-07-24 10:06:12

这个问题还没解决，但是我用其他的形式实现了，非常感谢“煮江品茶”老师给的示例，启发很大，也很有收藏的价值

Top

总记录：2篇页次：1/1 9 1 :

Access交流中心

dir成功搜索了文件夹，但是该如何计算文件的个数，用来给数组赋下标用？