? _vfp.ActiveProject.Files["classes.prg"].Name
? _vfp.ActiveProject.Files["classes.prg"].Type
? _vfp.ActiveProject.Files["classes.prg"].Exclude

FOR EACH oFile IN _vfp.ActiveProject.Files
    IF oFile.Type == "D"
        && do something ...