Example: Iterating a directory using VBScript

' How to use the Scripting object to iterate files in a directory,
' printing version information for those under source control

Set CC = Wscript.CreateObject("ClearCase.Application")
Set DirVer = CC.Version(".")
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Folder = FSO.GetFolder(DirVer.Path)
Wscript.Echo "Files under source control: "
For Each File in Folder.Files
     On Error Resume Next
     Set Ver = CC.Version(File.Name)
     If Err.Number = 0 Then
          Wscript.Echo Ver.ExtendedPath
     End If
Next

Feedback