189 8069 5689
保存路径是当前可执行程序所在的文件夹。比如exe在d:\work\c\test\demo.exe,哪么文件默认保存到d:\work\c\test，利用VB文件夹列表框控件设置文件夹路径的方法：
创新互联公司主要从事成都做网站、网站设计、网页设计、企业做网站、公司建网站等业务。立足成都服务沙湾,10年网站建设经验,价格优惠、服务专业,欢迎来电咨询建站服务:028-86922220
1、新建一个标准工程。
2、单击工具箱中的“文件列表框”控件，在窗体上拖一个出来。
3、单击已经拖好的文件列表框，在弹出的代码编辑区中键入如下代码：Dir1.Path="E:\2003\WXPE"，即就是要求显示E盘下的2003文件夹中的WXPE文件。
4、退出代码编辑窗口，单击菜单上三角执行按钮，运行该程序。
5、这时会便会发现之前的文件夹路径已经改变到刚才设置的E:\2003\WXPE的上来了。
Dim my_path() As String = System.IO.Directory.GetFiles("d:\", "文件名", IO.SearchOption.AllDirectories)
因为有可能在多个地方，所以进行了全盘搜索，歌曲的所有地址路径在数组my_path中
获取方法，参考实例如下：
'获取路径名各部分: 如： 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
命名空间:System.Windows.Forms
Application.StartupPath 属性(返回String)
获取启动了应用程序的可执行文件的路径，不包括可执行文件的名称。
Application.ExecutablePath 属性(返回String)
获取启动了应用程序的可执行文件的路径，包括可执行文件的名称。