遍历目录----类型不匹配备问题。

ning84

1. Sub Test()
   
2.     TraverseSubFolder "D:"  ' & "Streetsnap"
   
3.    
   
4. End Sub
   
5. 
   
6. Sub TraverseSubFolder(FolderPath)
   
7.     Dim T: T = Time
   
8.     Dim Fso  As FileSystemObject
   
9.         Set Fso = New FileSystemObject
   
10.    
    
11.     Dim CurFolder As Folder
    
12.     Dim SubFolder As Folder
    
13.     Dim oFolder As Folder
    
14.    
    
15.    
    
16.     Set CurFolder = Fso.GetFolder(FolderPath)
    
17.    
    
18.     ' 遍历当前文件夹的子文件夹
    
19.     For Each SubFolder In CurFolder.SubFolders
    
20.         ' 处理子文件夹
    
21.         
    
22.         Debug.Print SubFolder.Path, SubFolder.Type
    
23.         If SubFolder.Path <> "System Volume Information" And InStr(SubFolder.Path, "$RECYCLE") = 0 And InStr(SubFolder.Path, "-") = 0 Then
    
24.             
    
25.              Set oFolder = SubFolder.SubFolders
    
26.              If oFolder.SubFolders.Count = 0 And oFolder.Files.Count = 0 Then
    
27.                 Fso.DeleteFolder True
    
28.              End If
    
29.         End If
    
30.         
    
31.         ' 递归调用，继续遍历子文件夹的子文件夹
    
32.         TraverseSubFolder SubFolder.Path
    
33.     Next SubFolder
    
34. End Sub
    
35. 
    

复制代码

