目录直接copy到U盘,5.91G约18分钟，高手用什么方法提高效率。

ning84

Copy 130G文件要数十小时。

用VBA遍历copy目录文件，一个一个copy,测试能否快点。

ning84

采用VBA测试一下，时间11:07:21

请问，各位高手，COPY上百G的大文件copy到U盘，采用什么方法？？

1. 
   
2. Public T
   
3. 
   
4. Sub Test()
   
5. 
   
6.     Dim Fso As FileSystemObject
   
7.         Set Fso = New FileSystemObject
   
8.     Dim oFolder As Folder, oFile As File
   
9.    
   
10.     Set oFolder = Fso.GetFolder("E:")
    
11.     TraverseSubFolders Fso, oFolder
    
12. End Sub
    
13. 
    
14. Sub TraverseSubFolders(Fso As FileSystemObject, oFolder As Folder)
    
15.    
    
16.     Dim SubFolder As Folder
    
17.    
    
18.     For Each SubFolder In oFolder.SubFolders
    
19.         Debug.Print SubFolder.Path
    
20.         TraverseFolderFile Fso, SubFolder
    
21.         TraverseSubFolders Fso, SubFolder
    
22.         
    
23.     Next SubFolder
    
24. End Sub
    
25. 
    
26. Function TraverseFolderFile(Fso As FileSystemObject, oFolder As Folder)
    
27.    
    
28.    Dim oFile As File
    
29.      For Each oFile In oFolder.Files
    
30.          Debug.Print , oFile.Path
    
31.          Fso.CopyFile oFile, "C:\aa"
    
32.      Next oFile
    
33.      Debug.Print Format(Time - T, "h:mm:ss")
    
34. End Function
    

复制代码

x-xx-xx

固态      

limonet

是1.1的U盘吗？

perfect131

代码做不了这个 你要买U盘3.0 或 3以上

ning84

超级慢

1. Sub ll()
   
2.    T = Time
   
3.    Dim Fso As FileSystemObject
   
4.        Set Fso = New FileSystemObject
   
5.    Dim oFolder As Folder
   
6.        Set oFolder = Fso.GetFolder(ThisWorkbook.Path)
   
7.        CreateFolder Fso, oFolder, "D:"
   
8.        Debug.Print oFolder.Name, oFolder.Files.Count; Format(Time - T, "h:mm:ss")
   
9. End Sub
   
10. 
    
11. Function CreateFolder(Fso As FileSystemObject, oFolder As Folder, RootPath As String)
    
12.    Dim SubFolder As Folder, tFolder As Folder
    
13.    Dim oPath As String
    
14.    
    
15.       For Each SubFolder In oFolder.SubFolders
    
16.             
    
17.             oPath = Replace(SubFolder.Path, ThisWorkbook.Path, RootPath)
    
18.             'Debug.Print oPath, SubFolder.Path, ThisWorkbook.Path
    
19.             If Fso.FolderExists(oPath) = False Then
    
20.                   Fso.CreateFolder oPath
    
21.                   With SubFolder
    
22.                        Debug.Print .Name, .Files.Count, .Files.Count, Format(Time - T, "h:mm:ss")
    
23.                   End With
    
24.             End If
    
25.             ''
    
26.             If Fso.FolderExists(oPath) Then
    
27.                   'Set tFolder = Fso.GetFolder(oPath)
    
28.                   With SubFolder
    
29.                        'Debug.Print .Name, .Files.Count, .Files.Count, Format(Time - T, "h:mm:ss")
    
30.                        CopyFileToFolder Fso, SubFolder, RootPath
    
31.                   End With
    
32.             End If
    
33.             
    
34.             
    
35.             CreateFolder Fso, SubFolder, RootPath
    
36.       Next SubFolder
    
37. End Function
    
38. 
    
39. 
    
40. Function CopyFileTFolder(Fso As FileSystemObject, oFolder As Folder, RootPath As String)
    
41.      Dim oFile As File, oPath As String
    
42.         For Each oFile In oFolder.Files
    
43.              oPath = Replace(oFile.Path, ThisWorkbook.Path, Path)
    
44.              Debug.Print oFile.Path, oPath
    
45.              If Fso.FileExists(oPath) = False Then
    
46.                  Fso.CopyFile oFile, oPath
    
47.              End If
    
48.         Next oFile
    
49.         With oFolder
    
50.             Debug.Print .Name, .Files.Count, .Files.Count, Format(Time - T, "h:mm:ss")
    
51.         End With
    
52. End Function
    

复制代码