Guest User

Untitled

a guest
Nov 20th, 2017
85
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.01 KB | None | 0 0
  1. IClearCase cc = new ApplicationClass();
  2. CCVOB vob = cc.get_VOB("\VOB-name");
  3. CCView view = cc.get_View("ViewTag");
  4.  
  5. string[] files = Directory.GetFiles("View path here", "*.*", SearchOption.AllDirectories);
  6. foreach (string file in files)
  7. {
  8. try
  9. {
  10. CCVersion ver = cc.get_Version(file);
  11. Console.WriteLine(ver.Path);
  12. }
  13. catch(Exception) {/*the file is not versioned*/}
  14. }
  15.  
  16. Set CC = Wscript.CreateObject("ClearCase.Application")
  17. Set DirVer = CC.Version(".")
  18. Set FSO = CreateObject("Scripting.FileSystemObject")
  19. Set Folder = FSO.GetFolder(DirVer.Path)
  20. Wscript.Echo "Files under source control: "
  21. For Each File in Folder.Files
  22. On Error Resume Next
  23. Set Ver = CC.Version(File.Name)
  24. If Err.Number = 0 Then
  25. Wscript.Echo Ver.ExtendedPath
  26. End If
  27. Next
  28.  
  29. CCVersion ver;
  30.  
  31. lock (_lockObject)
  32. {
  33. ver = CCApp.get_Version(fileName);
  34. vi.Comment = ver.Comment;
  35. vi.Owner = ver.OID;
  36. }
Add Comment
Please, Sign In to add comment