将信息保存到一个XML文件的vbs代码

*****************************************************************
** Script: CreateXML.vbs
** Version: 1.0
** Created: 01/12/2009 9:51PM
** Author: Adriaan Westra
** E-mail:
** Purpose / Comments:
** Create xml file for photo album
**
**
** Changelog :
** 12-01-2009 9:51 : Initial version
**
*****************************************************************

On Error Resume next
Dim Version : Version = "1.0" Script version
Dim Author : Author = "A. Westra"
Dim objXML XML Document object
Dim root Root element of the xml document
Dim newNode XML Node object
Dim cNode XML (child) Node object
Dim cNodeText XML Text Node object


*****************************************************************
** Make sure the script is started with cscript
If InStr(wscript.FullName, "wscript.exe") > 0 Then
MsgBox "Please run this script with cscript.exe." & Chr(13) & _
"For example : cscript " & WScript.ScriptName & " /?", _
vbExclamation, WScript.ScriptName
WScript.Quit(1)
End If

*****************************************************************
** Get commandline parameters
Set Args = Wscript.Arguments

If Args.Count = 0 Then
strImageDir = InputBox("Please give the directory name " & _
"to process : ",wscript.scriptname, strPath)
Else
If InStr(Args(0),"/?") > 0 Or InStr(UCase(Args(0)),"/H") > 0 _
Or InStr(UCase(Args(0)),"/HELP") > 0 Then
DisplayHelp
Wscript.quit(0)
Else
strImageDir = Args(0)
End if
End if

Set objXML = CreateObject("Msxml2.DOMDocument.6.0")
objXML.setProperty "SelectionLanguage", "XPath"


*****************************************************************
** Determine if the file exists
strXMLFile = strImageDir & "\album.xml"
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists(strXMLFile) Then
*****************************************************************
** Read the XML File
objXML.load(strXMLFile)
Else
*****************************************************************
** Create the XML File
objXML.loadXML("")
End If
*****************************************************************
** Process directory
Set objImgDir = objFSO.GetFolder(strImageDir)
For each objFile in objImgDir.Files
If IsJPG(objFile.Name) Then
arrTemp = split(objFile.Name, ".")
strNode = arrTemp(0)

*****************************************************************
** Determine if the node exists
If Not XmlNodeExists(strChildNode, objXML) Then
*****************************************************************
** Get the root element of the xml document
Set root = objXML.documentElement
*****************************************************************
** Create the new node
Set newNode = objXML.createNode(1, strNode, "")
root.appendChild newNode
Set cNode = objXML.createNode(1, "alt", "")
Set cNodeText = objXML.createNode(3, "", "")
cNodeText.Text = strNode
cNode.appendChild cNodeText
newNode.appendChild cNode
Set cNode = objXML.createNode(1, "Title", "")
Set cNodeText = objXML.createNode(3, "", "")
cNodeText.Text = strNode
cNode.appendChild cNodeText
newNode.appendChild cNode
End If
End If
Next
*****************************************************************
** Save the xml file
objXML.save(strXMLFile)

*****************************************************************
** End the script
wscript.quit

*****************************************************************
** Function: XmlNodeExists
** Version: 1.0
** Created: 1/12/2009 12:14PM
** Author: Adriaan Westra
** E-mail:
**
** Purpose / Comments:
** Determines if a node exists in XML
**
** Arguments :
** strNode :Name of the XML node
** oXML :XMl DOM Object

**
** Changelog :
** 1/12/2009 12:16PM : Initial version
**
*****************************************************************
Function XmlNodeExists( strNode, oXML )
On Error Resume next
Set oNode = oXML.selectSingleNode(strNode)
strNodetype = oNode.nodetype
If err.number = 0 Then
XmlNodeExists = True
Else
XmlNodeExists = False
End if
End Function
*****************************************************************
** Sub: DisplayHelp
** Version: 1.0
** Created: 24-03-2003 8:22
** Author: Adriaan Westra
** E-mail:
**
** Purpose / Comments:
** Display help for script
**
** Arguments :
**
** Wijzigingslog :
** 24-03-2003 8:22 : Initi雔e versie
**
*****************************************************************
Sub DisplayHelp()
strComment = string(2,"*")
strCmntLine = String(79, "*")
wscript.echo strCmntline
wscript.echo strComment
wscript.echo strComment & " Online help for " & _
Wscript.scriptname & " version : " & Version
wscript.echo strComment
wscript.echo strComment & " Usage : cscript " & _
Wscript.scriptname & " directoryname"
wscript.echo strComment
wscript.echo strComment & " Purpose : Create XML file " & _
"for all images in given directory."
wscript.echo strComment
wscript.echo strComment & " Author : " & Author
wscript.echo strComment & " E-mail : " & Email
wscript.echo strComment
wscript.echo strCmntline
End Sub
*****************************************************************
** Function: IsJPG
** Version: 1.0
** Created: 12/29/2008 11:01PM
** Author: Adriaan Westra
** E-mail:
**
** Purpose / Comments:
** Determine if file is jpg image
**
** Arguments :
** strFilename : name of the file to check
**
** Wijzigingslog :
** 12/29/2008 11:02PM : Initi雔e versie
**
*****************************************************************
Function IsJPG(strFilename)
Set objRegExp = New RegExp
objRegExp.Pattern = "\w.jpg"
objRegExp.IgnoreCase = True
IsJPG = objRegExp.Test(strFileName)
End Function