project BLF > class BApplicationProperty > method GetFiles

Parameters

Internal usage

program code (program1/bapplicationproperty.p)

file-info:file-name = icFilePath.
if file-info:file-type begins "D"
then do:
    input stream sFileStream from os-dir (icFilePath).
    
    repeat on error undo, throw:
        import stream sFileStream vc1 vc2 vc3.
        if entry(num-entries(vc2,"."),vc2,".") = "p"
        or entry(num-entries(vc2,"."),vc2,".") = "r"
        then do:
            create tAppserverHotfixes.
            assign tAppserverHotfixes.tcPersistenProcedureName = trim ('(' + string (iiPropathEntryNum) + ')' + ' '  +  vc2).
            release tAppserverHotfixes.
        end.
    end.
end.

finally:
    input stream sFileStream close.
end finally.