使用ExtractFilePath获取exe文件所在目录后，如何取得改目录下的某个子目录

Question

就比如用ExtractFilePath(application.ExeName)获取到exe文件所在的目录为C:\APP\,而app目录下有个dbback目录，那么我怎么取得这个目录？c:\app\dbback\

Answer 1

ExtractFilePath(application.ExeName)+'dbback';

Answer 2

Try
  sPath:=ExtractFilePath(application.ExeName)+'DataBack'+FormatDateTime('yyyymmddhhmmss',Now())+'.bak';
  with ADOQuery1 do
  begin
    close;
    sql.Clear;
    ADOQuery1.SQL.Text:='use master BACKUP DATABASE Data to Disk = N'''+sPath+'''' ;
    ExecSQL;
    showmessage('备份成功！');
  end;
except
  showmessage('备份失败！');
end;
我备份语句是这么写的，我本想备份到程序所在目录\DataBack\,但每次都是备份到程序当前目录，文件名是这样的：DataBack20100827091820.bak

Answer 3

Path:=ExtractFilePath(application.ExeName)+'DataBack'+FormatDateTime('yyyymmddhhmmss',Now())+'.bak'
修改为
Path:=ExtractFilePath(application.ExeName)+'\DataBack'+FormatDateTime('yyyymmddhhmmss',Now())+'.bak'

Answer 4

Path:=ExtractFilePath(application.ExeName)+'DataBack'+FormatDateTime('yyyymmddhhmmss',Now())+'.bak'
修改为 
Path:=ExtractFilePath(application.ExeName)+'DataBack\'+FormatDateTime('yyyymmddhhmmss',Now())+'.bak'上面得写错了，抱歉

Answer 5

試試Path:=ExtractFilePath(application.ExeName)+'DataBack\'+FormatDateTime('yyyymmddhhmmss',Now())+'.bak'