Dim text As String = "" Dim files() As String = IO.Directory.GetFiles(sfilename) For Each sFile As String In files If sFile.Contains(".txt") Then text &= IO.File.ReadAllText(sFile) & vbNewLine End If Next Dim objStreamWriter As StreamWriter Dim txtfilename As String txtfilename = sfilename & ".txt" objStreamWriter = New StreamWriter(txtfilename) objStreamWriter.WriteLine(text) objStreamWriter.Close()
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)