如何得到文件目录

delphi中如何把通过对话框选择文件夹(目录名:如D:\test)赋值到文本框中，只要文件的目录名，不要得到文件名(如D:\test\test.txt)。

解决方案 »

  1.   

    ExtractFilePath 该函数返回的目录会以'\'结尾
      

  2.   

    solokey(永远的菜鸟-抢分,准备当猩猩) 的答案是正解，extractfiledir返回的是不带\的目录名，ExtractfileDrive返回的是盘符。ExtractFileExt返回的是扩展名，Extractfilename返回得是文件名（不带路径）。ExtractRelativePath返回的是相对路径，建议楼主看一下帮助里的这几个使用函数。
      

  3.   

    用samples里的shelltreeview
    shelltreeview1.Path