Application.FileSearch runtime error '455' in Excel 2007

Posted on 2008-06-17
Last Modified: 2011-10-19
I have seen some of the other solution here on EE but I don't how to implement them to fit my situation. Here is my code that attempts to look for a file within a specified folder based on county, year, and status. If not found, a message box pops saying "File not found.  Not Created Yet".

I just need to know how to re-arrange the variables I have already set to work with the workaround method for Excel 2007. This file was initially created in Excel 2003.
Sub CheckTargetFile()

   Targetfile1 = "SR_" & cnty & ".txt"

   Dirname1 = "H:\srprod\Data Requests\" & typestudy & "Files\" & year



   'To make sure that file exists

   With Application.FileSearch


        .LookIn = Dirname1

        .Filename = Targetfile1

        If .Execute() = 0 Then

            MsgBox "File not found.  Not Created Yet", vbOKOnly


            Call Import

        End If

    End With

Open in new window

Question by:angelmtaylor
  • 2
  • 2
LVL 19

Expert Comment

ID: 21813164
Where do you define what typestudy and year contain? They both look like variables, but I don't see where you have values being passed into them.

Dawn Crosier-Bleuel
Word MVP

Author Comment

ID: 21813221
I have attached the code and form that sends the variable values.
Sub Button10_Click()

   If Range("P1").Value = 1 Then

     year = "2000"

   ElseIf Range("P1").Value = 2 Then

     year = "2001"

   ElseIf Range("P1").Value = 3 Then

     year = "2002"

   ElseIf Range("P1").Value = 4 Then

     year = "2003"

   ElseIf Range("P1").Value = 5 Then

     year = "2004"

   ElseIf Range("P1").Value = 6 Then

     year = "2005"

   ElseIf Range("P1").Value = 7 Then

     year = "2006"

   ElseIf Range("P1").Value = 8 Then

     year = "2007"

   End If

   If Range("r1").Value < 10 Then

      cnty = "00" & CStr(Range("r1").Value)

   ElseIf Range("r1").Value < 100 Then

      cnty = "0" & CStr(Range("r1").Value)


      cnty = CStr(Range("r1").Value)

   End If


   If Range("T1").Value = 1 Then

     typestudy = "Prelm"

   ElseIf Range("T1").Value = 2 Then

     typestudy = "Study"

   End If


   Call CheckTargetFile

End Sub

Open in new window

LVL 92

Accepted Solution

Patrick Matthews earned 500 total points
ID: 21813904
Hello angelmtaylor,

FileSearch was dropped from Office 2007.  Instead, try:

If Dir(Dirname1 & "\" & Targetfile1) <> "" Then
    'code for file exists
   'does not exist
End If



Author Closing Comment

ID: 31468148
Thank you so much!! It was plug and go with your solution. I don't know why I didn't think if it. You truly are an EXPERT!!  Thanks for your help!!
LVL 92

Expert Comment

by:Patrick Matthews
ID: 21814784

You are most welcome :)



Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Recently Microsoft released a brand new function called CONCAT. It's supposed to replace its predecessor CONCATENATE. But how does it work? And what's new? In this article, we take a closer look at all of this - we even included an exercise file for…
This article descibes how to create a connection between Excel and SAP and how to move data from Excel to SAP or the other way around.
This Micro Tutorial will demonstrate in Google Sheets how to use the HYPERLINK function to create live links inside your spreadsheet.
Polish reports in Access so they look terrific. Take yourself to another level. Equations, Back Color, Alternate Back Color. Write easy VBA Code. Tighten space to use less pages. Launch report from a menu, considering criteria only when it is filled…

914 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

17 Experts available now in Live!

Get 1:1 Help Now