>Ja.. FSO zum Verzeichnis-Schn�ffeln und dann XMLDoc um das XML zu
>laden...
�hh... das mache ich doch?
hier mal ein kurzer Ausschnitt...
Function getXMLfiles_name(sDirectory)
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FolderExists(sDirectory) then
Set folder = fso.GetFolder(sDirectory & "\")
Set files = folder.Files
iCounter = 0
For Each file in Files
sXMLLocation = sDirectory & "\" & file.Name
sXMLTarget = sDirectory & "\import\" & file.Name
call importXML(sXMLLocation)
If sNotExist THEN
fso.MoveFile sXMLLocation,sXMLTarget
ElseIf not sNotExist then
fso.DeleteFile sXMLLocation
End If
Next
Set files = folder.Files
Set file = Nothing
End If
Set fso = Nothing
End Function
Function importXML(sXMLLocation)
Set XMLDoc = CreateObject("Msxml.DOMDocument")
XMLDoc.async = False
sNotExist = null
bSuccess = XMLDoc.load(sXMLLocation)
If bSuccess THEN
Set myNodeID = XMLDoc.getElementsByTagName("id")
For i = 0 To myNodeID.length - 1
myID = myNodeID.item(i).text
Next
Set myNodeHead = XMLDoc.getElementsByTagName("headline")
For i = 0 To myNodeHead.length - 1
myHead = myNodeHead.item(i).text
Next
.... und so weiter...
ist es das, was Du meinst?
Jutta
_______________________________________________
Database.asp mailing list
[EMAIL PROTECTED]
http://www.glengamoi.com/mailman/listinfo/database.asp
