Code: Select all
BatchUnlocker.AddSelection(vault, FileList)
BatchUnlocker.CreateTree(Me.Handle.ToInt32(), EdmUnlockBuildTreeFlags.Eubtf_MayUnlock + EdmUnlockBuildTreeFlags.Eubtf_MayUndoLock)
BatchUnlocker.Comment = StrComment
' Use dialog if checkbox on form is enabled >> This will prevent open files from being checked in (desired)
If ChkDialog.Checked Then
BatchUnlocker.ShowDlg(Me.Handle.ToInt32())
End If
BatchUnlocker.GetFileList(EdmUnlockFileListFlag.Euflf_GetUnlocked + EdmUnlockFileListFlag.Euflf_GetUndoLocked + EdmUnlockFileListFlag.Euflf_GetUnprocessed)
BatchUnlocker.UnlockFiles(Me.Handle.ToInt32(), Nothing)