I have the following code:

Public Function FolderExists(folderspec)
Dim fso As Object
Dim blnFolderExist As Boolean

Set fso = CreateObject("VBA.FileSystemObject")

If fso.FolderExists(folderspec) Then
MsgBox "Folder Exists"
Else
MsgBox "Folder Does Not Exist"
End If


End Function

I am attempting to verify that a folder path exists that
a user inputs.

I get a Run-time error '429': ActiveX componetn can't
create object.

I checked my references and the VBA Library exists with
FileSystem. I tried only FileSystem, but got the same
error.

I need to be able to verify that a path a user enters in
a UserForm exists. Am I on the right track? What do I
need to do to get the above code to work? Any help would
be appreciated. Thanks.


Kirk

Kirk,

Change

Set fso = CreateObject("VBA.FileSystemObject")
to
Set fso = CreateObject("Scripting.FileSystemObject")



--
Cordially,
Chip Pearson
Microsoft MVP - Excel
www.cpearson.com


"Kirk" wrote in message
...
I have the following code:

Public Function FolderExists(folderspec)
Dim fso As Object
Dim blnFolderExist As Boolean

Set fso = CreateObject("VBA.FileSystemObject")

If fso.FolderExists(folderspec) Then
MsgBox "Folder Exists"
Else
MsgBox "Folder Does Not Exist"
End If


End Function

I am attempting to verify that a folder path exists that
a user inputs.

I get a Run-time error '429': ActiveX componetn can't
create object.

I checked my references and the VBA Library exists with
FileSystem. I tried only FileSystem, but got the same
error.

I need to be able to verify that a path a user enters in
a UserForm exists. Am I on the right track? What do I
need to do to get the above code to work? Any help would
be appreciated. Thanks.


Kirk

Kirk,

FileSystemObject is part of Scripting not VBA. So use

Set fso = CreateObject("Scripting.FileSystemObject")


--

HTH

Bob Phillips

"Kirk" wrote in message
...
I have the following code:

Public Function FolderExists(folderspec)
Dim fso As Object
Dim blnFolderExist As Boolean

Set fso = CreateObject("VBA.FileSystemObject")

If fso.FolderExists(folderspec) Then
MsgBox "Folder Exists"
Else
MsgBox "Folder Does Not Exist"
End If


End Function

I am attempting to verify that a folder path exists that
a user inputs.

I get a Run-time error '429': ActiveX componetn can't
create object.

I checked my references and the VBA Library exists with
FileSystem. I tried only FileSystem, but got the same
error.

I need to be able to verify that a path a user enters in
a UserForm exists. Am I on the right track? What do I
need to do to get the above code to work? Any help would
be appreciated. Thanks.


Kirk