Skip to content

Instantly share code, notes, and snippets.

@segrax
segrax / dopus_setmetadata_vbscript
Created January 3, 2021 22:13
setting metadata via vbscript in directory opus
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)
Barwon River Floods Geelong
https://www.youtube.com/watch?v=KG4xiJG8B3I