Buenas,como soy novato en esto solo pregunto,sorry...
En el trabajo hacemes archivos de imagen con ghost,y queremos que el PC tenga cargada todas las imagenes de todos los modelos de PC que hay en la empresa.
El problema es que hay tecnicos que no se aclaran con los menus de ghost para clonar, y queria hacer una aplicacion que clonara una imagen desde el disco primario local a un HDD secundario, dando unicamente a un boton o un radio buton
Abro un cuadro de dialogo consigo abrir el archivo,pero luego no se donde llevarlo ni como para que lo grabe en un disco esclavo,lo mismo para guardar,esto es lo que he conseguido de momento:
Public Class Form1
Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
' Declaro la variable
Dim abrirarchivo As New OpenFileDialog()
abrirarchivo.Filter = "Archivos de imagen(*.iso)|*.txt|Archivos ghost (*.ght)|*.ght|Todos los archivos (*.*)|*.*"
abrirarchivo.Title = "Seleccione archivo de imagen"
' Muestra el cuadro de dialogo
' Si "clickeamos" OK con un archivo selecionado
'
If abrirarchivo.ShowDialog() = DialogResult.OK Then
' De momento saltara msgbox
MsgBox("FUNCIONA PARA ABRIR EL ARCHIVO", MsgBoxStyle.Information)
End If
End Sub
Private Sub MenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem4.Click
Me.Close()
End Sub
Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
Dim guardararchivo As New SaveFileDialog
guardararchivo.Filter = "Archivos de imagen(*.iso)|*.txt|Archivos ghost (*.ght)|*.ght|Todos los archivos (*.*)|*.*"
guardararchivo.Title = "Guardararchivo archivo Seleccionado"
If guardararchivo.ShowDialog = Windows.Forms.DialogResult.OK Then
' De momento lo veremos guardado en la ruta y otro msgbox de confirmacion
MsgBox("EL ARCHIVO SE HA GUARDADO CON EXITO", MsgBoxStyle.Information)
End If
End Sub
Private Sub MenuItem9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem9.Click
MsgBox("Clonatron version 1.0 ", MsgBoxStyle.Information)
End Sub
Private Sub MenuItem10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem10.Click
MsgBox("Pongase en contacto con XXXXX ,para cualquier duda", MsgBoxStyle.Information)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
