请问如何获取文件的路径

[panpan2]

利用OpenDialog控件可获得文件名和路径，但我只想要路径，如何办？谢谢！

[chechy]

function ExtractFilePath(const FileName: string): string;

procedure TForm1.Save1Click(Sender: TObject);

var
NewFileName: string;
Msg: string;
NewFile: TFileStream;
OldFile: TFileStream;
begin
NewFileName := ExtractFilePath(Application.ExeName) + ExtractFileName(Edit1.Text);
Msg := Format('Copy %s to %s?', [Edit1.Text, NewFileName]);
if MessageDlg(Msg, mtConfirmation, mbOKCancel, 0) = mrOK then
begin
OldFile := TFileStream.Create(Edit1.Text, fmOpenRead or fmShareDenyWrite);
try
NewFile := TFileStream.Create(NewFileName, fmCreate or fmShareDenyRead);

try
NewFile.CopyFrom(OldFile, OldFile.Size);
finally
FreeAndNil(NewFile);
end;
finally
FreeAndNil(OldFile);
end;
end;

end;

[lbisme]

extractfilepath(OpenDialog.FileName)

[lbisme]

写那么多干嘛

[zx_wang]

extractfilepath(OpenDialog.FileName)

或则直接用

selectDirectory直接选择一个目录

uses QDialogs;


selectDirectory();

[windindance]

ExtractFilePath

[alphen]

该说的都说了

[panpan2]

谢谢各位！