Windows 窗体应用程序 vb.Net 中 xls 文件的相对路径

Question

enter image description here I am new to VB.Net and I am stuck in using the relative path for a xls file in vb.Net. I tried using resource file method but in vain. Can somebody please help me.

I have a VB.NET Windows Form application for which I am using an Excel file as my DB. In my local system I can access that file by giving the full path. But if I have to run it on another system I need a relative path to the excel file.

How can I access an Excel file by giving its relative path in my VB.NET application?

Answer 1

I would recommend using the following method, use Combine which will add the directory separator for you and AppDomain.CurrentDomain.BaseDirectory instead of Application.StartUpPath because it is not available when moving code to a class project. Of course the code sample below assumes the file is in the app folder, if in another location let us know.

Dim fileName As String = IO.Path.Combine(AppDomain.CurrentDomain.BaseDirectory, "MyFileName.xls")
If IO.File.Exists(fileName) Then
    ' do work
End If

Example

Dim Builder As New OleDbConnectionStringBuilder
Builder.Provider = "Microsoft.Jet.OLEDB.4.0"
Builder.Add("Extended Properties", "Excel 8.0;IMEX=1;HDR=Yes;")
Builder.DataSource = IO.Path.Combine(AppDomain.CurrentDomain.BaseDirectory, "Explanaation_notes.xls")
Dim con As New OleDbConnection(Builder.ConnectionString)

Here is a modified example to go with your last question for "Files" folder

Dim fileName As String = IO.Path.Combine(AppDomain.CurrentDomain.BaseDirectory, "Files", "Explanaation_notes.xls")
If IO.File.Exists(fileName) Then
    Dim Builder As New OleDbConnectionStringBuilder
    Builder.Provider = "Microsoft.Jet.OLEDB.4.0"
    Builder.Add("Extended Properties", "Excel 8.0;IMEX=1;HDR=Yes;")
    Builder.DataSource = fileName
    Dim con As New OleDbConnection(Builder.ConnectionString)
End If