Environment.CurrentDirectory 是什么意思 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → Environment.CurrentDirectory 是什么意思

共有2272人关注过本帖树形打印复制链接主题：Environment.CurrentDirectory 是什么意思

lzzhx

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：995 积分：6712 威望：0 精华：0 注册：2015/1/12 22:12:00

Environment.CurrentDirectory 是什么意思 发帖心情

Post By：2016/3/9 14:34:00 [只看该作者]

请教：

Environment.CurrentDirectory 是什么意思

大红袍

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/3/9 14:49:00 [只看该作者]

当前的程序所在的文件夹路径。类似projectPath

客人(61.178.*.*)

小大 3楼

Post By：2016/3/9 17:07:00 [只看该作者]

我在BeforeOpenProject事件中有下面一句代码

'----------从MyConfig.ini配置文件中读取数据库相关信息------------------------------------------------

Dim MyConfig As new INIClass(Environment.CurrentDirectory & "\MyConfig.ini")

在开发环境下运行一切正常，发布时将文件MyConfig.ini作为附件添加进去，发布后文件MyConfig.ini位于项目文件夹\ Publish\project中，程序找不到文件，不能正常运行，需手工将文件MyConfig.ini移到项目文件夹\ Publish下才能正常运行，请问有什么办法，不然每次发布后都要手工移文件。

lzzhx

小大 4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：995 积分：6712 威望：0 精华：0 注册：2015/1/12 22:12:00

Post By：2016/3/9 17:32:00 [只看该作者]

怎么突然变成客人了

我在BeforeOpenProject事件中有下面一句代码

'----------从MyConfig.ini配置文件中读取数据库相关信息------------------------------------------------

Dim MyConfig As new INIClass(Environment.CurrentDirectory & "\MyConfig.ini")

大红袍

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/3/9 17:38:00 [只看该作者]

先判断是否存在文件，再使用

Dim f As String = Environment.CurrentDirectory & "\MyConfig.ini"
If FileSys.FileExists(f)= False Then
    f = Environment.CurrentDirectory & "project\MyConfig.ini"
End If
If filesys.FileExists(f) Then
    Dim MyConfig As new INIClass(f)

Else
    msgbox("文件不存在")
End If

下一主题 >> << 上一主题

主题：Environment.CurrentDirectory 是什么意思