' スクリプト オブジェクトを使用してディレクトリ内のファイルを反復し、 ' ソース制御下にあるバージョン情報を出力します。 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