VBS script to open any file in a folder.

[xcaliber13]

I need a little help with this vbs script. The script works great but I want to be able to open any file that is in the folder without having to give the exact name of the file.

Here is the script:

Const ForReading = 1
Const ForWriting = 2


Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\temp\test.txt", ForReading)

strText = objFil.ReadAll
objFile.Close
strNewText = Replace(strText, "CH00", "")


Set objFil = objFSO.OpenTextFile("C:\temp\test.txt", ForWriting)
objFile.WriteLine strNewText
objFile.Close

I cannot figure out how to get this script to open any (*.txt) file in the C:\temp folder
Any help would be Great

 

[guitarzan]

Something like this:

Set objFolder = objFSO.GetFolder("C:\temp")
For Each objFile in objFolder.Files
   If LCase(Right(objFile.Path, 4)) = ".txt" Then
      'do something
   End If
Next

 

[xcaliber13]

guitarzan,
Thank you for the quick reply. But I am not understanding how:

Set objFolder = objFSO.GetFolder("C:\temp")
For Each objFile in objFolder.Files
If LCase(Right(objFile.Path, 4)) = ".txt" Then
'do something
End If
Next

Replaces:

Set objFile = objFSO.OpenTextFile("C:\temp\test.txt", ForReading)

and

Set objFil = objFSO.OpenTextFile("C:\temp\test.txt", ForWriting)

 

[guitarzan]

Its a loop. Each pass through the loop, objFile.Path will be the full path to the next text file. So

[pre]Set objFile = objFSO.OpenTextFile("C:\temp\test.txt", ForReading)[/pre]

Becomes

[pre]Set objFile = objFSO.OpenTextFile(objFile.Path, ForReading)[/pre]

etc

the line "do something" was meant to indicate where you would put your code, whatever it is you want to do