카피 파일 함수, 파일 복사 기능은 다음과 같습니다.
카피 파일 (
lpcstr lpexistingfilename, // 소스 파일 경로
lpcstr lpnewfilename, // 새 파일 경로
BOOL BFAILIFEXISSTS // 새로운 파일이 이미 존재하는 경우, 새 파일이 이미 존재하면 원래 파일이
씌우다.
);
함수는 성공을 위해 true를 반환하고 실패에 대해서는 거짓을 반환합니다.
예:
CopyFile (pchar ( 'sql.txt'), pchar (extractfilepath (applact.exename) + '2.txt'), true);
나중에 실험 할 때 소스 파일을 추가하지 않고 소스 파일을 변환 할 수 있지만 새 파일을 사용할 수 없으며 소스 파일 이름이 추가되지 않으면 기본값이 발생합니다.
이 프로그램 디렉토리를 사용하십시오.
함수는 부울 유형을 반환하기 때문에 다음과 같이 쓸 수도 있습니다.
CopyFile ( 'd : /yun_yue/sql.txt' ,pchar (ExtractFilePath (Application.Exename) +'2.txt ')이면 true
// 파일 경로가 올바른지 확인하십시오. 그렇지 않으면 함수가 실패합니다.
showmessage ( '복사 파일 완료!')
또 다른
showmessage ( '복사 파일 실패!');
카피 파일 함수는 위의 예를 사용하여 네트워크 이웃의 파일을 복사 할 수 있습니다.
CopyFile ( '// sh-sfis/yun_yue/yun_yue/copytext.txt', pchar (extractfilepath (applact.exename) + '2.txt'), false)
// 여기에서 함수의 세 번째 매개 변수를 False로 설정하면 내 응용 프로그램 디렉토리에 존재하는 '2.txt'파일을 덮어 씁니다.
showmessage ( '복사 파일 완료!')
또 다른
showmessage ( '복사 파일 실패!');