Dim objFSO As Scripting.FileSystemObject,objFile as Scripting.TextStream
Set objFSO=New Scripting.FileSystemObject
Set objFile=objFSO.OpenTextFile("C:\source.txt")
Do While Not objFile.AtEndOfStream
    strTemp=objFile.ReadLine
    MsgBox strTemp & vbCrLf & objFile.Line
Loop
objFile.Close
Set objFile=Nothing
Set objFSO=Nothing

Option Explicit
Dim objFSO,blnExitFunc,strTemp

Function SearchFile(strFileName,strSearchFolder)
	Dim objSearchFolder,objFile,objFolder
	Set objSearchFolder=objFSO.GetFolder(strSearchFolder)
	For Each objFile In objSearchFolder.Files
		If StrComp(objFile.Name,strFileName)= 0  Then
			SearchFile=objFile.Path
			blnExitFunc=True
			Exit Function
		End If
	Next
	For Each objFolder In objSearchFolder.SubFolders
		strTemp=SearchFile(strFileName,objFolder.Path)
		If blnExitFunc Then
			SearchFile=strTemp
			Exit Function
		End If
	Next
	Set objSearchFolder=Nothing
End Function

Set objFSO=CreateObject("Scripting.FileSystemObject")
blnExitFunc=False : strTemp=""
WScript.Echo Now
WScript.Echo SearchFile("sub_sectors.aml","C:\Documents and Settings")
WScript.Echo Now
Set objFSO=Nothing