Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - evancio

Páginas: [1]
1
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.

2
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 ==========

3
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

4
Hola ogramar gracias por contestar hise la prueba con el nuevo codigo que me diste y esto me dio.

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

Saludos

5
Si gracias igual cualquier cosa aqui ando veré como poner el codigo bien que me dio orgramar y leere algunos tutoriales mas.


Saludos

6
No necesariamente en visual studio en cualquier otro que me pueda resultar el codigo sigue mal pero vere tmb lo del python haber que tal esta en si por el desarrollo este programa ya lo terminaria en visual studio ese codigo es lo unico que me falta todo lo demas ya lo tengo bien.

Gracias por tu apoyo

7
Hola mira ahora lo pongo asi que me lo de en un boton.
rutaPdf = "C:\Users\Oscar\Desktop\prueba"&i&".pdf"
rutaXml = "C:\Users\Oscar\Desktop\prueba"&i&".xml"

esto me marca:
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.
Tengo un pequeño problema al final de la ruta del pdf y xml me dice se esperaba el final de la instruccion saludos.



Código: [Seleccionar]
Dim rutaPdf As String
        Dim rutaXml As String


        For i = 1 To 300
            rutaPdf = "C:\Users\Oscar\Desktop\prueba"&i&".pdf"
            rutaXml = "C:\Users\Oscar\Desktop\prueba"&i&".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

8
Muchas gracias Ogramar

para los demas que contestaron tambien se agradece y si leo solo tengo una semana aun asi ninguno de tus 3 links que me diste principe azul me ayuda a resolver mi problema eso ya lo habia visto anterior mente desde google y hace poco empeze a usar visual basic , en mi trabajo quise hacer un programa que revisara que factura electronica faltaba de una carpeta determinada siguiendo su consecutivo, todos los dias estudio y leo si pregunto aqui es pq no encontre nada similar a lo que buscaba todos se basaban en ver si un solo archivo falta en determinada carpeta y yo buscaba una busqueda de muchos por consecutivo.

igual seguire estudiando todos los dias.

Saludos.

9
Bueno aparentemente nadie sabe como poder hacer ese codigo el que sepa me puede mandar un correo porfa ya que lo ven muy dificil estoy dispuesto a pagar.

bonelli.personal@gmail.com



Saludos.

11
hola gracias por responder en si no creo que sea viable en que me base en los pares de 1.pdf y 1 xml porque puede que ninguno de los 2 existan yo solo ocupo saber que archivos me faltan del 1 al 300  de la carpeta c:\\abrirl2014

ejemplo:
1.pdf
1.xml
2.pdf
2.pdf
4.pdf                                <<<<error faltan archivos 3.pdf y 3.xml
4.xml                                       
5.pdf                                     
6.pdf                            <<< error falta archivo 6.xml

En si no pense que fuera tan difícil para personas expertas en solo saber que codigo poner para hacer la respuesta lamentablemente yo no tengo tiempo de leer los 61 cursos y poder entender al 100% de como hacer soy principiante y si todos los dias estudio 1 curso pero aun nose como hacerlo.
Si de favor me podrian facilitar algun codigo se agradeceria.


12
hola gracias por esponder mira por ejemplo en una carpeta de 300 archivos

150 son pdf y 150 son xml

quiere decir ejemplo :


1.pdf
1.xml
2.pdf
2.xml
lo que necesito saber es que archivo me falta de esos 300 los 300 archivos estan empezando desde el 1 al 300. es una carpeta

ocupo que me ponga en una listbox1 o ya sea mensaje o textbox como sea posible el archivo que se brinco que es el que falta.

lenguaje de programacion visual basic en visual estudio 2012

Saludos

14
Hola saludos

mi problema es el siguiente quiero crear
un codigo que me diga presionando un boton vea que archivos del 1 al 1000
Hace falta y que me manda un mensaje diciendo archivo tal hace falta o que lo ponga en
Una listbox hasta ahorita no e tenido exito este es el codigo mas acertado que e podido encontrar

If File.Exists("\\192.168.1.113\facturacion\FAC_ELEC_EA_13\ABRIL2013\EA15416.xml") Then
            ListBox3.Items.Add("\\192.168.1.113\facturacion\FAC_ELEC_EA_13\ABRIL2013\EA15416.xml")
        Else
            MsgBox("EA15416.xml no existe", MsgBoxStyle.Information)
        End If



pero como son mas de 3000 archivos pues no tiene caso hacer esto 3000 veces espero me puedan ayudar uso visual studio 2012.


Estaré al pendiente ante cualquier duda que pudieran tener me urje mucho es para el trabajo.
Gracias


Páginas: [1]

Sobre la educación, sólo puedo decir que es el tema más importante en el que nosotros, como pueblo, debemos involucrarnos.

Abraham Lincoln (1808-1865) Presidente estadounidense.

aprenderaprogramar.com: Desde 2006 comprometidos con la didáctica y divulgación de la programación

Preguntas y respuestas

¿Cómo establecer o cambiar la imagen asociada (avatar) de usuario?
  1. Inicia sesión con tu nombre de usuario y contraseña.
  2. Pulsa en perfil --> perfil del foro
  3. Elige la imagen personalizada que quieras usar. Puedes escogerla de una galería de imágenes o subirla desde tu ordenador.
  4. En la parte final de la página pulsa el botón "cambiar perfil".