kopiowanie folderu z zawartością raz jeszcze [delphi]

witam... chcialbym jeszcze raz poruszyc temat kopiowania folderów z zawartością, ale z wykorzystaniem zmiennej o profilu użytkownika:

uses ShellAPI;

procedure TForm1.Button1Click(Sender: TObject);
var FOS:TSHFileOpStructA;
begin
with FOS do
begin
Wnd:=Handle;
wFunc:=FO_COPY;
pFrom:='c:\tip\źródło\*.*';
pTo:='c:\tip\cel\';
fFlags:=FOF_ALLOWUNDO or FOF_NOCONFIRMMKDIR;
lpszProgressTitle:='Kopiowanie...';
fAnyOperationsAborted:=False;
end;
if SHFileOperation(FOS)<>0 then
ShowMessage('Wystąpił błąd podczas kopiowania')
else
if FOS.fAnyOperationsAborted then
ShowMessage('Kopiowanie zostało przerwane');
end;

(kod pochodzi ze strony http://delphi.cartal...no-frames.html)

jesli scieżkę podam w całości to jest OK ale ja chcialbym zrobić następującą rzecz c:\document and settings + USER + dalsza sciezka... aaa i w tym konkretnym folderze sa jeszcze inne podfoldery czy to cos zmienia? (jesli to bylo juz poruszane sorry za zamieszanie i prosze o wyrozumialosc gdzyz dopiero zaczynam z delphi ;) ) z gory dzieki za pomoc

---

Yyyyy chodzi Ci o pobranie ten ścieżki C:\Doc...\USERpFrom:=PChar(GetEnvironmentVariable('HOMEDRIVE')+GetEnvironmentVariable( 'HOMEPATH')+'\Pulpit');

Tak. Tylko ze jest problem bo program sie uruchomi ale podczas kopiowania pojawia się błąd "nie mozna skopiowac pliku: Nie mozna odczytac z pliku lub dysku zrodlowego" :/

Spróbuj bez "\*.*" na końcu ;)

---

niestety :( probowalem juz roznych kombinacji i nic... :( caly czas wystepuje mi blad taki jak podalem wczesniej...

procedure TForm1.Button1Click(Sender: TObject); var FOS:TSHFileOpStructA; begin with FOS do begin Wnd:=Handle; wFunc:=FO_COPY; pFrom:='c:\tip\źródło\*.*'; pTo:='c:\tip\cel'; fFlags:=FOF_ALLOWUNDO or FOF_NOCONFIRMMKDIR or FOF_NOERRORUI; lpszProgressTitle:='Kopiowanie...'; fAnyOperationsAborted:=False; end; CreateDirectory(FOS.pTo,nil); if SHFileOperation(FOS)<>0 then ShowMessage('Wystąpił błąd podczas kopiowania') else if FOS.fAnyOperationsAborted then ShowMessage('Kopiowanie zostało przerwane'); end;

<jupi> juz jest OK zrobilem to troche inaczej ale pomogles mi bardzo... wielkie dzieki ;)

zanotowane.pl

doc.pisz.pl

pdf.pisz.pl

zsf.htw.pl