Comprobar que existen varios archivos.

[TheKillerWantsYou]

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ódigo [Seleccionar] Expandir

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If My.Computer.FileSystem.FileExists("ejecutable.exe") Then
            MsgBox("¡Perfecto! El programa ha encontrado el archivo «ejecutable.exe». Pulse aceptar para continuar", MsgBoxStyle.Information)
            Formdeacciones.Show()
        Else
            MsgBox("No se ha encontrado el archivo principal. Asegúrese de que están dentro de la misma carpeta que el ejecutable principal.")
        End If
    End Sub


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

[Atrum]

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

Código (vbnet) [Seleccionar] Expandir



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

[TheKillerWantsYou]

Muchas gracias, era justo lo que andaba buscando. 

Saludos. ^^