Получение физического пути файла в каталоге проекта

Question

Я использую Environment.CurrentDirectory, чтобы получить текущий каталог, то есть «D: \ Chuttu \ Проекты \ ЛИК \ Bin \ Debug»

Но я хочу, чтобы удалить " \ bin \ Debug "

Как я могу это сделать? Или есть способ, чтобы я мог получить каталог до «LIC»?

На самом деле это моя строка соединения:

Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\LIC.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True 

Но когда я использую это и попытаться вставить данные в БД, данные не вставлены. Когда я использую строку соединения с физическим путем он начинает работать:

Data Source=.\SQLEXPRESS;AttachDbFilename=D:\Chuttu VB\Projects\LIC\LIC.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True 

Я пытаюсь получить физический путь к файлу mdf и использовать его в строке подключения.

---

EDIT:

Этот кусок кода работает отлично:

Private Sub save() 
     Dim con As New SqlClient.SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=D:\Chuttu VB\Projects\LIC\LIC.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True") 

     Dim sql As New SqlClient.SqlCommand("INSERT INTO ProposerDetails " & _ 
              "VALUES (" & Convert.ToInt32(PolicyNumberTextBox.Text) & ",'" & NameTextBox.Text & "','" & AgeTextBox.Text & "','" & PhoneTextBox.Text & "','" & AddressTextBox.Text & "','" _ 
              & NomineeTextBox.Text & "','" & NomineeRelationTextBox.Text & "'," & PlanID() & ",'" & PolicyTermTextBox.Text & "','" & PremiumAmountTextBox.Text & "','" _ 
              & PremiumTypeComboBox.Text & "','" & SumProposedTextBox.Text & "','Date')", con) 

     MsgBox(sql.CommandText) 
     con.Open() 

     MsgBox(con.State.ToString) 
     Dim i As Integer = sql.ExecuteNonQuery 
     MsgBox(i.ToString) 
     con.Close() 
     sql.Dispose() 
     con.Dispose() 
     ToolStripStatusLabelMessage.Text = "Saved" 
    End Sub 

Как только я изменить строку подключения к строке соединения с app.config это перестает работать (добавление данных DB):

Private Sub save() 
     Dim con As New SqlClient.SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\LIC.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True") 

     Dim sql As New SqlClient.SqlCommand("INSERT INTO ProposerDetails " & _ 
              "VALUES (" & Convert.ToInt32(PolicyNumberTextBox.Text) & ",'" & NameTextBox.Text & "','" & AgeTextBox.Text & "','" & PhoneTextBox.Text & "','" & AddressTextBox.Text & "','" _ 
              & NomineeTextBox.Text & "','" & NomineeRelationTextBox.Text & "'," & PlanID() & ",'" & PolicyTermTextBox.Text & "','" & PremiumAmountTextBox.Text & "','" _ 
              & PremiumTypeComboBox.Text & "','" & SumProposedTextBox.Text & "','Date')", con) 

     MsgBox(sql.CommandText) 
     con.Open() 

     MsgBox(con.State.ToString) 
     Dim i As Integer = sql.ExecuteNonQuery 
     MsgBox(i.ToString) 
     con.Close() 
     sql.Dispose() 
     con.Dispose() 
     ToolStripStatusLabelMessage.Text = "Saved" 
    End Sub 

ПРИМЕЧАНИЕ. У меня нет ошибок.

Answer 1

Вы можете попробовать:

string dataDirectory = AppDomain.CurrentDomain.BaseDirectory; 

Ссылка:

• BaseDirectory on MSDN

Answer 2

Перейти к свойствам на файл MDF в Visual Studio (если у вас есть она добавила как часть проект). Установите «Копировать в каталог вывода» на «Копировать, если новый». См. http://msdn.microsoft.com/en-us/library/0c6xyb66.aspx для получения дополнительной информации.

EDIT: просто чтобы уточнить, что это не получает ваш базовый каталог, он просто гарантирует, что ваша база данных окажется в папке с вашим исполняемым файлом, поэтому будут действовать относительные пути.

Answer 3

Вы уверены, что хотите, чтобы ваш окончательный исполняемый файл перемещался по двум каталогам, чтобы найти свою базу данных? Кроме того, для более поздних версий Windows требуются административные права для написания вашей собственной папки приложений в каталоге c: \ Program Files. По-видимому, они хотят, чтобы вы хранили вещи в c: \ ProgramData или так.

Answer 4

У вас нет проблемы с вашей строкой соединения. Проблема в том, что каждый раз, когда вы запускаете приложение, оно использует новую копию вашего mdf, которая включена в ваш проект. Посмотрите на this blog post о проблеме.

Answer 5

Это ответ на ваш вопрос о текущем пути или каталоге вашего проекта.Вы можете использовать REPLACE функцию, чтобы удалить «\ Bin \ Debug \» часть, как это:

Dim path As String path = My.Application.Info.DirectoryPath Dim path1 As String = path.Replace("\bin\Debug", "\")