D:\$RECYCLE.BIN\S-1-5-21-2532754634-1420146695-701886390-500\$RTDVPWT\360\360zip    文件
D:\$RECYCLE.BIN\S-1-5-21-2532754阿634-1420146695-701886390-500\$RTDVPWT\360\360zip\Assets           文件
D:\$RECYCLE.BIN\S-1-5-21-2532754634-1420146695-701886390-500\$RTDVPWT\360\360zip\config           文件
D:\$RECYCLE.BIN\S-1-5-21-2532754634-1420146695-701886390-500\$RTDVPWT\360\360zip\config\defaultskin             文件
D:\$RECYCLE.BIN\S-1-5-21-2532754634-1420146695-701886390-500\$RTDVPWT\360\360zip\config\filechecker             文件
D:\$RECYCLE.BIN\S-1-5-21-2532754634-1420146695-701886390-500\$RTDVPWT\360\360zip\config\multimedia              文件
D:\$RECYCLE.BIN\S-1-5-21-2532754634-1420146695-701886390-500\$RTDVPWT\360\360zip\config\zclassic  文件
D:\$RECYCLE.BIN\S-1-5-21-2532754634-1420146695-701886390-500\$RTDVPWT\360\360zip\config\zcomment  文件
D:\$RECYCLE.BIN\S-1-5-21-2532754634-1420146695-701886390-500\$RTDVPWT\360\360zip\config\zcomment\skin           文件
D:\$RECYCLE.BIN\S-1-5-21-2532754634-1420146695-701886390-500\$RTDVPWT\360\360zip\config\zcomment\template       文件
D:\$RECYCLE.BIN\S-1-5-21-2532754634-1420146695-701886390-500\$RTDVPWT\360\360zip\config\zdefaultskin            文件
D:\$RECYCLE.BIN\S-1-5-21-2532754634-1420146695-701886390-500\$RTDVPWT\360\360zip\config\zwin10styleskin         文件
D:\$RECYCLE.BIN\S-1-5-21-2532754634-1420146695-701886390-500\$RTDVPWT\360\360zip\tools            文件
D:\$RECYCLE.BIN\S-1-5-21-2532754634-1420146695-701886390-500\$RTDVPWT\360\360zip\tools\360kantu   文件
D:\$RECYCLE.BIN\S-1-5-21-2532754634-1420146695-701886390-500\$RTDVPWT\360\360zip\tools\360kantu\icon            文件
D:\$RECYCLE.BIN\S-1-5-21-2532754634-1420146695-701886390-500\$RTDVPWT\360\360zip\tools\360PdfView 文件
D:\$RECYCLE.BIN\S-1-5-21-2532754634-1420146695-701886390-500\$RTDVPWT\360\360zip\utils            文件
D:\$RECYCLE.BIN\S-1-5-21-2532754634-1420146695-701886390-500\$RTDVPWT\SogouWBInput  文件
D:\$RECYCLE.BIN\S-1-5-21-2532754634-1420146695-701886390-500\$RTDVPWT\SogouWBInput\5.5.0.2582     2582 文件
D:\$RECYCLE.BIN\S-1-5-21-2532754634-1420146695-701886390-500\$RTDVPWT\SogouWBInput\5.5.0.2582\AllSkin           文件
D:\$RECYCLE.BIN\S-1-5-21-2532754634-1420146695-701886390-500\$RTDVPWT\SogouWBInput\5.5.0.2582\Components        文件
D:\$RECYCLE.BIN\S-1-5-21-2532754634-1420146695-701886390-500\$RTDVPWT\SogouWBInput\5.5.0.2582\Components\HandInput            文件
D:\$RECYCLE.BIN\S-1-5-21-2532754634-1420146695-701886390-500\$RTDVPWT\SogouWBInput\5.5.0.2582\Components\MobileInput          文件
D:\$RECYCLE.BIN\S-1-5-21-2532754634-1420146695-701886390-500\$RTDVPWT\SogouWBInput\5.5.0.2582\Components\ScreenCapture        文件
D:\$RECYCLE.BIN\S-1-5-21-2532754634-1420146695-701886390-500\$RTDVPWT\SogouWBInput\5.5.0.2582\Components\VoiceInput           文件
D:\$RECYCLE.BIN\S-1-5-21-2532754634-1420146695-701886390-500\$RTDVPWT\SogouWBInput\5.5.0.2582\Components\VoiceInput\model     文件
D:\$RECYCLE.BIN\S-1-5-21-2532754634-1420146695-701886390-500\$RTDVPWT\SogouWBInput\5.5.0.2582\Data              文件
D:\$RECYCLE.BIN\S-1-5-21-2532754634-1420146695-701886390-500\$RTDVPWT\SogouWBInput\5.5.0.2582\FlashPreview      文件
D:\$RECYCLE.BIN\S-1-5-21-2532754634-1420146695-701886390-500\$RTDVPWT\SogouWBInput\5.5.0.2582\Plugins           文件
D:\$RECYCLE.BIN\S-1-5-21-2532754634-1420146695-701886390-500\$RTDVPWT\SogouWBInput\5.5.0.2582\Plugins64         文件
D:\$RECYCLE.BIN\S-1-5-21-2532754634-1420146695-701886390-500\$RTDVPWT\SogouWBInput\5.5.0.2582\RichInput         文件
D:\$RECYCLE.BIN\S-1-5-21-2532754634-1420146695-701886390-500\$RTDVPWT\SogouWBInput\5.5.0.2582\scd 文件
D:\$RECYCLE.BIN\S-1-5-21-2532754634-1420146695-701886390-500\$RTDVPWT\Tencent       文件
D:\$RECYCLE.BIN\S-1-5-21-2532754634-1420146695-701886390-500\$RTDVPWT\Tencent\QQ    文件
D:\$RECYCLE.BIN\S-1-5-21-2532754634-1420146695-701886390-500\$RTDVPWT\Tencent\QQ\AuI18N           文件
D:\$RECYCLE.BIN\S-1-5-21-2532754634-1420146695-701886390-500\$RTDVPWT\Tencent\QQ\AuI18N\2052      文件
D:\$RECYCLE.BIN\S-1-5-21-2532754634-1420146695-701886390-500\$RTDVPWT\Tencent\QQ\Bin              文件
D:\$RECYCLE.BIN\S-1-5-21-2532754634-1420146695-701886390-500\$RTDVPWT\Tencent\QQ\Bin\aidenoiser_res             文件
D:\$RECYCLE.BIN\S-1-5-21-2532754634-1420146695-701886390-500\$RTDVPWT\Tencent\QQ\Bin\LICENSE      文件
D:\$RECYCLE.BIN\S-1-5-21-2532754634-1420146695-701886390-500\$RTDVPWT\Tencent\QQ\Bin\locales      文件
D:\$RECYCLE.BIN\S-1-5-21-2532754634-1420146695-701886390-500\$RTDVPWT\Tencent\QQ\Bin\plugins      文件
D:\$RECYCLE.BIN\S-1-5-21-2532754634-1420146695-701886390-500\$RTDVPWT\Tencent\QQ\Bin\QQLiveMPlayer              文件
D:\$RECYCLE.BIN\S-1-5-21-2532754634-1420146695-701886390-500\$RTDVPWT\Tencent\QQ\Bin\QQLiveMPlayer\locales      文件
D:\$RECYCLE.BIN\S-1-5-21-2532754634-1420146695-701886390-500\$RTDVPWT\Tencent\QQ\Bin\SetupEx      文件
D:\$RECYCLE.BIN\S-1-5-21-2532754634-1420146695-701886390-500\$RTDVPWT\Tencent\QQ\Bin\TXSSO        文件
D:\$RECYCLE.BIN\S-1-5-21-2532754634-1420146695-701886390-500\$RTDVPWT\Tencent\QQ\Bin\TXSSO\bin    文件
D:\$RECYCLE.BIN\S-1-5-21-2532754634-1420146695-701886390-500\$RTDVPWT\Tencent\QQ\Bin\TXSSO\I18N   文件
D:\$RECYCLE.BIN\S-1-5-21-2532754634-1420146695-701886390-500\$RTDVPWT\Tencent\QQ\Bin\TXSSO\I18N\2052            文件
D:\$RECYCLE.BIN\S-1-5-21-2532754634-1420146695-701886390-500\$RTDVPWT\Tencent\QQ\Bin\xnn_res      文件
D:\$RECYCLE.BIN\S-1-5-21-2532754634-1420146695-701886390-500\$RTDVPWT\Tencent\QQ\I18N             文件
D:\$RECYCLE.BIN\S-1-5-21-2532754634-1420146695-701886390-500\$RTDVPWT\Tencent\QQ\I18N\2052        文件
D:\$RECYCLE.BIN\S-1-5-21-2532754634-1420146695-701886390-500\$RTDVPWT\Tencent\QQ\Misc             文件
D:\$RECYCLE.BIN\S-1-5-21-2532754634-1420146695-701886390-500\$RTDVPWT\Tencent\QQ\Misc\BrSelfExp   文件
D:\$RECYCLE.BIN\S-1-5-21-2532754634-1420146695-701886390-500\$RTDVPWT\Tencent\QQ\Misc\BrSelfExp\2052            文件
D:\$RECYCLE.BIN\S-1-5-21-2532754634-1420146695-701886390-500\$RTDVPWT\Tencent\QQ\Misc\CSC         文件
D:\$RECYCLE.BIN\S-1-5-21-2532754634-1420146695-701886390-500\$RTDVPWT\Tencent\QQ\Misc\CSC\2052    文件
D:\$RECYCLE.BIN\S-1-5-21-2532754634-1420146695-701886390-500\$RTDVPWT\Tencent\QQ\Misc\Editor      文件
D:\$RECYCLE.BIN\S-1-5-21-2532754634-1420146695-701886390-500\$RTDVPWT\Tencent\QQ\Misc\Editor\css  文件
D:\$RECYCLE.BIN\S-1-5-21-2532754634-1420146695-701886390-500\$RTDVPWT\Tencent\QQ\Misc\Editor\html 文件
D:\$RECYCLE.BIN\S-1-5-21-2532754634-1420146695-701886390-500\$RTDVPWT\Tencent\QQ\Misc\Editor\html\css           文件

