VB.Net实现文件合并的实例

发布时间：2020-12-16 23:27:09 所属栏目：大数据来源：网络整理

导读：VB.NET实现文件合并的实例 Code: Private Sub MergeFiles( ByVal inputDir As String , ByVal inputMask As String , ByVal outputPath As String ) 'storefilesindatatablewiththeircreatedtimestosortbylater Dim files As New DataTable files.Columns.Ad

VB.NET实现文件合并的实例

Code:

PrivateSubMergeFiles(ByValinputDirAsString,ByValinputMaskAsString,ByValoutputPathAsString)
'storefilesindatatablewiththeircreatedtimestosortbylater
DimfilesAsNewDataTable
files.Columns.Add("filepath",GetType(String))
files.Columns.Add("creationtime",GetType(Date))
'findpartialfiles
ForEachfAsStringInIO.Directory.GetFiles(inputDir,inputMask)
files.Rows.Add(NewObject(){f,IO.File.GetCreationTime(f)})
Next
'makesureoutputfiledoesnotexistbeforewriting
IfIO.File.Exists(outputPath)Then
IO.File.Delete(outputPath)
EndIf
'loopthroughfileinorder,andappendcontentstooutputfile
ForEachdrAsDataRowInfiles.Select("","creationtime")
DimcontentsAsString=My.Computer.FileSystem.ReadAllText(CStr(dr("filepath")))
My.Computer.FileSystem.WriteAllText(outputPath,contents,True)
Next
EndSub

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!