This is Bug in .bat file?

I wonder, gh0std0g74, if you have tested your (as posted) vbs solution?

for the record...

Code: [Select]

Set objFS=CreateObject("Scripting.FileSystemObject")
strFolder = "c:\test"
Set objFolder = objFS.GetFolder(strFolder)
Go (objFolder)
Sub Go(objDIR)
  If objDIR <> "\System Volume Information" Then
    For Each eFolder in objDIR.SubFolders
      Go eFolder
    Next   
  End If
For Each strFile In objDIR.Files
name =strFile.Name
If objFS.GetExtensionName(strFile) = "txt" Then
Set objFile = objFS.OpenTextFile(name)
Do Until objFile.AtEndOfStream
strLine = objFile.ReadLine
WScript.Echo Mid(strLine,1,30)
Loop
    Set objFile = Nothing         
End If
Next
End Sub

Cscript is invoked ***once*** for each line of each text file.

yes...that's my point.. thanks for clarifying my bad english. If each text file has 3000 lines and there are 10 such files for example,  then cscript is invoked 3000*10 times.... am i correct to say that?

I wonder, gh0std0g74, if you have tested your vbs solution?

and i wonder why you think i didn't

Code: [Select]

C:\test>more test.vbs
Set objFS=CreateObject("Scripting.FileSystemObject")
strFolder = "c:\test"
Set objFolder = objFS.GetFolder(strFolder)
Go (objFolder)
Sub Go(objDIR)
  If objDIR <> "\System Volume Information" Then
    For Each eFolder in objDIR.SubFolders
        Go eFolder
    Next
  End If
        For Each strFile In objDIR.Files
                name =strFile.Name
                If objFS.GetExtensionName(strFile) = "txt" Then
                        Set objFile = objFS.OpenTextFile(name)
                        Do Until objFile.AtEndOfStream
                                strLine = objFile.ReadLine
                                WScript.Echo Mid(strLine,1,10)
                        Loop
                    Set objFile = Nothing
                End If
        Next
End Sub
C:\test>more file.txt
file.txt line one
file.txt line two

C:\test>more file1.txt
file1.txt line one
file1.txt line two

C:\test>more file2.txt
file2.txt line one
file2.txt line two

C:\test>cscript /nologo test.vbs
file.txt l
file.txt l
file1.txt
file1.txt
file2.txt
file2.txt

so what's your nitpick all about?

and i wonder why you think i didn't

My mistake; I assumed that since you hard coded the folder name, I could run it from anywhere, but in fact it only works when run from inside the folder.

Set objFS=CreateObject("Scripting.FileSystemObject")
strFolder = "c:\test"
Set objFolder = objFS.GetFolder(strFolder)
Go (objFolder)
Sub Go(objDIR)
  If objDIR <> "\System Volume Information" Then
    For Each eFolder in objDIR.SubFolders
        Go eFolder
    Next
  End If
        For Each strFile In objDIR.Files
                name =strFile.Name
                If objFS.GetExtensionName(strFile) = "txt" Then
                        Set objFile = objFS.OpenTextFile(name)
                        Do Until objFile.AtEndOfStream
                                strLine = objFile.ReadLine
                                WScript.Echo Mid(strLine,1,10)
                        Loop
                    Set objFile = Nothing
                End If
        Next
End Sub

How i can save all line to one file? 

How i can save all line to one file? 

Code: [Select]

cscript //nologo scriptname.vbs > file.txt

Sorry,
 I want say, how i can create output when run this code:

Set objFS=CreateObject("Scripting.FileSystemObject")
strFolder = "c:\test"
Set objFolder = objFS.GetFolder(strFolder)
Go (objFolder)
Sub Go(objDIR)
  If objDIR <> "\System Volume Information" Then
    For Each eFolder in objDIR.SubFolders
        Go eFolder
    Next
  End If
        For Each strFile In objDIR.Files
                name =strFile.Name
                If objFS.GetExtensionName(strFile) = "txt" Then
                        Set objFile = objFS.OpenTextFile(name)
                        Do Until objFile.AtEndOfStream
                                strLine = objFile.ReadLine
                                WScript.Echo Mid(strLine,1,10)
                        Loop
                    Set objFile = Nothing
                End If
        Next
End Sub

I don't know vbs >_<

1. Save the script with a .vbs extension
2. Run it as I showed you.

I have save all your code in file vbs and run it. Program run and print each line on each window and don't create output file.

Set objFS=CreateObject("Scripting.FileSystemObject")
strFolder = "G:\AH\aa"
Set objFolder = objFS.GetFolder(strFolder)
Go (objFolder)
Sub Go(objDIR)
  If objDIR <> "\System Volume Information" Then
    For Each eFolder in objDIR.SubFolders
        Go eFolder
    Next
  End If
        For Each strFile In objDIR.Files
                name =strFile.Name
                If objFS.GetExtensionName(strFile) = "txt" Then
                        Set objFile = objFS.OpenTextFile(name)
                        Do Until objFile.AtEndOfStream
                                strLine = objFile.ReadLine
                                WScript.Echo Mid(strLine,1,10)
                        Loop
                    Set objFile = Nothing
                End If
        Next
End Sub

"G:\AH\aa" it my path and folder "aa" have many file txt.

 My "Scripting Host" error?

see post #20 again !!!!

Thanks your help.
 I need use

cscript //nologo scriptname.vbs > file.txt

before run your vbs

 I have output file, but I don't want it

print each line on each window

cscript //nologo scriptname.vbs > file.txt

Don't type "scriptname.vbs", type the actual name that you saved the script as. After it has finished, load file.txt into an editor such as Notepad so you can see it.

"scriptname.vbs"

I know it is name my script, "WScript.Echo" will print all line when I run script. One window "Window Script host" will open with each line, I need choose "enter" per each (I can't do it with 3000+ line). I want stop it when i have output File

use cscript.exe not wscript.exe to interpret the file.

use cscript.exe not wscript.exe to interpret the file.

its so bizarre. i remember i did use cscript.exe, not wscript.exe.