Code Error 800A004C – Path not found

Troubleshooting Code 800A004C – Path not found

For once error 800A004C is not the VBScript’s fault.  Check the name of the file and or folder referenced in the script.

Introduction to Error 800A004C

Error 800A004C occurs when you execute a VBScript.  My suggestion is that you are trying to read, or write, to a file reference that does not exist.  A wild guess, there is a typo in your Path statement.Code 800A004C Error - Path not found.   VBScript Microsoft

The Symptoms You Get 800A004C

When you get a WSH pop-up message box.  Put on your detective hat and pay close attention to the line number.  Error 800A004C is a runtime error, so the problem is likely to outside your script, there could be something the matter with a file location.

The Cause of Error 800A004C

In the example above, Line 12: is the source of the error.  Char 1: is not always very useful as the error could be anywhere on the line and char 1 will be blamed by WSH. (Windows Script Host)

The cause of error 800A004C is likely to be that the folder that you wish to create the file does not exist.  The VBScript is capable of creating the file, but there is no such directory.

The Solutions

Amend the script to reference a real folder.  Create a folder to match the path in your script.

Incidentally, Source: reports a runtime error not a compilation error, this means you are looking not for a pure syntax problem, but a fault logic error.  In the case of runtime errors, you can use this temporary work around.  Add this statement just before the line which errors: On Error Resume Next.


Example of Error 800A004C

In this example folder ezine39 does not exist.  (It should have been ezine35)

strPath = "E:\ezine\scripts\ezine39\ServicesManual.txt"


‘ ServicesManual.vbs – Writes services to a file.
‘ Author Guy Thomas
‘ Version 3.7 – June 27th 2010
‘ ————————————————————-‘
Option Explicit
Dim objfso, objWMIService, objItem, colItems
Dim strPath, strFile, strComputer

strPath = "E:\ezine\scripts\ezine39\ServicesManual.txt"
strComputer = "."
Set objfso = CreateObject("Scripting.FileSystemObject")
Set strFile = objfso.CreateTextFile(strPath, True)
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Service",,48)
For Each objItem in colItems

If objItem.StartMode = "Manual" Then

strFile.WriteLine("DisplayName: " & objItem.DisplayName)
strFile.WriteLine("Name: " & objItem.Name)
strFile.WriteLine("PathName: " & objItem.PathName)
strFile.WriteLine("ServiceType: " & objItem.ServiceType)
strFile.WriteLine("Started: " & objItem.Started)
strFile.WriteLine("StartMode: " & objItem.StartMode)
strFile.WriteLine("State: " & objItem.State)
strFile.WriteLine("Status: " & objItem.Status)

End if



‘ End of Script


See More Windows Update Error Codes 8004 Series

Error 800A101A8 Object Required   •Error 800A0046   •Error 800A10AD   •Error 800A000D

Error 80048820   •Error 800A0401   •Review of SolarWinds Permissions Monitor

Error 80040E14   • Error 800A03EA   • Error 800A0408   • Error 800A03EE

Solarwinds Free WMI MonitorGuy Recommends: WMI Monitor and It’s Free!

Windows Management Instrumentation (WMI) is one of the hidden treasures of Microsoft operating systems.  Fortunately, SolarWinds have created the WMI Monitor so that you can examine these gems of performance information for free.  Take the guess work out of which WMI counters to use for applications like Microsoft Active Directory, SQL or Exchange Server.

Download your free copy of WMI Monitor

Do you need additional help?

Give something back?

Would you like to help others?  If you have a good example of this error, then please email me, I will publish it with a credit to you:


If you like this page then please share it with your friends