D:\$RECYCLE.BIN\S-1-5-21-2532754634-1420146695-701886390-500\$RTDVPWT\Tencent\QQ\Plugin\Com.Tencent.Stock       STOCK 文件
D:\$RECYCLE.BIN\S-1-5-21-2532754634-1420146695-701886390-500\$RTDVPWT\Tencent\QQ\Plugin\Com.Tencent.Stock\Bin   文件
D:\$RECYCLE.BIN\S-1-5-21-2532754634-1420146695-701886390-500\$RTDVPWT\Tencent\QQ\Plugin\Com.Tencent.Today       TODAY 文件
D:\$RECYCLE.BIN\S-1-5-21-2532754634-1420146695-701886390-500\$RTDVPWT\Tencent\QQ\Plugin\Com.Tencent.Today\Bin   文件
D:\$RECYCLE.BIN\S-1-5-21-2532754634-1420146695-701886390-500\$RTDVPWT\Tencent\QQ\Plugin\Com.Tencent.Tribe       TRIBE 文件
D:\$RECYCLE.BIN\S-1-5-21-2532754634-1420146695-701886390-500\$RTDVPWT\Tencent\QQ\Plugin\Com.Tencent.Tribe\Bin   文件
D:\248be78d-c1b4-49ce-8076-48127da1153e   文件夹
D:\360Downloads             文件夹

