Need example of how to loop thru dir while importing XML docs 1

[steve728]

Can someone please refer me to an example that shows me how to loop through a directory containing several .xml files.
I need to import each xml file into a MS Access 2003 table and then delete each one when done with it.

Thanks in advance,

Steve728

 

[Remou]

You can use the FileSystemObject object or Dir.

ThePath="C:\Docs\"
TheFile=Dir(ThePath & "*.xml")

Do While TheFile<>""
'Import etc

'Delete
Kill ThePath & TheFile

'Next file
TheFile=Dir
Loop

FileSystemObject is an easier search term, so I will leave that to you.

 

[steve728]

Hi Remou

I immediately gave you a star because of your quick reply! Can you please now give me an example of how I can import the XML file into an existing table in my database using VBA? I can't find my code that I used a couple of years ago. I'm sure there are smarter ways of doing it now.

Steve

 

[Remou]

Here is a link:

http://support.microsoft.com/kb/q285329/