文件打开对话框控件应该如何设置问题

Question

背景:
  我的文件存放在好几个文件夹如File1,File2
问题：
  我点击按钮1选择文件File1里面的文件确定后，
Openfile.InitialDir:='d:/file1';
  我点击按钮2想想选择file2文件夹里的文件，可还是默认定在我按钮时所在的文件夹。
Openfile.InitialDir:='d:/file2';
晕啊，这时不起用用了应该如何解决

Answer 1

晕啊
是Openfile.InitialDir:='d:\file1'; //注意/和\

Answer 2

程序是能正常运行的,不好意思是我在这里给大家讲述时写错了
Openfile.InitialDir:='d:\file1'
这样也不行

Answer 3

不可能吧？你代码是怎么写的？或者你的'd:\file2'是不是不存在的？

Answer 4

那你这两个文件夹存在吗?我也是这样用,我可以的.
看看OpenFile.Option是不是选了ofNoChangeDir之类的.

Answer 5

dbname:=extractfiledir(application.ExeName);
while pos('\',dbname)>0 do begin
    ss:=ss+copy(dbname,1,pos('\',dbname));
    dbname:=copy(dbname,pos('\',dbname)+1,255);
    end;
    strdir:=ss '这是全局变量
................
 Openfile.InitialDir:=strdir+'yuce';
  if not openfile.Execute then exit;

Answer 6

我晕~~~
============================================
while pos('\',dbname)>0 do begin
  ss:=ss+copy(dbname,1,pos('\',dbname));
 　dbname:=copy(dbname,pos('\',dbname)+1,255);
end;
============================================你这段东西有什么用？这样不就行了？
strdir:=ExtractFilePath(Application.ExeName);{兄弟先判断一下路径吧}
if not DirectoryExists(strdir+'yuce') then 
begin
  ShowMessage('路径不存在！');
  {创建这个路径}
  ForceDirectories(strdir+'yuce');
end;Openfile.InitialDir:=strdir+'yuce';

Answer 7

喔！我知道了，路径最后还要加个'\'吧。
Openfile.InitialDir:=strdir+'yuce\';