189 8069 5689
如果一名开发者希望在代码中使用相对路径而非绝对路径 那么设定当前工作路径的能力迟早会派上用场 在本教程中 我说明如何用 VB NET 设定当前工作路径
创新互联建站专注于企业全网营销推广、网站重做改版、阳明网站定制设计、自适应品牌网站建设、成都h5网站建设、电子商务商城网站建设、集团公司官网建设、外贸营销网站建设、高端网站制作、响应式网页设计等建站业务，价格优惠性价比高，为阳明等各大城市提供网站开发制作服务。
在代码中 由于相对路径可以简化代码 它一般成为我们的首选路径 但是 解释相对与当前工作目录有关 因此 将当前工作目录修改到一个需要的位置允许开发者在代码中使用相对路径
为了确定当前工作路径 我使用 Directory 对象的 GetCurrentDirectory 方法 同时 为修改当前工作路径 我应用 Directory 对象的 SetCurrentDirectory 方法 此外 您可以利用 Path 对象的 GetFullPath 方法 它允许您把使用当前工作路径的一个相对路径转换成绝对路径
实例
在表格中增加一个列表框（ listbox ）控件 listbox 并在 列表 A 中添加代码 运行代码时 结果 如图 所示
在此例中 我首先显示一个当前工作目录（利用 Directory 类的 GetCurrentDirectory 方法） 然后我用 GetFullPath 方法向它提交一个文件名（在本例中为 text txt ） 这两个行为的结果被逐条添加到列表框 Listbox 中
lishixinzhi/Article/program/net/201311/12881
1、如果你的窗体就是你当前工程这个EXE本身的窗体，
那么窗体所在的路径就是工程的启动路径，用下面的语句获取：
AppPath=Application.StartupPath
2、如果你的窗体是你自己LoadLibrary的某个DLL的窗体，那么你既然能LoadLibrary，就应该知道它的路径，所以不用问了。
获取方法，参考实例如下：
'获取路径名各部分: 如： c:\dir1001\aaa.txt
'获取路径路径 c:\dir1001\
Public Function GetFileName(FilePathFileName As String) As String '获取文件名 aaa.txt
On Error Resume Next
Dim i As Integer, J As Integer
i Len(FilePathFileName)
J InStrRev(FilePathFileName, "\")
GetFileName Mid(FilePathFileName, J + 1, i)
End Function
''获取路径路径 c:\dir1001\
Public Function GetFilePath(FilePathFileName As String) As String '获取路径路径 c:\dir1001\
On Error Resume Next
Dim J As Integer
J InStrRev(FilePathFileName, "\")
GetFilePath Mid(FilePathFileName, 1, J)
End Function
'获取文件名但不包括扩展名 aaa
Public Function GetFileNameNoExt(FilePathFileName As String) As String '获取文件名但不包括扩展名 aaa
On Error Resume Next
Dim i As Integer, J As Integer, k As Integer
i Len(FilePathFileName)
J InStrRev(FilePathFileName, "\")
k InStrRev(FilePathFileName, ".")
If k 0 Then
GetFileNameNoExt Mid(FilePathFileName, J + 1, i - J)
Else
GetFileNameNoExt Mid(FilePathFileName, J + 1, k - J - 1)
End If
End Function
'＝＝＝＝＝ '获取扩展名 .txt
Public Function GetFileExtName(FilePathFileName As String) As String '获取扩展名 .txt
On Error Resume Next
Dim i As Integer, J As Integer
i Len(FilePathFileName)
J InStrRev(FilePathFileName, ".")
If J 0 Then
GetFileExtName ".txt"
Else
GetFileExtName Mid(FilePathFileName, J, i)
End If
End Function