救急，怎样从TopenDialog中获得目录的路径？SOS!

各位帅哥靓女们：
    请救救咱，我怎样从TOpenDialog打开的目录，任选定一个，获取目录的路径，不是文件哦，因为我要统计任一目录中文件的个数！

解决方案 »

  1.   

    OpenDialog.Directory
    不过为什么不用SelectDirectory?
      

  2.   


    procedure TForm1.Button1Click(Sender: TObject);
    begin
    if form1.OpenDialog1.Execute then
       begin
       label1.caption:=extractfiledir(opendialog1.filename);
       end;
    end;祝：身体健康，答案和分数同样重要：）！！！！！
      

  3.   

    ExtractFilePath(OpenDialog1.FileName); -->绝对路径
      

  4.   

    ExtractFilePath(OpenDialog1.FileName); -->绝对路径
      

  5.   

    ExtractFilePath(OpenDialog1.FileName)yes, I agree with upstairs
      

  6.   

    ExtractFilePath(OpenDialog1.FileName); 
    up
      

  7.   


    可不可以有什么办法，只要选定目录就可以知道它的路径，而无需打开这个目录；
    Topendialog还要打开这个目录，从文件名获取是吧
      

  8.   

    用选择SelectDirectory函数，在filectrl单元中,标准的目录选择框
      

  9.   

    ExtractFilePath(OpenDialog1.FileName);
      

  10.   

    var 
      apppath:string;
    {以下是开始以后的内容}
    begin
       apppath:=extractfilepath(OpenDialog1.FileName);  
    //引用apppath就可以了end;