Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Error 429 VBA.Interaccion.Createobject("Scripting.FileSystem Object
When I execute a Macro in Excel using this code:
Function FindTheFolder(ByVal way As String, _ ByVal folderName As String) As Boolean Dim theObject As Object Set theObject = VBA.Interaction.CreateObject("Scripting.FileSystem Object") FindTheFolder= objeto.FolderExists(direccion & "\" & nombreFolder) End Function and when it's running by this function, it sends me an error 429 but every references are ok. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Error 429 VBA.Interaccion.Createobject("Scripting.FileSystem Object
Firstly, your code makes no sense.
"theObject" or "objeto" What are "direccion" & "nombreFolder" ? And you do not use the function's parameters. Apart from that, scripting may be disabled by you sys admin. For a simple task like this, use VBA's built in functions; GetAttr or possible Dir(). NickHK "cajinamaster" wrote in message ... When I execute a Macro in Excel using this code: Function FindTheFolder(ByVal way As String, _ ByVal folderName As String) As Boolean Dim theObject As Object Set theObject = VBA.Interaction.CreateObject("Scripting.FileSystem Object") FindTheFolder= objeto.FolderExists(direccion & "\" & nombreFolder) End Function and when it's running by this function, it sends me an error 429 but every references are ok. |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Error 429 VBA.Interaccion.Createobject("Scripting.FileSystem Ob
Well the real version of it is this:
Function EncuentraCarpeta(ByVal direccion As String, _ ByVal nombreFolder As String) As Boolean Dim objeto As Object Set objeto = CreateObject("Scripting.FileSystemObject") EncuentraCarpeta = objeto.FolderExists(direccion & "\" & nombreFolder) End Function I forgot to translate the other words but this is the original code. The problem is that everything was running perfectly but in some computers gives me that error message 429 and in somo other computers, it dosen't. And the worse thing is, all references aren't missing. Then, Why is it happening? I can't understand why...! "NickHK" wrote: Firstly, your code makes no sense. "theObject" or "objeto" What are "direccion" & "nombreFolder" ? And you do not use the function's parameters. Apart from that, scripting may be disabled by you sys admin. For a simple task like this, use VBA's built in functions; GetAttr or possible Dir(). NickHK "cajinamaster" wrote in message ... When I execute a Macro in Excel using this code: Function FindTheFolder(ByVal way As String, _ ByVal folderName As String) As Boolean Dim theObject As Object Set theObject = VBA.Interaction.CreateObject("Scripting.FileSystem Object") FindTheFolder= objeto.FolderExists(direccion & "\" & nombreFolder) End Function and when it's running by this function, it sends me an error 429 but every references are ok. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How can I get the author of a file using CreateObject("Scripting.FileSystemObject")? | Excel Programming | |||
Set OutApp = CreateObject("Outlook.Application") - Runtime error 429 | Excel Programming | |||
Scripting.FileSystemObject | Excel Discussion (Misc queries) | |||
Scripting.FileSystemObject LAN | Excel Programming | |||
Scripting.FileSystemObject Networking | Excel Programming |