CreateObject("Scripting.FileSystemObject")

[Baracudo]

This is a part of one public function made with Access 2003

Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("dosdb.xml", True)

a.WriteLine ([Forms]![Tabelle1].[FirstLine])
a.WriteLine ("<!-- Version=03.00.00 -->")
a.WriteLine ("<!-- * -->")

With Access 2007 could not be used.

Somebody knows why?

Thanks.

 

[Alex Dybenko]

So what happens in Access 2007, what error?
BTW, you have also use native VBA statement Print # to do the same
see online help

--
Best regards,
___________
Alex Dybenko (MVP)
http://accessblog.net
http://www.PointLtd.com

 

[Tom van Stiphout]

On Tue, 22 Apr 2008 02:56:01 -0700, Baracudo

Did you mean to write:
Set a = fs.CreateTextFile("d:\Posdb.xml", True)

As Alex said, fso is overkill for this task. Not that it shouldn't
work...

-Tom.