1. '指定文件目錄復制工具(可用戶基于svn版本管理的項目做增量發布用途使用)   
2. '作者:許果   
3. '日期:2010-11-26   
4. Sub copyfiles()   
5. On Error GoTo errorflag   
6. '指定目標文件的行號   
7. Dim i As Integer   
8. '指定目標文件的目錄的長度變量   
9. Dim j As Integer   
10. '目錄名稱數組，生成目標文件的過程目錄名字列表   
11. Dim directoryNameArray() As String   
12. '指定的目標文件部分文件路徑名稱   
13. Dim relativeFilePath As String   
14. '臨時目錄名稱   
15. Dim tempDirectoryName As String   
16. For i = 0 To Cells(3, 2) - 1   
17.     tempDirectoryName = ""   
18.     '獲得指定的目標文件的路徑名稱   
19.     relativeFilePath = Cells(4 + i, 2)   
20.     If relativeFilePath = "" Then   
21.         Exit For   
22.     End If   
23.     relativeFilePath = Replace(relativeFilePath, "/", "/")   
24.     directoryNameArray = Split(relativeFilePath, "/")   
25.     '如果拷貝的目標文件件路徑的目錄不存在，就依次建立相應的目錄文件   
26.     For j = 0 To UBound(directoryNameArray) - 1   
27.         tempDirectoryName = tempDirectoryName & "/" & directoryNameArray(j)   
28.         If Dir(Cells(2, 2) & tempDirectoryName, vbDirectory) = "" Then   
29.            MkDir Cells(2, 2) & tempDirectoryName   
30.         End If   
31.     Next j   
32.        
33.     '設置需要復制的源文件路徑和目標路徑   
34.     Dim destinationFileFullPath As String   
35.     Dim sourceFileFullPath As String   
36.     sourceFileFullPath = Cells(1, 2) & tempDirectoryName & "/" & directoryNameArray(j)   
37.     destinationFileFullPath = Cells(2, 2) & tempDirectoryName & "/" & directoryNameArray(j)   
38.    
39.     '復制文件   
40.     FileCopy sourceFileFullPath, destinationFileFullPath   
41. Next i   
42. MsgBox "指定的文件目錄已復制完畢"   
43. GoTo finished   
44. Exit Sub   
45. errorflag:   
46. MsgBox sourceFileFullPath & (i + 4)   
47. finished:   
48. End Sub