1、

(1)取程序运行的绝对路径用 application.startuppath()

(2)CurDir是当前运行路径，但如果期间进行了打开文件或其它改变路径的操作后，　CurDir返回的可能就不是程序运行的路径了，所以不推荐使用。

(3)web方式: Server.MapPath()

2、让用户选择文件夹，取得文件夹所在的路径

Private Sub ButtonMSelect_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles ButtonMSelect.Click
' Dim openDialog As New OpenFileDialog
Dim ofd As New FolderBrowserDialog
If ofd.ShowDialog() = Windows.Forms.DialogResult.OK Then
Me.TextBoxMPath.Text = ofd.SelectedPath

Dim getDir() As String
getDir = IO.Directory.GetFiles(Me.TextBoxMPath.Text.ToString)
'得到路径下所有的文件的路径

End If

End Sub