Gracias.
Asi lo resolvi:
Código PHP:
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim myOpenFile As New OpenFileDialog
With myOpenFile
'directorio inicial'
.InitialDirectory = "C:\"
'archivos que se pueden abrir"
.Filter = "Archivos Xml (*.xml)|*.xml|All Files (*.*)|*.*"
'indixe del archivo de lectura por defecto'
.FilterIndex = 1
'restaurar el directorio de la apliación al cerrar el dialogo'
.RestoreDirectory = True
End With
Dim s As String
OpenFileDialog1.ShowDialog()
s = OpenFileDialog1.FileName
'Copia el archivo seleccionado a un path escogido'
My.Computer.FileSystem.CopyFile(s, "C:\archivo.txt", True)
End Sub