Buenas, siento ser tan pesado,os recuerdo que queria hacer para el trabajo un copiador de imagenes.tenemos en el curro varios equipos y hay gente que con ghost no se apaña....
He pensado en este codigo viendo codigo por internet:
Imports System.IO
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'DECLARO VARIABLES(0)
Dim master0 As String
Dim optiplex2400 As String
'DOY VALOR A LAS VARIABLES(0)
master0 = "z:\Archivos de programa"
optiplex2400 = "l:\Archivos de programa"
'LE DIGO LO QUE QUIERO QUE HAGA CON MIS VARIABLES ,(MASTER=ORIGEN,OPTIPLEX240=DESTINO)(0)
My.Computer.FileSystem.CopyDirectory(master0, optiplex2400)
'DECLARO VARIABLES(1)
Dim master1 As String
Dim optiplex2401 As String
'DOY VALOR A LAS VARIABLES(1)
master1 = "z:\DELL"
optiplex2401 = "l:\DELL"
'LE DIGO LO QUE QUIERO QUE HAGA CON MIS VARIABLES ,(MASTER0=ORIGEN,OPTIPLEX2400=DESTINO)(1)
My.Computer.FileSystem.CopyDirectory(master1, optiplex2401)
'DECLARO VARIABLES(2)
Dim master2 As String
Dim optiplex2402 As String
'DOY VALOR A LAS VARIABLES(1)
master2 = "z:\Documents and Settings"
optiplex2402 = "l:\Documents and Settings"
'LE DIGO LO QUE QUIERO QUE HAGA CON MIS VARIABLES ,(MASTER0=ORIGEN,OPTIPLEX2400=DESTINO)(2)
My.Computer.FileSystem.CopyDirectory(master2, optiplex2402)
'DECLARO VARIABLES(3)
Dim master3 As String
Dim optiplex2403 As String
'DOY VALOR A LAS VARIABLES(3)
master3 = "z:\WINDOWS"
optiplex2403 = "l:\WINDOWS"
'LE DIGO LO QUE QUIERO QUE HAGA CON MIS VARIABLES ,(MASTER0=ORIGEN,OPTIPLEX2400=DESTINO)(3)
My.Computer.FileSystem.CopyDirectory(master3, optiplex2403)
------------------------------------------------------------------------------------------------------
Ahora de momento parece funcionar,pero el problema es que cuando termine me gustaria lanzar un msgbox cuando se terminaran de copiar los cuatro directorios,alguien con una idea?
Gracias de antemano