VB.Net實現檔案合并的執行個體

 

VB.NET實現檔案合并的執行個體
 

Code:

1. Private Sub MergeFiles(ByVal inputDir As String, ByVal inputMask As String, ByVal outputPath As String)   
2.   
3.     
4.     'store files in datatable with their created times to sort by later   
5.   
6.     Dim files As New DataTable   
7.   
8.     files.Columns.Add("filepath", GetType(String))   
9.   
10.     files.Columns.Add("creationtime", GetType(Date))   
11.   
12.     'find partial files   
13.   
14.     For Each f As String In IO.Directory.GetFiles(inputDir, inputMask)   
15.   
16.         files.Rows.Add(New Object() {f, IO.File.GetCreationTime(f)})   
17.   
18.     Next  
19.   
20.   
21.   
22.     'make sure output file does not exist before writing   
23.   
24.     If IO.File.Exists(outputPath) Then  
25.   
26.         IO.File.Delete(outputPath)   
27.   
28.     End If  
29.   
30.     
31.   
32.     'loop through file in order, and append contents to output file   
33.   
34.     For Each dr As DataRow In files.Select("", "creationtime")   
35.   
36.         Dim contents As String = My.Computer.FileSystem.ReadAllText(CStr(dr("filepath")))   
37.   
38.         My.Computer.FileSystem.WriteAllText(outputPath, contents, True)   
39.   
40.     Next  
41.   
42.     
43.   
44. End Sub