Como saber que archivos existen Computer.FileSystem.FileExists Visual Basic

[Príncipe_Azul]

Hola evancio, por favor, ¿podrías pegar aquí tu código como lo tienes actuamente?

Gracias.

[evancio]

Hola principe saludos este el codigo con la ultima modificacion de ogramar

Código: [Seleccionar]

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim rutaPdf As String
        Dim rutaXml As String


        For i = 1 To 300
            rutaPdf = "C:\Users\Oscar\Desktop\prueba"&i.ToString&".pdf"
            rutaXml = "C:\Users\Oscar\Desktop\prueba"&i.ToString&".xml"

            If My.Computer.FileSystem.FileExists(rutaPdf) Then
                MsgBox("Existe el pdf " & i)
            Else
                MsgBox("No existe el pdf " & i)
            End If

            If My.Computer.FileSystem.FileExists(rutaXml) Then
                MsgBox("Existe el xml " & i)
            Else
                MsgBox("No existe el xml " & i)
            End If

        Next i
End Sub

[Ogramar]

Estoy recordando que en algunas ocasiones he tenido problemas porque algunas letras no se pueden usar como variables en VB.NET por estar reservadas (por ejemplo la letra e)

Inténtalo cambiando la i por index

Dim index As Integer

For index = 1 To 300
...
Next index

Cambia todas las referencias a i por index, habiendo declarado index como Integer, quizás con eso te funcione.

Salu2

[evancio]

Hola gracias por contestar ogramar mira le puse asi

Código: [Seleccionar]

Dim rutaPdf As String
        Dim rutaXml As String
        Dim index As Integer


        For index = 1 To 300
             rutaPdf = "C:\Users\Oscar\Desktop\prueba"&index&".pdf"
             rutaXml = "C:\Users\Oscar\Desktop\prueba"&index&".xml"

            If My.Computer.FileSystem.FileExists(rutaPdf) Then
                MsgBox("Existe el pdf " & index)
            Else
                MsgBox("No existe el pdf " & index)
            End If

            If My.Computer.FileSystem.FileExists(rutaXml) Then
                MsgBox("Existe el xml " & index)
            Else
                MsgBox("No existe el xml " & index)
            End If

        Next index
End Sub
Me salen estos errores saludos.

------ Operación Compilar iniciada: proyecto: prbuscararchivos, configuración: Debug Any CPU ------
C:\Users\Oscar\Desktop\prbuscararchivos\prbuscararchivos\Pantalla Principal.vb(134) : error BC30277: El carácter de tipo '&' no coincide con el tipo de datos 'Integer' declarado.
C:\Users\Oscar\Desktop\prbuscararchivos\prbuscararchivos\Pantalla Principal.vb(134) : error BC30205: Se esperaba el fin de instrucción.
C:\Users\Oscar\Desktop\prbuscararchivos\prbuscararchivos\Pantalla Principal.vb(135) : error BC30277: El carácter de tipo '&' no coincide con el tipo de datos 'Integer' declarado.
C:\Users\Oscar\Desktop\prbuscararchivos\prbuscararchivos\Pantalla Principal.vb(135) : error BC30205: Se esperaba el fin de instrucción.
========== Compilar: 0 correctos, 1 incorrectos, 0 actualizados, 0 omitidos ==========

[Ogramar]

Hola, prueba a dejar espacio entre los & y a incluir el toString, parece que el error que esté saltando se deba solo a un detalle, lo que hay que encontrar es cuál es el detalle 

Código: [Seleccionar]

Dim rutaPdf As String
        Dim rutaXml As String
        Dim index As Integer


        For index = 1 To 300
             rutaPdf = "C:\Users\Oscar\Desktop\prueba" & index.toString & ".pdf"
             rutaXml = "C:\Users\Oscar\Desktop\prueba" & index.toString & ".xml"

            If My.Computer.FileSystem.FileExists(rutaPdf) Then
                MsgBox("Existe el pdf " & index)
            Else
                MsgBox("No existe el pdf " & index)
            End If

            If My.Computer.FileSystem.FileExists(rutaXml) Then
                MsgBox("Existe el xml " & index)
            Else
                MsgBox("No existe el xml " & index)
            End If

        Next index
End Sub


[evancio]

Hola Ogramar ,

Listo si sirvio ya busca del 1 al 300 y me dice cual existe y cual no.
le agregue el EA para que busque todo lo que empieze sin errores.

rutaPdf = "\\192.168.1.113\facturacion\FAC_ELEC_EA_13\ABRIL2013\EA" & index.ToString & ".pdf"


Saludosy gracias.

[Ogramar]

¡Me alegro que al final te haya salido! Salu2