How to use VBS to merge TXT in a folder

This article will explain in detail how to use VBS to merge TXT in a folder. The editor thinks it is very practical, so I share it with you as a reference. I hope you can get something after reading this article.

The code is as follows:

This sentence of Const ForReading = 1 'VBS cannot be missing.

Dim xint,xinlu,jiuw

Dim objfso,objoutputfile,f,fx

Dim objTextFile,strtext

Set objFSO = CreateObject ("Scripting.FileSystemObject") 'create FSO object

Jiuw = inputbox ("Please enter the path where the source folder is located (including folder name)", "Please enter the location of multiple TXT folders")

If objFSO.folderexists (jiuw) then

Set f = objFSO.getfolder (jiuw) 'file location path

Else

Msgbox "wrong path, please re-enter"

End if

Xinlu = inputbox ("Please enter the path where the new TXT is located (excluding the title of the book). If omitted, that is, if you directly do not enter the point to determine or cancel, the default is created in the same layer location of the source folder", "New TXT save location")

If objFSO.folderexists (xinlu) or len (xinlu) = 0 then

Xint = inputbox ("Please enter the name of the new book title", "new book title")

If len (xint) > 0 then

Xint = xinlu & xint

Set objOutputFile = objFSO.CreateTextFile (xint & ".txt") 'create a new TXT named output, which can be changed to the name you want. txt

Else

Msgbox "No input, please re-enter"

End if

Else

Msgbox "wrong path, please re-enter"

End if

For Each fx In f.Files' Loop to write text content

Set objTextFile = objFSO.OpenTextFile (fx, ForReading) 'find the file

StrText = objTextFile.ReadAll 'read all

ObjTextFile.Close 'close open files

ObjOutputFile.WriteLine strText 'writes text content in output.txt

Next

This is the end of this article on "how to use VBS to merge TXT in a folder". I hope the above content can be of some help to you, so that you can learn more knowledge. if you think the article is good, please share it for more people to see.