انشاء مجلد جديد؟

بسم الله الرحمن الرحيم

يمكن انشاء مجلد جديد باستخدام الدالة CreateDir

function CreateDir(const Dir: string): Boolean;

ولاختيار المكان الذي سينشأ المجلد فيه تستخدم الدالة SelectDirectory ان كنت تريد ذلك .

كما يمكنك استعمال الدالة ForceDirectories لانشاء المجلد راجع Delphi Help لمزيد من المعلومات عن الدالة

وهذا مثال

// add 1 Edit where the user will write the new folder name
// add   FileCtrl  in the uses clause
procedure createdirectory;
var
  Dir: String;
begin
  SelectDirectory('Select a directory', '', Dir);
  if dir=''then
  begin
  //Error : here you write the error handling .
  //(you can use GetLastError)
  showmessage('Select a directory');
  exit;
  end;
  if(form1.edit1.Text='')then
  begin
  //Error : here you write the error handling .
  //(you can use GetLastError)
  showmessage('Choose a name for the new directory');
  exit;
  end;
  if(not CreateDir(dir+''+form1.edit1.Text))then
  //Error : here you write the error handling .
  //(you can use GetLastError)
   showmessage('Directory created failed');
end;

لنسخ ملف يمكن استخدام الدالة CopyFile . استخدم SelectDirectory لاختيار الموقع المراد النسخ اليه كما في المثال السابق (يمكن استخدام طرق اخرى غير هذه الطريقة مثلا TShellTreeView , او جعل المستخدم يكتب الـ Path كاملا [ :eek: :eek: :eek: اظن ان المستخدم لن يستخدم مثل هكذا برنامج :D ] ,...,... )

var
  FileSource, FileDest: string;
...
// you have to specify filesource 
CopyFile(PChar(fileSource), PChar(fileDest), False);

كما يمكن استخدام الدالة CopyFileTo وهذه توجد في Unit: IdGlobal