438 Object doesn't support ....

[Greyfleck]

    folder_path = "c:\program files\MWT\9f7bfg.txt"
[COLOR=red]    
    fs = CreateObject("Scripting.FileSystemObject")
[/color]    
    If Not fs.folderexists(folderpath) Then
        fs.createfolder folder_path
    End If

I am getting the 438 error on the createObject line
I am guessing that perhaps I have a reference library missing?
currently I have set


Visual Basic for Applications
Microsoft Access 12.0 Object Library
OLE Automation
Microsoft Office 12.0 Access database engine object library
Microsoft Activex data objects 2.5 library
Microsoft scripting runtime



However, I could also be wrong on all counts!

Can anyone help me resolve this please ...

 

[HarleyQuinn]

You should use:

Set fs = CreateObject("Scripting.FileSystemObject")

Hope this helps

HarleyQuinn
---------------------------------
The most overlooked advantage to owning a computer is that if they foul up there's no law against wacking them around a little. - Joe Martin

Get the most out of Tek-Tips, read FAQ222-2244 before posting.

 

[Greyfleck]

Sometimes I feel just a little stupid .....

Thanks HarleyQuinn

It works perfectly!

 

[HarleyQuinn]

Glad I could help

HarleyQuinn
---------------------------------
The most overlooked advantage to owning a computer is that if they foul up there's no law against wacking them around a little. - Joe Martin

Get the most out of Tek-Tips, read FAQ222-2244 before posting.