Foro de elhacker.net

Buenas.
Bueno, estoy haciendo un programa que, para poder ejecutarse correctamente, necesita comprobar que existen dos archivos. Pues bien, a base de prueba y error, descubrí como hacer que comprobase un archivo, con el siguiente código:


¿Cómo podría hacer para que comprobase dos o más archivos? Gracias

Pues declaras los nombres de los archivos en un arreglo y despues usas un for each, mas o menos asi:

 
Dim Files As String() = _
    {"file1.exe", "file2.exe", "file3.exe"} 
' los nombres de los archivos declarados globales por si vas a usar los nombres en otra parte del codigo 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        For Each file In Files
            If My.Computer.FileSystem.FileExists(file) Then
                MsgBox("Perfecto! El programa ha encontrado el archivo " & file & ". Pulse aceptar para continuar", MsgBoxStyle.Information)
                'Formdeacciones.Show()
            Else
                MsgBox("No se ha encontrado el archivo" & file & ". Asegurese de que estan dentro de la misma carpeta que el ejecutable principal.")
            End If
        Next
 

Espero te sirva compañero

Muchas gracias, era justo lo que andaba buscando.  ;D

Saludos. ^^