此贴已重复发过300分，解决后全给。

Question

我的程度中使用了
    Drive，Dir,Filelist,    Private Sub File2_DblClick()
      .................
    ChDir "C:\Program Files\RNAstructure 4.11" 结果这句话无效
     ...................
   如何使得程序的路径定位到C:\Program Files\RNAstructure 4.11?
    (假设File2list现在在d:\1\folder)
    (RNAstructure 4.11是个文件夹）

Answer 1

可能是长文件名的问题，用getshortpathname()试试

Answer 2

ChDir.Path = "C:\Program Files\RNAstructure 4.11"

Answer 3

ChDir.Path = "C:\Program Files\RNAstructure 4.11"
试试看，我就是这样做的。

Answer 4

没有路径关键字
ChDir.Path = "C:\Program Files\RNAstructure 4.11"

Answer 5

使用ChDir.Path = "C:\Program Files\RNAstructure 4.11"会出现“参数不可选”
   但是 ChDir "C:\Program Files\RNAstructure 4.11" 却不会  我只是想让程序的运行路径定位到C:\Program Files\RNAstructure 4.11  ?
 如何办到呀？

Answer 6

如果我没有理解错，你是想在程序中使用当前路径定位到C:\Program Files\RNAstructure 4.11，你可以按如下方法：Private Sub Command1_Click()
    ChDrive "c:\"
    ChDir "C:\Program Files\RNAstructure 4.11"
    
    ' 下面来测试一下，你会看到，这个新建的test文件在没有指定路径的情况下被建到C:\Program 
    ' Files\RNAstructure 4.11中了。
    Open "test" For Output As #1
    Close
End Sub因为Chdir改变指定驱动器上的当前目录，所以你还需要改变当前驱动器才行。其实上面的Chdrive与Chdir这两条语句无论先执行哪条都可以的。
如果实现了你的要求，记得给分啊，300啊，我要冲"★"

Answer 7

发贴后又看到问是否可以改app.path, 不行的，这个值是动态取得的，就是说它永远返回程序所在的目录。

Answer 8

to songyaowu:
  谢谢，我成功了，我已经给你发消息了。
  谢谢各位呀！！！