title: How to copy multiple files and use a wildcard
body: <p>Any ideas why this doesn't work? No errors, my text files just don't copy.    </p>
  
  <pre><code>procedure TForm1.CopyFiles(Source, Target: string);
  var
  FO: TShFileOpStruct;
  begin
     FillChar(FO,SizeOf(FO),#0);
     FO.Wnd := Form1.Handle;
     FO.wFunc := FO_COPY;
     FO.pFrom := PChar(Source);
     FO.pTo := PChar(Target);
     ShFileOperation(FO);
  end;
  
  procedure TForm1.Button1Click(Sender: TObject);
  begin
      CopyFiles('c:\test\*.txt','c:\test2\');
  end;
  </code></pre>