프로그래밍 노트

// GetFileList : Sub Folder안의 File까지 검색하는 함수 // slFileList : 반환하는 File List // sPath : 검색한 Root Folder // sMask : File 검색 Mask 설정 // 예) '*.txt', '*.exe' // bSubDir : SubFolder 검색 유무 procedure GetFileList(slFileList: TStringList; sPath, sMask: string; bSubDir: boolean); var i, iFindRst : integer; SrchRec : TSearchRec; slFolder : TStringList; begin if sPath[length(sPath)] '\' then sPath := sPath +..

지정한 폴더에 들어있는 파일을 검색해서 TStringList로 반환해주는 함수 예제 서브 폴더 밑의 파일까지도 파일을 까지도 검색하는 함수 // ************************************************************ // 지정한 폴더 밑에 파일을 필터링하여 // 지정한 폴더 밑의 파일 리스트를 얻는 함수 // ************************************************************ procedure GetSearchedFileList(sPath : String; slFileList : TStringList; sWildStr : string; bSchSubFolder : Bool); var sTempPath : String; SchR..

선택한 폴더의 들어있는 파일을 리스트 박스에 표시하는 예제 function TfrmMain.GetFileList(sFolder: string): integer; var SrcRec : TSearchRec; nCnt : integer; begin if DirectoryExists(sFolder) then begin nCnt := 0; // '\'가 없으면 붙임 sFolder := IncludeTrailingPathDelimiter(sFolder); // 폴더의 모든 파일 표시 if FindFirst(sFolder + '*.*', faAnyFile, SrcRec) = 0 then try repeat // 폴더, 현 폴더, 상위 폴더 제외 if not((SrcRec.Attr and faDirectory > 0..