Función para obtener la ruta del archivo en VB

Importar sistema

Importar System.IO

Importar System.Threading

Importar System.Windows.Forms tbpath.Enabled = Verdadero

btndlg.Enabled = Verdadero

Else

tbpath.Enabled = Falso

btndlg.Enabled = Falso

End Sub

Private Sub rbchs_ CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Maneja rbchs.> End Sub

Private Sub run()

Si tbfileName.Text = "" Entonces

MsgBox("Ingrese el nombre del archivo")

btnOK.Enabled = True

btnSalir .Enabled = Verdadero