ning84

拒绝的权限?????

1. Sub Test()
   
2.     TraverseSubFolder "D:"  ' & "Streetsnap"
   
3.    
   
4. End Sub
   
5. 
   
6. Sub TraverseSubFolder(FolderPath)
   
7.     Dim T: T = Time
   
8.     Dim Fso  As FileSystemObject
   
9.         Set Fso = New FileSystemObject
   
10.    
    
11.     Dim CurFolder As Folder
    
12.     Dim SubFolder As Folder
    
13.     Dim oFolder As Folder
    
14.    
    
15.    
    
16.     Set CurFolder = Fso.GetFolder(FolderPath)
    
17.    
    
18.     ' 遍历当前文件夹的子文件夹
    
19.     For Each SubFolder In CurFolder.SubFolders
    
20.         ' 处理子文件夹
    
21.         
    
22.         Debug.Print SubFolder.Path, SubFolder.Type
    
23.         If InStr(SubFolder.Path, "System Volume Information") = 0 And InStr(SubFolder.Path, "$RECYCLE") = 0 And InStr(SubFolder.Path, "-") = 0 Then
    
24.         'And InStr(SubFolder.Path, "360Downloads") = 0 _
    
25.         '     And InStr(SubFolder.Path, "360Re") = 0 And InStr(SubFolder.Path, "360安全浏览器下载") = 0 And InStr(SubFolder.Path, "360驱动大师目录") = 0 Then
    
26.             
    
27.              'Set oFolder = SubFolder
    
28.              If SubFolder.SubFolders.Count = 0 And SubFolder.Files.Count = 0 Then
    
29.                 Debug.Print SubFolder.Path, SubFolder.SubFolders.Count, SubFolder.Files.Count
    
30.                 Fso.DeleteFolder SubFolder
    
31.                 GoTo 100
    
32.              End If
    
33.         End If
    
34.         
    
35.         ' 递归调用，继续遍历子文件夹的子文件夹
    
36.         'If Fso.FolderExists(SubFolder.Path) = True Then
    
37.             TraverseSubFolder SubFolder.Path
    
38.         'End If
    
39. 100:
    
40.     Next SubFolder
    
41. End Sub
    
42. 
    

复制代码

ning84

1. Sub Test()
   
2.     TraverseSubFolder "D:\tmp"  ' & "Streetsnap"
   
3.    
   
4. End Sub
   
5. 
   
6. Sub TraverseSubFolder(FolderPath)
   
7.     Dim T: T = Time
   
8.     Dim Fso  As FileSystemObject
   
9.         Set Fso = New FileSystemObject
   
10.    
    
11.     Dim CurFolder As Folder
    
12.     Dim SubFolder As Folder
    
13.     Dim oFolder As Folder
    
14.    
    
15.    
    
16.     Set CurFolder = Fso.GetFolder(FolderPath)
    
17.    
    
18.     ' 遍历当前文件夹的子文件夹
    
19.     For Each SubFolder In CurFolder.SubFolders
    
20.         ' 处理子文件夹
    
21.         
    
22.         Debug.Print SubFolder.Path, SubFolder.Type
    
23.         If InStr(SubFolder.Path, "System Volume Information") = 0 And InStr(SubFolder.Path, "$RECYCLE") = 0 And InStr(SubFolder.Path, "-") = 0 Then
    
24.         'And InStr(SubFolder.Path, "360Downloads") = 0 _
    
25.         '     And InStr(SubFolder.Path, "360Re") = 0 And InStr(SubFolder.Path, "360安全浏览器下载") = 0 And InStr(SubFolder.Path, "360驱动大师目录") = 0 Then
    
26.             
    
27.              'Set oFolder = SubFolder
    
28.              If SubFolder.SubFolders.Count = 0 And SubFolder.Files.Count = 0 Then
    
29.                 Debug.Print SubFolder.Path, SubFolder.SubFolders.Count, SubFolder.Files.Count
    
30.                 Fso.DeleteFolder SubFolder
    
31.                 GoTo 100
    
32.              End If
    
33.         End If
    
34.         
    
35.         ' 递归调用，继续遍历子文件夹的子文件夹
    
36.         'If Fso.FolderExists(SubFolder.Path) = True Then
    
37.             TraverseSubFolder SubFolder.Path
    
38.         'End If
    
39. 100:
    
40.     Next SubFolder
    
41. End Sub
    

复制代码