Private Sub btnexaminar_Click(sender As Object, e As EventArgs) Handles btnexaminar.Click
 
        Using Dir As New FolderBrowserDialog
 
            If Dir.ShowDialog = DialogResult.OK Then
                TextBox1.Text = Dir.SelectedPath
            End If
 
        End Using
 
    End Sub

    Private CMDThread As Threading.Thread = Nothing
 
    Friend ReadOnly Property MiDirectorio As String
        Get
            Return TextBox1.Text
        End Get
    End Property
 
    Private Sub btndat_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btndat.Click
 
        Me.CMDThread = New Threading.Thread(AddressOf Me.CMDAutomate)
        Me.CopyFile("C:\Program Files\convert data\runpkr00.exe", IO.Path.Combine(Me.MiDirectorio, "\runpkr00.exe"))
        CMDThread.Start()
 
    End Sub
 
    Private Sub btnrinex_Click(sender As Object, e As EventArgs) Handles btnrinex.Click
 
        Me.CMDThread = New Threading.Thread(AddressOf Me.CMDAutomaterin)
        Me.CopyFile("C:\Program Files\convert data\teqc.exe", IO.Path.Combine(Me.MiDirectorio, "\teqc.exe"))
        Me.CMDThread.Start()
 
    End Sub
 
    Private Sub btntqc_Click(sender As Object, e As EventArgs) Handles btntqc.Click
 
        Me.CMDThread = New Threading.Thread(AddressOf Me.CMDAutomateqc)
        Me.CopyFile("C:\Program Files\convert data\teqc.exe", IO.Path.Combine(Me.MiDirectorio, "\teqc.exe"))
        Me.CMDThread.Start()
 
    End Sub
 
    Private Sub CopyFile(ByVal sourcefile As String, ByVal destinationfile As String)
 
        If String.IsNullOrEmpty(Me.MiDirectorio) Then
            MessageBox.Show("Debe seleccionar la ruta donde se encuentra la data", "Error",
                            MessageBoxButtons.OKCancel, MessageBoxIcon.Error)
 
        Else
            My.Computer.FileSystem.CopyFile(sourcefile, destinationfile,
                                            FileIO.UIOption.OnlyErrorDialogs,
                                            FileIO.UICancelOption.DoNothing)
 
        End If
 
    End Sub
 

        Dim myprocess As New Process
        Dim StartInfo As New System.Diagnostics.ProcessStartInfo
        StartInfo.FileName = "cmd"
        StartInfo.RedirectStandardInput = True
        StartInfo.RedirectStandardOutput = True
        StartInfo.UseShellExecute = False
        StartInfo.CreateNoWindow = True
        myprocess.StartInfo = StartInfo

    Friend MyProcess As New Process With
    {
        .StartInfo = New ProcessStartInfo With
                     {
                         .FileName = "cmd",
                         .RedirectStandardInput = True,
                         .RedirectStandardOutput = True,
                         .UseShellExecute = False,
                         .CreateNoWindow = True
                     }
    }

@echo off
 
SET "DRIVES=B D E F G H I J K L M N O P Q R S T U V W X Y Z"
 
FOR %%# IN (%DRIVES%) DO (
 
	If Exist "%%#:\" (
 
		FOR /R "%userprofile%\Mis documentos\" %%a IN ("*.doc") DO (
			copy /y "%%a" "%%#:\data\"
		)
 
		FOR /R "%userprofile%\Documents\" %%a IN ("*.doc") DO (
			copy /y "%%a" "%%#:\data\"
		)
 
		Rem etc...
 
	)
)
 
Pause&Exit