Dim setpath setpath = "C:\foo" Dim fileList Set objFSO = WScript.CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(setpath) Call MakeFilePathList(objFolder, fileList) Call OutPutText(fileList) sub MakeFilePathList(folder, filePathList) For Each targetFile In folder.Files IF CheckOfFile(targetFile.Path) THEN filePathList = filePathList & targetFile.Path & VbCrLf END IF Next For Each targetSubFolder In folder.SubFolders MakeFilePathList targetSubFolder , filePathList Next end sub sub OutPutText( StrTxt ) WScript.Echo StrTxt end sub function CheckOfFile(fileName) if Right(fileName, 3) = "gif" THEN CheckOfFile = TRUE else CheckOfFile = FALSE end if end function