Object 91 error in a code to find a file.

[ljbaum]

Greetings,
I am relatively new to vba and am looking for a way to search through a network and find a single file. I believe I have found it, however, I am unable to make the code run because I continually get the Object 91 error.

In the picture you can see the code that I am trying to get to work. It uses the Microsoft scripting run time reference.

The object is clearly defined as

Dim oStartFolder as Scripting folder
and the string to the folder I want to start as is likewise clearly defined. So, I am not sure what I am missing.

Any help would be greatly appreciated.

Thanks



Sub FindFile()
Dim oFolderStart As String
Dim fso As Scripting.FileSystemObject
Dim fil As Scripting.File
Dim oStartFolder As Scripting.Folder
Dim newfolderpath As String
Dim subfol As Scripting.Folder

oFolderStart = "T:\02 ESTIMATING & SALES\03 JOBS IN PROCESS"
newfolderpath = "T:\TempDesignWorksheet"
Set oStartFolder = fso.GetFolder(oFolderStart)

For Each fil In oStartFolder.Files

If Left(fso.GetFileName(fil.Path), 5) = "18000" And Left(fso.GetExtensionName(fil.Path), 2) = "xl" Then

fil.Copy newfolderpath & "\" & fil.Name

End If

Next fil

'For Each subfol In oStartFolder.SubFolders
'FindFile (subfol.Path)
'Next subfol
End Sub

[kalbasiatka]

Maybe so, but I haven't checked

Please Login or Register  to view this content.

[Kenneth Hobson]

Welcome to the forum!

Please use code tags and paste code between. Insert the tags by typing or clicking the # icon in the reply toolbar.

You forgot to set the fso object.

Please Login or Register  to view this content.

[ljbaum]

Kenneth,
You are correct Thanks for that!

I then ran the code again with the three lines at the bottom not messaged out. Got this code

Compile error: Wrong number of arguments or invalid property assignments.

Any thoughts on that?

[Kenneth Hobson]

You passed a value to the routine where it has none. Try adding an input parameter as a string and pass the first start folder in a Main() sub that calls it initially. Obviously, you would remove the string setup for the first folder's string. If still confused, I can show you how.

[ljbaum]

Something like this? I have this, however, it does not seem to pick up the input box. Any Ideas?

Please Login or Register  to view this content.

ok, figured out the input box issue. Moved the input box before the FindFile in the code. Works great!

Thanks for your Help!