디비두 파일이니깐 CopyFile함수로 되지 않나요??
그렇게 해서 코딩을 했는데... 파일 복사가 되질 않네요..
방법좀 가르쳐 주세요...
소스는 아래와 같습니다..
var dbPath:String;
begin
dbPath := 'C:\temp.mdb';
if not FileExists(dbPath) then begin
WarningMSG('DB 디렉토리에 temp.mdb 파일이 없어 복사하지 못했습니다.');
Exit;
end
else begin
CopyFile(PChar(dbPath),PChar((edtDbPH.Text)),false);
ShowMessage('SuccesseFull');
end;
CopyFile함수로 되요..^^
만약 D드라이브에 저장하시는 것이면 아래처럼..
CopyFile(PChar('C:\temp.mdb'),PChar('D:\temp.mdb'),false);
edtDbPH.Text에 괄호 두개하지마시고요..ㅎㅎ 해도 머 상관없지만서도
모양새가..^^;;
edtDbPH.Text 가 D:\temp.mdb 요런식으로 복사할 파일명까지 명시해야
됩니다.
즐거운 하루 ^^