I created the batch file below to search for and display a list of the tab
delimited files for the input provided. I have begun work on doing this in
vbscript but I am not a programmer. I would like to create an array using the
UNC names to the six PC's where the data is stored. Below the batch file is
what I have so for.
Suggestions, comments, or smart-ass remarks are welcome.
MY BATCH FILE:
@echo off
REM ***********************
REM * Locate engine test log files
REM * Must have Mapped Drives to Test Stands
REM * Must input a unit number at time batch file is run
REM ***********************
REM * Useful Info for the file search
REM ***********************
echo Mapped Drive Reference: >> %TEMP%\TestFiles.txt
echo. >> %TEMP%\TestFiles.txt
echo I: = 91, J: = 92, N: = 93, O: = 94, U: = 95 S4k, V: = 95 S2k, W: = 96
>> %TEMP%\TestFiles.txt
echo If a drive letter is missing, check the mapped drive >>
%TEMP%\TestFiles.txt
echo connections via Windows Explorer >> %TEMP%\TestFiles.txt
echo _________________________________________________________ >>
%TEMP%\TestFiles.txt
echo. >> %TEMP%\TestFiles.txt
REM ***********************
REM * Search the mapped official data directorys
REM ***********************
DIR /O-D I:\data\official\%1*.* >> %TEMP%\%1.txt
DIR /O-D J:\data\official\%1*.* >> %TEMP%\%1.txt
DIR /O-D N:\data\official\%1*.* >> %TEMP%\%1.txt
DIR /O-D O:\data\official\%1*.* >> %TEMP%\%1.txt
DIR /O-D U:\data\official\%1*.* >> %TEMP%\%1.txt
DIR /O-D V:\data\official\%1*.* >> %TEMP%\%1.txt
DIR /O-D W:\data\official\%1*.* >> %TEMP%\%1.txt
REM ***********************
REM * Get the important part of the search
REM ***********************
FINDSTR "Directory %1" %TEMP%\%1.txt >>%TEMP%\TestFiles.txt
REM ***********************
REM * Display the search results
REM ***********************
notepad %TEMP%\TestFiles.txt
REM notepad %TEMP%\%1.txt
REM ***********************
REM * Do the clean up
REM ***********************
DEL %TEMP%\%1.txt
DEL %TEMP%\TestFiles.txt
@echo on
MY SCRIPT:
'Find an Engines Raw Data Files
'© Hal Innes 19-Nov-2007
Option Explicit
Dim title, UnitNumber, ErrMsg
title = "Engine Data File Locator © Hal Innes"
GetInput()
Sub GetInput()
UnitNumber = InputBox(ErrMsg & "Enter an Engine Serial Number " & _
"to be searched for:", title)
If UnitNumber = "" Then
WScript.Quit
Else
If Len(UnitNumber) <> 10 _
Or Not IsNumeric(UnitNumber) Then
InputError()
End If
End If
Message()
End Sub
Sub Message()
MsgBox "The Engine Serial Number You Entered is " & UnitNumber, 48, title
End Sub
Sub InputError()
ErrMsg = "'" & UnitNumber & "'" & " is not a valid entry, try again!" &
vbcrlf & vbcrlf
GetInput()
End Sub