DevHyun

예를들어 C:\TEMP 폴더가 있으면 C:\TEMP 폴더에 log.txt 파일을 생성하여 '로그 로그 로그'를 작성하기 만약 i/o Error가 난다면 입력할수있는 글자수가 초과되었을 수도 있음! procedure TForm1.Button1Click(Sender: TObejct); var dir : string; // 경로 txt : TextFile; // 텍스트파일 begin //if Not DirectoryExists('경로') then if Not DirectoryExists('C:\TEMP') then begin //CreateDir('경로'); CreateDir('C:\TEMP'); end; //dir := '텍스트 파일 명을 포함한 경로'; dir := 'C:\TEMP\log.txt'; // ..

예를들어 C:\TEMP\TEMP.ZIP 파일을 D:\TEST\로 이동하고 싶을 때, (잘라내기, 원본파일 삭제) C:\TEMP\TEMP.ZIP 파일을 삭제하고 싶을 때, C:\TEMP\TEMP.ZIP파일을 D:\TEMP\로 복사하고 싶을 때(복사, 원본파일 유지)는 아래와 같이 사용! Procecure TForm1.Button1Click(Sender: TObject); begin //MoveFile(PChar('원본 파일의 경로'), PChar('이동하고자하는 파일의 경로')); MoveFile(PChar('C:\TEMP\TEMP.ZIP'), PChar('D:\TEST\TEMP.ZIP')); //DeleteFile(PChar('삭제하고자하는 파일의 경로')); DeleteFile(PChar('C:\TEM..

예를들어 C:\TEMP Directory가 있으면 제거, 없으면 생성하는 작업을 한다면? Procecure TForm1.Button1Click(Sender: TObject); begin //if DirectoryExists('확인하고자 하는 경로') then if DirectoryExists('C:\TEMP') then begin //RemoveDirectory('경로'); RemoveDirectory('C:\TEMP'); end else begin //CreateDir('경로'); CreateDir('C:\TEMP'); end; end;

* Delphi XE2 버전 이후 버전에서만 System.Zip 사용 가능! 이전 버전에서는 상용 컴포넌트(유료)를 사용해야 함 예를들어 C:\TEMP 폴더를 C:\TEMP.zip으로 압축하고 싶을때는 다음과 같이 사용! 파일 자체로만 압축은 안되는듯? 조금 번거롭지만 폴더만 압축가능한 것 같다. uses ... , System.Zip procedure TForm1.Button1Click(Sender: TObject); begin //TZipFile.ZipDirectoryContents('생성할 압축파일 명을 포함한 경로', '압축 대상 폴더 경로'); TZipFile.zipDirectoryContents('C:\TEMP.zip','C:\TEMP'); end;