전문가님들의 고견을 구합니다.
질문 1.
파일을 저장하는데 있어서, 특정 디렉토리를 생성 시켜서
그 디렉토리에 저장을 하는 방법이 있을까요?
예를들면, 저장할 때 오늘 날짜에 해당하는 디렉토리를
만들어서 그 디렉토리안에 파일을 저장하도록 하는 구조로...
질문 2.
윈도우의 파일 찾기 처럼 조건이 주어지면
그 파일을 찾아서 파일 리스트 박스에
표시 시킬 수 있는 방법이 있을까요?
초보적인 질문이겠지만, 꼭 답변 부탁드립니다.
그럼, 즐거운 시간들 되시길...
> 전문가님들의 고견을 구합니다.
>
> 질문 1.
디렉토리 생성은
MkDir(Edit1.Text);
if IOResult <> 0 then
MessageDlg('Cannot create directory', mtWarning, [mbOk], 0)
else
MessageDlg('New directory created', mtInformation, [mbOk], 0);
>
> 질문 2.-- File 찾기
procedure TForm1.Button1Click(Sender: TObject);
var
buffer: array [0..255] of char;
FileToFind: string;
begin
GetWindowsDirectory(buffer, SizeOf(buffer));
FileToFind := FileSearch(Edit1.Text, GetCurrentDir + ';' + buffer);
if FileToFind = '' then
ShowMessage('Couldn''t find ' + Edit1.Text + '.')
else
ShowMessage('Found ' + FileToFind + '.');
end;
도움이 되길 바라며..