[질문]ftp를 이용하여 파일를 upload시 파일 존재유무체크하는방법좀 부탁합니다.
아래는 소스입니다.
파일 존재시 유무를 체크하여 삭제후 전송하는것을 구현할려고 합니다.
부탁드립니다.
좋은하루 되세요'''
iF IdFTP1.Connected = True then begin
Try
ProgressBar1.Position:= 0;
IdFTP1.TransferType := ftBinary;
BytesToTransfer := IdFTP1.Size(sFile);
If Not Checkbox1.checked Then Begin
Panel1.Caption := '파일을 받고 있습니다!. ';
End Else Begin
//여기에서파일 존재유무체크를 해야되는데 어떠ㅗ게 하는것인지 부탁합
//니다. 만일 존재시 삭제하는것도요 감사합니다.
try idFTP1.Delete(tFile);
except
end;
End;
Panel1.Caption := '파일을 보내고 있습니다!.';
End;
If Not Checkbox1.checked Then
IdFTP1.get(sFile,tFILE,True)
Else IdFTP1.put(tFile,sFILE,True);
Except on E:Exception do
begin
If Checkbox1.checked Then
ShowMessage(' 파일보내기를 완료하지 못했습니다!.')
Else ShowMessage(' 파일받기를 완료하지 못했습니다!. ');
Exit;
end;
End;
ProgressBar1.Position := 0;
If Checkbox1.checked Then
Panel1.Caption := '파일보내기를 완료하였습니다!.'
Else Panel1.Caption := '파일받기를 완료하였습니다!. ';
End else
ShowMessage('호스트에 접속되어 있지 않습니다!.');
|