[求助]如何用VBA遍历指定目录下的所有子文件夹和文件

cjq253

yf_992258 发表于 2009-8-30 11:53
Sub 建立资料目录() '使用双字典，旨在提高速度

Dim MyName, Dic, Did, I, T, F, TT, MyFileName, objSh ...

大神你好，在用这个代码遍历文件夹的过程中，如果某个文件名称含有非Unicode编码的字符时，就会中断报错，如何解决这个问题呢？举个例子，文件名为"制造・客户.xlsx"，“・”会在VBA众替换成"?"，导致无法读取

昵称?没有！

zldccmx 发表于 2008-9-21 18:18
Sub Test() '使用双字典，旨在提高速度    Dim MyName, Dic, Did, I, T, F, TT, MyFileName ...

试了一下，效果很棒！这个运行时间提示很巧妙！

xiaonankelly

收藏了！学习学习！

团子大家族cl

yf_992258 发表于 2009-8-28 15:34
添加一段选择文件夹目录的代码即可
Sub Test() '使用双字典，旨在提高速度
    Dim MyName, Dic, Did,  ...

这种DIR加字典感觉速度飞快!

ning84

zldccmx 发表于 2008-9-21 00:31
给一个笨笨的办法，使用 DIR!'以查找D:\盘下所有EXCEL文件为例Sub M_dir()'这是一个主模块，中间调用两人子 ...

学习高手的编程思路，重新做一遍题目，获取所有目录名和文件名。


   Dim Dict As Dictionary
关键语句
       Set Dict = New Dictionary
       Dict.Add ("F:\日出日落\"), ""
       oKey = Dict.Keys
       MyName = Dir(oKey(ii), vbDirectory)
         

                If (GetAttr(oKey(ii) & MyName) And vbDirectory) = vbDirectory Then    '如果是次级目录
                     Dict.Add (oKey(ii) & MyName & "\"), ""  '就往字典中添加这个次级目录名作为一个条目
               End If
            End If

1.    Dim Dict As Dictionary, oDic, oKey
   
2.    Dim MyName
   
3.    Dim ii
   
4.        Set Dict = New Dictionary
   
5.        Dict.Add ("F:\日出日落"), ""
   
6.        ii = 0
   
7.        Do While ii < Dict.Count
   
8.           oKey = Dict.Keys
   
9.           MyName = Dir(oKey(ii), vbDirectory)
   
10.          
    
11.           Do While MyName <> ""
    
12.             If MyName <> "." And MyName <> ".." Then
    
13.                 Debug.Print oKey(ii) & MyName, GetAttr(oKey(ii) & MyName)
    
14.                 If (GetAttr(oKey(ii) & MyName) And vbDirectory) = vbDirectory Then    '如果是次级目录
    
15.                      Dict.Add (oKey(ii) & MyName & ""), ""  '就往字典中添加这个次级目录名作为一个条目
    
16.                End If
    
17.             End If
    
18.             MyName = Dir    '继续遍历寻找
    
19.             'Debug.Print MyName ', Dir
    
20.           Loop
    
21.           ii = ii + 1
    
22.        Loop

复制代码

1. Sub ll()
   
2.    'Dim FullDict As Dictionary
   
3.    Dim FileDict As Dictionary
   
4.    Dim PathDict As Dictionary
   
5.    Dim oDic, oKey
   
6.    Dim MyName
   
7.    Dim ii
   
8.        Set PathDict = New Dictionary
   
9.        Set FileDict = New Dictionary
   
10.        PathDict.Add ("F:\日出日落\高德地图"), ""
    
11.       
    
12.        ii = 0
    
13.        Do While ii < PathDict.Count
    
14.           oKey = PathDict.Keys
    
15.           MyName = Dir(oKey(ii), vbDirectory)
    
16.          
    
17.           Do While MyName <> ""
    
18.             If MyName <> "." And MyName <> ".." Then
    
19.                 'Debug.Print oKey(ii) & MyName, GetAttr(oKey(ii) & MyName)
    
20.                 If (GetAttr(oKey(ii) & MyName) And vbDirectory) = vbDirectory Then    '如果是次级目录
    
21.                      PathDict.Add (oKey(ii) & MyName & ""), ""  '就往字典中添加这个次级目录名作为一个条目
    
22.                End If
    
23.             End If
    
24.             MyName = Dir    '继续遍历寻找
    
25.             'Debug.Print MyName ', Dir
    
26.           Loop
    
27.           ii = ii + 1
    
28.        Loop
    
29.       
    
30.        FileDict.Add ("JPG"), ""
    
31.        For ii = 0 To PathDict.Count - 1
    
32.            oKey = PathDict.Keys(ii)
    
33.            MyFileName = Dir(oKey & "*.JPG")
    
34.            Do While MyFileName <> ""
    
35.               FileDict.Add (oKey & MyFileName), ""
    
36.               MyFileName = Dir
    
37.            Loop
    
38.        Next ii
    
39.       
    
40.        For ii = 0 To FileDict.Count - 1
    
41.            Debug.Print ii, FileDict.Keys(ii)
    
42.        Next ii
    
43.        For ii = 1 To PathDict.Count - 1
    
44.            Debug.Print PathDict.Keys(ii)
    
45.        Next ii
    
46. End Sub

复制代码

      

宸鸢未撩

yf_992258 发表于 2009-8-28 15:34
添加一段选择文件夹目录的代码即可
Sub Test() '使用双字典，旨在提高速度
    Dim MyName, Dic, Did,  ...

这个要怎么使用呢，复制到Excel宏里面，怎么运行起来呢？