Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click Dim folderBrowserDialog As New FolderBrowserDialog() myPath = Environment.SpecialFolder.MyComputer Me.FileLocationsTableAdapter1.Fill(Me.KickaboutEmailDataSet1.FileLocations) For Each Dr As DataRow In KickaboutEmailDataSet1.FileLocations.Rows myPath = Dr.Item(1).ToString Next folderBrowserDialog.Description = "Select Folder Where Despatch Schedule File is Stored" folderBrowserDialog.RootFolder = myPath folderBrowserDialog.ShowNewFolderButton = True If folderBrowserDialog.ShowDialog() = Windows.Forms.DialogResult.OK Then myPath = folderBrowserDialog.SelectedPath Else Exit Sub End If >>> Now I need to update the Database with the new Path <<< End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)