Duda excepción TRY CATCH

[winexim]

Solo le hice unos ajustes a tu programa a si quedaria a mi me funciono
Solo te faltaria validar cuando el mismo nombre de archivo mul se encuentre en varios directorios para ver cual es el mas actualizado o que remplaze el anterior o que no haga nada
no especificaste por eso no lo puse


Saludos
fer.

Module Module1
Dim dir As String
Dim origen1() As String
Dim origentemp As String

Private Sub Mueve(ByVal Fuente As String, ByVal destino As String)
Try
My.Computer.FileSystem.MoveFile(Fuente, destino)
Catch ex As Exception
Console.WriteLine(Err.Description)
Console.WriteLine("--------------------------------------------------------------")

End Try
End Sub

Private Function Archivo_Nuevo(ByVal S As String) As String
Dim M1 As String
Dim I As Integer
Dim Found As Boolean
M1 = ""

Found = False
I = Len(S)
While I > 1 And Not Found
If Mid(S, I, 1) = "\" Then
Found = True
Else
M1 = Mid(S, I, 1) & M1
End If
I = I - 1
End While
Archivo_Nuevo = M1
End Function


Sub Main()
Dim ruta_origen As String
Dim ruta_destino As String
Dim ArchivoOriginal As String
Dim ArchivoACopiar As String
Dim ArchivoDestino As String
Console.WriteLine("Introduzca ruta del directorio del que se desea hacer la búsqueda (*.mul):")
Console.Write("# ")
ruta_origen = Console.ReadLine()
Console.WriteLine("Introduzca ruta del directorio que se creará para copiar los datos:")
Console.Write("# ")
ruta_destino = Console.ReadLine()
If Mid(ruta_destino, Len(ruta_destino), 1) = "\" Then
ArchivoACopiar = ruta_destino
Else
ArchivoACopiar = ruta_destino & "\"
End If
For Each foundFile As String In My.Computer.FileSystem.GetFiles(ruta_origen, FileIO.SearchOption.SearchAllSubDirectories, "*.mul")
ArchivoOriginal = foundFile.ToString
ArchivoDestino = Archivo_Nuevo(ArchivoOriginal)
Console.WriteLine("[" & ArchivoDestino & "]")
If Trim(ArchivoDestino) <> "" Then
Console.WriteLine("Moviento a [" & ArchivoACopiar & "] el archivo [" & ArchivoOriginal & "]")
Mueve(ArchivoOriginal, ArchivoACopiar & ArchivoDestino)
Else
' en teoria nunca entra aqui
Console.WriteLine("no se movio [" & ArchivoOriginal & "]")
End If
Next
Console.WriteLine("termine ")
Console.ReadKey()
End Sub