CAMINHO DE ARQUIVOS/PASTAS

AMORIM 04/06/2017 10:47:35
#474308

Pessoal e o seguinte tenho esta função para pegar o caminho do arquivos ai tudo bem
no meu forme tem dois TextBox1 o TextBox2 recebe o caminho completo do arquivo e o textbox2 recebe o caminho da pasta
exemplo
[txt-color=#e80000]TextBox1.text =D:\SisVendasContas\db\Banco.mdb
TextBox2.text=D:\SisVendasContas\db[/txt-color]
Private Sub CarregaFotos()
On Error Resume Next
Dim openfile As New OpenFileDialog
openfile.Filter = [Ô]Imagem(*.mdb;*.accdb[Ô]
openfile.Title = [Ô]Selecione a Pasta e o Arquivos[Ô]
If openfile.ShowDialog = Windows.Forms.DialogResult.OK Then
txtCaminho.Text = openfile.FileName
FrmIncluirImagensPDV.ImgSalvar.Image = New System.Drawing.Bitmap(txtCaminho.Text)
strFotosPDV += openfile.SafeFileName
TextBox2.Text = FolderBrowserDialog1.SelectedPath
End If
End Sub