چطور فایل های یک پوشه رو کپی کنم؟

[hex161]

با سلام
من میخواستم فایل های یک پوشه رو در داخل یک پوشه دیگه کپی کنم . و اول نام فایل کپی شده نام پوشه خودش رو اضافه کنم.چطور میشه اینکارو کرد؟
من دستور کپی و تغییر نام رو هم تو دلفی بلد نیستم.ممنون میشم اگه راهنماییم کنید.
با تشکر.

[m-khorsandi]

اصولا" قسمتی به نام جستجو در سایت قرار داره که اگه از اون استفاده کنی باور کن
زودتر به نتیجه میرسی: :چشمک:
http://www.barnamenevis.org/forum/showthread.php?t=35229
http://www.barnamenevis.org/forum/showthread.php?t=8758
http://www.barnamenevis.org/forum/showthread.php?t=31233
http://www.barnamenevis.org/forum/showthread.php?t=1368
http://www.barnamenevis.org/forum/showthread.php?t=8785&page=2&pp=10

[mzjahromi]

یه راه ساده و نه جچندان حرفه ای اینه


try
for i:=1 to FileListbox1.Items.Count do
Begin
FileListBox1.ItemIndex:=i-1;
if FileListBox1.Items[i-1]<>ldbName then
if Not CopyFile(PChar(FileListBox1.FileName),PChar(S2+Fil eListBox1.Items[i-1]),False) then
Rv:=False;
Application.ProcessMessages;
End;
Except
Raise;
End;

[Mahmood_M]

آقای ذولقدری توی کدی که بالا گذاشتید منظور از Raise چیه؟

[mzjahromi]

آقای ذولقدری توی کدی که بالا گذاشتید منظور از Raise چیه؟

در واقع بکار بردن Raise به شکل بالا مثل اینه که اصلا از Try Except استفاده نکردی(من بجای Raise کد دیگه ای نوشته بودم ولی چون اینجا نیاز نبود حذفش کردم) ولی معمولا وقتی از Raise استفاده میکنند که بخواهند در صورت خطا عملیاتی را انجام دهند و سپس Exception رو هم داشته باشند. یا به عبارتی Raise یعنی ادامه Exception