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:
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
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. ^^