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