I have the following vbscript that works if I place the script inside the directory folder of text files and run it from there. It merges all text files into one text file.

Set fso = CreateObject("Scripting.FileSystemObject"
set mainfolder=fso.GetFolder("."
Set filecollection = mainfolder.Files


Set objfileOut=fso.OpenTextFile ("merged.txt",2,true)
init=false


For Each fileList In filecollection
  If fso.GetExtensionName(fileList.Path)="txt" Then
    Set objfileRead=fileList.OpenAsTextStream(1)
    objfileOut.Write  VBCRLF & "<file>" & VBCRLF
    objfileOut.Write  "<filename>" & fileList.name & "</filename>" & VBCRLF
    objfileOut.Write  VBCRLF & "<article>" & VBCRLF
    objfileOut.Write objfileRead.ReadAll
    objfileOut.Write  VBCRLF & "</article>" & VBCRLF
    objfileOut.Write  VBCRLF & "</file>" & VBCRLF
    objfileRead.Close
  End If
Next

I am trying to make a windows form in vb

.net

  to do the same thing. I am using FolderBrowserDialog to get the directory folder. I can't get the vbscript converted correctly. Any help would be appreciated.

Thanks,
Tom

Update.

Between my son, who knows vb

.net

  100 times better than me, and Google, I got the code rewrote and it works.

Tom

Right on... and what a cool and humorous place to resource.

Please invite your son to join us here ...

/p

Shawn is more into game

programming

 .

Tom