كيف البحث عن ملف في حالة عدم وجوده بالمسار

[onexite]

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

[السوفي]

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

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

var
fullFilePath: string;
dir1, dir2: string;
begin
fileName := 'kh.accdb';
dir1 := 'C:\No such directory';
dir2 := 'C:\data';
fullFilePath := FileSearch(fileName, dir1 + ';' + dir2);
if fullFilePath = '' then
ShowMessage(fileName + ' not found')
else
ShowMessage(fullFilePath + ' found OK');
ShowMessage(fullFilePath);
end;

[Agmcz]

السلام عليكم

PHP كود :

//File
  if FileExists('C:\data\kh.accdb') then
    ShowMessage('Found.')
  else
    ShowMessage('Not Found!')
  //Dir
  if DirectoryExists('C:\data') then
    ShowMessage('Found.')
  else
    ShowMessage('Not Found!'); 


للتحقق من ملف أو مجلد.
إذا كان غيره:
لماذا أتعب في البحث عن ملف وأنا أعرف مساره :confused: أصلا
إذا كان الملف بحنب البرنامج يمكن إستخراج مسار البرنامج والإنطلاق منه

PHP كود :

ExtractFilePath(ParamStr(0)); 


إذا كان بعيدا ستذهب إلية مباشرة وتحقق منه.

[السوفي]

السلام عليكم ورحمة الله وبركاته
لا فضفوك اخي ghost-dz مبرمج متألق حقا انت متالق والشكر موصول للبقية

ما رايك في هذا للاتصال بالقاعدة

dure TForm1.Button1Click(Sender: TObject);
begin
if FileExists('C:\data\kh.accdb') then
begin
ADOConnection1.ConnectionString:='Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\data\kh.accdb;Persist Security Info=False';
ADOConnection1.Open;
end
else
ShowMessage('Not Connection!')
end;

وهذا للاتصال بجدول التنقيط اكسس

begin
if OpenDialog1.Execute then
begin
ADOConnection1.ConnectionString:='Provider=Microsoft.ACE.OLEDB.12.0;Data Source='+OpenDialog1.FileName+';Persist Security Info=False';
ADOConnection1.Open;
end

end;

[Agmcz]

وعليكم السلام
هكذا يكفي للتحقق من وجود القاعدة.
ويمكن أيضا تنشأ قاعدة فارغة في حالة عدم وجودها كما ذكر احد الإخوة في ردود السابقة
نرجو الفائدة وكل التوفيق.