elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Introducción a Git (Primera Parte)


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP) (Moderador: kub0x)
| | | |-+  Comprobar que existen varios archivos.
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Comprobar que existen varios archivos.  (Leído 2,095 veces)
TheKillerWantsYou

Desconectado Desconectado

Mensajes: 48


MsgBox("¡Es una fieschhhta!")


Ver Perfil WWW
Comprobar que existen varios archivos.
« en: 15 Septiembre 2009, 16:27 pm »

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


En línea






Atrum

Desconectado Desconectado

Mensajes: 65



Ver Perfil WWW
Re: Comprobar que existen varios archivos.
« Respuesta #1 en: 15 Septiembre 2009, 17:09 pm »

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

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

Espero te sirva compañero


En línea

TheKillerWantsYou

Desconectado Desconectado

Mensajes: 48


MsgBox("¡Es una fieschhhta!")


Ver Perfil WWW
Re: Comprobar que existen varios archivos.
« Respuesta #2 en: 15 Septiembre 2009, 17:56 pm »

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

Saludos. ^^
En línea






Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines