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