Delphi 中数据备份和恢复...

备份:

procedure TMainForm.FileDataBackupExecute(Sender: TObject);
var adoTemp: TADOQuery;
begin
  adoTemp := TADOQuery.Create(nil);
  adoTemp.Connection := CommonData.acnConnection;
  adoTemp.close;
  adoTemp.SQL.Text := Format('BACKUP DATABASE [%s] TO DISK = ''%s''',
    [CommonData.acnConnection.DefaultDatabase,
    ExtractFilePath(Application.ExeName) + 'Backup/' +
    CommonData.acnConnection.DefaultDatabase +
    FormatDateTime('yymmdd-hhnnss', Now) + '.bak']);
  adoTemp.ExecSQL;
  showmessage('数据备份完毕！');
end;

问题:当目标无Backup这个文件夹的时候,就会提示错误,要手动去建这个文件...所以,是不是该有个什么语句,当要备份的时候就去检测一下有没有Backup这个文件夹,没有就自动创建个...可惜不知道创建文件夹的语句,菜鸟就是菜鸟...

procedure TMainForm.FileDataRestoreExecute(Sender: TObject);
begin
  Application.CreateForm(TMSDataRestoreForm, MSDataRestoreForm);
  MSDataRestoreForm.ShowModal;
  MSDataRestoreForm.Free;
end;

此语句尚未仔细测试