الدالة copyfolder لاتعمل ؟

اما من مجيب اما من رد بارك الله لكم فيما رزقكم من علم !!!!

أخي وصفك للمشكلة غير واضح

هناك خطاء ما في تعاملك مع الدالة

هل يمكنك إرفاق مثال، سورس فقط

السلام عليكم

عزرا اخى - التاخير- هذا مثال لما يحدث معى اذا انه ما فى خطأ فى كتابة الكود لانه عبارة عن استدعاء دالة لكن يبدو ان شىء ما غائب عنى بارك الله فيك شوف واوضح لى الموضوع

copyfile.rar

اخي العزيز الكود صحيح وقد نقل ملف الوورد الى السواقة الاخرى على شكل ملف بدون تنسيق

procedure TForm1.Button1Click(Sender: TObject);

begin

CopyFile('c:\as.doc','d:\as',true);

end;

على كل حال راجع الموقع التالي

http://www.swissdelphicenter.ch/en/showcode.php?id=152

السلام عليكم

حدد ما تريد يا أخي!

تسأل عن CopyFolder و مثالك يستخدم CopyFile

:blink:

بالنسبة لمثالك سواء تكتب:

CopyFile('c:\as.doc','d:\',true);

أـو تكتب:

CopyFile('c:\as.doc','d:\as.doc',true);

السلام عليكم

اولا عذرا اخى قصدت copyfile من البداية

الان بما ان الكود يعمل اين ابحث لاعدل الخطأ لانه فى ال compile مافيش اى خطأ لكن فى التنفيذ لا ينفذ :wacko: :wacko: احترت

شباب لدى سؤال متعلق بالموضوع

الدالة COPYFOLDER لا تعمل عندى ولكن COPYFILE تعمل

مشكور يا اخ حازم على الوصلة

العفو اخجلتني

بالنسبة لنسخ المجلد جرب الكود

 
uses
  ShellApi; 

function CopyDir(const fromDir, toDir: string): Boolean; 
var 
  fos: TSHFileOpStruct; 
begin 
  ZeroMemory(@fos, SizeOf(fos)); 
  with fos do 
  begin 
    wFunc  := FO_COPY; 
    fFlags := FOF_FILESONLY; 
    pFrom  := PChar(fromDir + #0); 
    pTo    := PChar(toDir) 
  end; 
  Result := (0 = ShFileOperation(fos)); 
end; 


function MoveDir(const fromDir, toDir: string): Boolean; 
var 
  fos: TSHFileOpStruct; 
begin 
  ZeroMemory(@fos, SizeOf(fos)); 
  with fos do 
  begin 
    wFunc  := FO_MOVE; 
    fFlags := FOF_FILESONLY; 
    pFrom  := PChar(fromDir + #0); 
    pTo    := PChar(toDir) 
  end; 
  Result := (0 = ShFileOperation(fos)); 
end; 

function DelDir(dir: string): Boolean; 
var 
  fos: TSHFileOpStruct; 
begin 
  ZeroMemory(@fos, SizeOf(fos)); 
  with fos do 
  begin 
    wFunc  := FO_DELETE; 
    fFlags := FOF_SILENT or FOF_NOCONFIRMATION; 
    pFrom  := PChar(dir + #0); 
  end; 
  Result := (0 = ShFileOperation(fos)); 
end; 


procedure TForm1.Button1Click(Sender: TObject); 
begin 
  if cCopyDir('d:download', 'e:') = True then 
    ShowMessage('Directory copied.'); 
end;