Ayuda con código de programa que según le ejecutes..

[intersof]

Necesito un código de programa que por ejemplo según le ejecutes guarde todas las imagenes de tu pc(que busque y guarde todas la de todos los discos duros) en una carpeta en la q puedas modificar su destino....Saludos y muchisimas gracias gracias

[David]

Justo un mensaje arriba del tuyo hay un tema sobre buscar archivos:
http://www.forosdelweb.com/f69/busca...vos-vb-616400/

Puede que te sea de utilidad para buscar los archivos de imágenes que tengas en tu disco, después, lo único que tienes que hacer es con FileCopy copiar los archivos a la carpeta que desees.

P.S.: ¿Cuál sería la utilidad de eso?. Porque dependiendo del tamaño del disco se va a tardar una eternidad .

[moradazo]

Con este codigo puedes recorrer tu disco duro para que seleccione todos los jpg

Código PHP:

  Try 
            For Each archivo In _ 
            My.Computer.FileSystem.GetFiles("C:\",FileIO.SearchOption.SearchAllSubDirectories, "*jpg*") 
            Next 
        Catch oe As Exception 
            MsgBox(oe.Message, MsgBoxStyle.Critical) 
        End Try  
   

Código PHP:

  CopyFile(Archivo, "C:\Temp\", False)  
   

Y para modificar su destino puedes usar un archivo de texto como parametro, como lo aprendi aca en este foro:

Código PHP:

  'Llamamos a la funcion getprivateprofilesection para traer informacion de un archivo 
<Runtime.InteropServices.DllImport("kernel32.dll", SetLastError:=True)> _ 
    Private Shared Function GetPrivateProfileSection(ByVal lpAppName As String, _ 
                                                        ByVal lpReturnedString As IntPtr, _ 
                                                        ByVal nSize As Integer, _ 
                                                        ByVal lpFileName As String) As Short 
    End Function 
     
' Hacemos un boton para llamar a la ruta de la carpeta 
 
    Private Sub BTparametro_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTparametro.Click 
        'creamos la cadena de caracteres 
        Dim sb As New System.Text.StringBuilder(255) 
        ' asignamos la memoria al puntero 
        Dim ip As IntPtr = Runtime.InteropServices.Marshal.AllocHGlobal(255) 
        Try 
Llamamos a Temp.ini que contiene la ruta de nuestra carpeta. 
            Dim bt As Byte = GetPrivateProfileSection("Ruta", ip, 255, "C:\Temp.ini") 
 
          For Each line As String In sb2.ToString().Split(Convert.ToChar(0)) 
            cadena = line 
        Next 
        Dim FILE_NAME As String = cadena  
   

Espero te pueda servir

[intersof]

ok muchas gracias

[intersof]

una cosilla Moradazo, como lo pongo en un mismo codigo del programa? esque al darme 3 codigos distintos y al ser novato de vb(llevo 1 mes) no lo entiendo muy bien.saludos