AKAI TSUKI

System development or Technical something

なるほど

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