como escrever arquivo texto ( php )

fopen() = abrir arquivo
fwrite() = escrever arquivo
fclose() = fechar arquivo

modo de abertura:
'r'  = abrir somente para leitura; coloca o ponteiro no comeco do arquivo.
'r+' = abrir para leitura e gravacao; coloca o ponteiro no comeco do arquivo.
'w'  = abrir somente para gravacao; coloca o ponteiro no comeco do arquivo e apaga o conteudo que ja foi escrito.
'w+' = abrir para leitura e escrita; coloca o ponteiro no inicio do arquivo e apaga o conteudo que ja foi escrito.
'a'  = abrir somente para escrita; coloca o ponteiro no final do arquivo.
'a+' - abrir para leitura e gravacao; coloca o ponteiro no fim do arquivo.

como usar:
//abrir o arquivo em modo de escrita
$fp = fopen("arquivo.txt","a");
//escrever no arquivo o valor mensagem
fwrite($fp,"mensagem");
//fechar o arquivo
fclose($fp);
?>

como copiar pasta com subdiretorio ( delphi )

uses ShellApi;

function rtnBackup_Total(DirFonte,DirDest : String) : Boolean;
var
  ShFileOpStruct : TShFileOpStruct;
begin
  Result := False;
  if DirFonte = '' then
    raise Exception.Create(
      'Diretório fonte não pode ficar em branco');
  if DirDest = '' then
    raise Exception.Create(
      'Diretório destino não pode ficar em branco');
  if not DirectoryExists(DirFonte) then
    raise Exception.Create('Diretório fonte inexistente');
  DirFonte := DirFonte+#0;
  DirDest := DirDest+#0;
  FillChar(ShFileOpStruct,Sizeof(TShFileOpStruct),0);
  with ShFileOpStruct do begin
    Wnd := Application.Handle;
    wFunc := FO_COPY;
    pFrom := PChar(DirFonte);
    pTo := PChar(DirDest);
    fFlags := FOF_ALLOWUNDO or FOF_SIMPLEPROGRESS or
       FOF_NOCONFIRMATION;
  end;
  ShFileOperation(ShFileOpStruct);
end;