تصدير fastreport الىpdf وانشاء مجلد ووضع الملف فيه

[wadoud]

السلام عليكم أسال الله ان تكونوا بخير وعافية
هدفي هو كالتالى
اولا انشاء مجلد في المكتب إن لم يكن موجودا واذا كان المجلد موجود فلا داع لانشائه.
ثانيا تصدير ملف fastreport الى pdf الى المجلد أعلاه  يحمل الى جانب الاسم تاريخ اليوم .

عندي محاولتين الاولى في انشاء المجلد وهي كالتالي:

كود :

procedure TForm1.Button1Click(Sender: TObject); begin If not DirectoryExists('مجلد') then MKdir('مجلد') ; MkDir(GetEnvironmentVariable('USERPROFILE') + '\Desktop\' + 'مجلد'); هذه نجحت  ولكن يظهر رسالة خطأ اذا كان الملف موجود

المحاولة الثانية تصدير الملف ولم اعرف كيف ان اضيف له التاريخ الى جانب الاسم و كيف أجعله في المجلد اعلاه فقط تمكنت من انشائه في المكتب كالتالى

كود :

frxReport1.PrepareReport; frxPDFExport1.FileName := 'c:\Users\Public\Desktop\test.pdf'; frxReport1.Export(frxPDFExport1); end; في امان الله

[h-farid]

و عليكم السلام و رحمة الله
جرب ما يلي :

PHP كود :

procedure TForm1.Button1Click(Sender: TObject);
var
 path: string;
begin
 path := GetEnvironmentVariable('USERPROFILE') + '\Desktop\' + 'مجلد';
 if not DirectoryExists(path) then
 MKdir(path);
 frxReport1.PrepareReport;
 frxPDFExport1.FileName := path + '\test.pdf';
 frxReport1.Export(frxPDFExport1);
end; 


[wadoud]

بارك الله فيك أستاذنا الكريم
لقد اشتغل الكود على التمام , أما وأنك أبدعت الجواب فأتم الشطر الثاني منه ليكون خيرك تاما كاملا غير ناقص
كيف أضيف التاريخ الحالى لاسم الملف ؟ ليكن على هذا الشكل مثلا
09.04.2016
حاولت ولكنني لم أفلح اشكرك مرة اخرى

[h-farid]

و فيك فليبارك الله.

بالنسبة لاضافة التاريخ لاسم الملف, فهذه أسهل من تلك!

PHP كود :

frxPDFExport1.FileName := path + '\test-' + (formatdatetime( 'dd mm yyyy', date ) + ' - ' + formatdatetime( 'hh mm', time )) + '.pdf'; 


لاحظ ما يلي :
-اضفت لك التاريخ و الوقت لتعم الفائدة 
-عند استخدام التاريخ أو الوقت في اسماء الملفات عليك الأخذ بالحسبان الحروف الخاصة التي تستعمل في فصل أجزاء التاريخ و تمنع في أسماء الملفات و المجلدات, مثل  : /  أو النقطة (.) و التي قد تغير لاحقة الملف

[wadoud]

السلام عليكم
أشكرك أخي فريد, لقد كنت كريما أسأل الله أن يجزيك عنا كل خير.