setting metadata via vbscript in directory opus

dopus_setmetadata_vbscript

Set folderEnum = DOpus.FSUtil.ReadDir("d:\teststuff", False)

Do While (Not folderEnum.complete)
	Set folderItem = folderEnum.Next

	If (Not folderItem.is_dir) Then
		Set cmd = DOpus.NewCommand()
		strFileName = Mid(folderItem, InStrRev(folderItem, "\") + 1)
		strDate = mid(strFileName, 1, InStr(strFileName, ".") - 1)
		
		cmd.AddFile folderItem
		cmd.RunCommand "SetAttr META ""datetaken:" + strDate + "0101"""

	rem	DOpus.Output("SetAttr META ""datetaken: " + strDate + "0101""")
	End If
Loop