Dim fs As New FileSystemObject
servidorAct = GetSetting("Punto de Venta", "Settings", "SERV_ACT", "") ' Obtengo el nombre del servidor
Screen.MousePointer = vbHourglass
'Se crea la carpeta de Punto de Venta - Para que haya donde copiar los archivos
If Dir("C:\Punto de Venta\", vbDirectory) = "" Then MkDir "C:\Punto de Venta\"
'Se copian los archivos necesarios de reportes en las ubicacciones correspondientes - copio todos los archivos
Call fs.CopyFile("\\" & servidorAct & "\Punto de Venta\reportes\*.rpt", "C:\Punto de Venta\reportes\")
'Se copia el ejecutable del punto de venta.
FileCopy "\\" & servidorAct & "\Punto de Venta\Punto de Venta.EXE", "C:\Punto de Venta\Punto de Venta.EXE"
Screen.MousePointer = vbDefault
MsgBox "El proceso ha finalizado satisfactoriamente"