filelistbox指定路径的问题

[jojoxyz]

filelistbox可以方便的显示指定路径里的文件，但现在有个问题，动态设置路径时这么做，filelistbox.Directory:='路径'+'\路径'，当路径为某个文件夹这么做没问题，但当路径为根目录时，会出现filelistbox.Directory:='c:\\'，会出现2个\杠，这样filelistbox会抱错，有什么办法解决这个问题吗？

[seekmydoom]

判断一下有没有子目录不就行了吗？

[飞天揽月]

FileListBox1.Drive:='C' ;
if (length(FileListBox1.drive)>3 )then
showmessage(FileListBox1.Directory +'\adb.acb')
else
showmessage(FileListBox1.Directory +'adb.acb')
end;

[pengxuan]

if (Pos(':\',FileListBox1.Directory)>0) and (Length(FileListBox1.Directory)=3) then
begin
showmessage('根目录');
end
else
begin

end;