oops, zu fr�h weggeschickt, sorry ;-)
nochmal:
sDirectory = "C:\root\ordner\funterordner"
call getXMLfiles_name(sDirectory)
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)
'fso.MoveFile sXMLLocation,sXMLTarget
Next
End if
Set files = folder.Files
Set file = Nothing
Set fso = Nothing
end function
Function importXML(sXMLLocation)
Set XMLDoc = CreateObject("Msxml.DOMDocument")
XMLDoc.async = False
bSuccess = XMLDoc.load(sXMLLocation)
Set myNodeID = XMLDoc.getElementsByTagName("id")
end function
| [aspdedatabase] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdedatabase/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdedatabase.asp
