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