File Find using VBscripting

[Janey66]

I'm looking for a quick way to find a file on a drive and have it spit out the directory of where the file is located. Any way I can do that?

 

[stevio]

Try this

dim filesys, folder, File
File = "c:\whatever.txt"
Set filesys = CreateObject("Scripting.FileSystemObject")
If filesys.FileExists (File) Then
folder = filesys.GetParentFolderName(File)
Wscript.Echo (folder)
Else
    Wscript.Echo "File does not exist"
End If

 

[dm4ever]

If you have excel you can use it's file search ability. Otherwise you can use the FileSystemObject to go through folders and files looking for your file. You could also use WMI and the CIM_DataFile class to search for your file (the more specific the better you'll be using this method).

dm4ever
--------------------------------------------------------------------------------
My approach to things: K.I.S.S - Keep It Simple Stupid

 

[barny2006]

dm4,
does this search the entire drive c:? and all folders in it?

 

[dm4ever]

Which method are you referring to? You can get any of the three methods I mentioned to look in any folder and subfolders. The example stevio posted can be modified to go through the various folders and subfolders looking for your file if you don't know the exact path.

dm4ever
--------------------------------------------------------------------------------
My approach to things: K.I.S.S - Keep It Simple Stupid

 

[Janey66]

thanks guys