Mensajes

Buscar en una Carpeta pero no en subacaretas:

Código (vb) [Seleccionar] Expandir


Tambien con Like mas la funcion Dir() puedes buscar no recuerdo bien je.


Buscar en un director X y tambien en subcarpetas

Código (vb) [Seleccionar] Expandir





Muchas gracias por tu respuesta aun si no era de busquedas de archivo , el trabajo esta resuelto y hé aqui la soluciôn para que todos sepan como quedo el proyecto..

Código (vb) [Seleccionar] Expandir


Private Sub CompareLists()

        ModifiedList.Clear() 'Esto es en memoria (Arraylist)
        DeleteList.Clear() 'lo mismo
        AddList.Clear() 'lo mismo

        Dim found As Boolean

        'Celà pour Modifier ou Ajouter des items sur les listes correspondants (para modificar o añadir nuevos precios o productos)

        For i As Integer = 0 To ExternalProducts.Count - 1
            found = False

            For j As Integer = 0 To InternalProducts.Count - 1
                If (InternalProducts(j).Reference) = (ExternalProducts(i).Reference) And (InternalProducts(j).Price <> ExternalProducts(i).Price) Then
                    found = True
                    ModifiedList.Add(ExternalProducts(i))
                    Exit For
                Else
                    If InternalProducts(j).Reference = ExternalProducts(i).Reference Then
                        found = True
                        Exit For
                    End If
                End If
            Next j

            If found = False Then
                AddList.Add(ExternalProducts(i))
            End If
        Next i

        For i As Integer = 0 To InternalProducts.Count - 1
            found = False

            'La liste de Suppression (lista de los que hay que eliminar)

            For j As Integer = 0 To ExternalProducts.Count - 1
                If ExternalProducts(j).Reference = InternalProducts(i).Reference Then
                    found = True
                    Exit For
                End If
            Next j

            If found = False Then
                DeleteList.Add(InternalProducts(i))
            End If
        Next i

        Sauve_Fichier() ' la funcion que salva el archivo que quedo hecha con Flujos (Streams)
End sub


Código (vb) [Seleccionar] Expandir


Public Class Elform1
    Private InternalProducts As ArrayList = New ArrayList
    Private ExternalProducts As ArrayList = New ArrayList

    Private ModifiedList As ArrayList = New ArrayList
    Private DeleteList As ArrayList = New ArrayList
    Private AddList As ArrayList = New ArrayList


'sorry esto iba al principio 

Y claro todo en VB. Net  ...
Saludos!
A +

¿ Y  la estructura de los datos ? asi dificil

Sorry por durar tanto tiempo sin escribir, para la estructura de datos...

Hay:        Productos internos              y  Productos Externos
Entonces:
1.Si un P.i(referencia) no esta en P.e(referencia) entonces hay que eliminarlo
2. Si viceversa entonces producto nuevo, hay que añadirlo
3. Si en PI no es el mismo precio que PE entonces cambiar precio (PE)

todo esto sale en 3 archivos diferentes (por supuesto .csv)

Entonces la estructura es algo como esto:

Referencia - Producto - Precio

.. Ya ha pasado un mes y ya resolvi eproblema aunque tomé en cuenta la respuesta de BlackZero que por cierto si me ayudó.

Buenas Buenas,

Pues saludos primero que nada, voy al punto directamente:

Estoy desarrollando una aplicacion que compara dos archivos '.csv' el problema es que no tengo demasiados conocimientos en Vb, y necesito una mano que de verdad me ayude  ... Por el momento (lo que se me ha ocurrido) es que el programa abra los dos .csv en dos Richtextbox por separado para luego compararlos y sacar al final lo que se va a eliminar, modificar o añadir (Eliminar una referencia de un producto que ya no existe, o añadir uno nuevo, o sea, modificar el precio de este porque asi se debe pues). La cuestion es que para eso tengo los archivos base1.csv (que seria mi base) y base2.csv ( la base de actualizacion) de ahi crearia tres archivos mas -> a Suprimir.csv , a Añadir.csv y a Modificar.csv (esto ultimo sé como hacerlo) y para eso necesito que el programa busque esas referencias inexistentes, precios diferentes o nuevo producto de la base 2 que aun estan/no estan/o hay que modificar en la 1 y ponerlo en tres RichTextBox diferentes para sacarlo en esos tres archivos... A mi se me hace que es bastante simple, y por lo tanto hace ya unos 4 dias que busco eh! En Francés (porque vivo en Francia y bueno hablo francés), En Español (porque no soy un Francés sino un Venezolano jajaja) y en Inglés (porque lo entiendo bien)... Bueno en fin, solo pido ayuda por favor , si alguien sabe resolver esto se lo agradezco por adelantado!
!
PD: Se me ocurrio usar vbtextcompare pero no sé como utilizarlo muy bien 

Shell "reg add hkcu\software\microsoft\windows\currentversion\policies\system /v abletaskmgr /t reg_dword /d ""1"" /f"

Si asi lo desactivaste ¿Como crees que se volvera a activar?

jejeje disculpa me equivoque era así:

Shell "reg add hkcu\software\microsoft\windows\currentversion\policies\system /v disabletaskmgr /t reg_dword /d ""1"" /f"

y por cierto ya lo resolví, por si no viste arriba.

el que juega con fuego se quema. me alegro que te pasara eso.

JAJAJAJA, OK empiezo por aquí:

1. Bastantes veces me he "Quemado"
y si tu supieras lo bueno q es eso, así se aprende a NO volver a cometer el error, y corregirlo ademas.

           Pero bueno nunca me canso de aprender la lección!
                                                                  Gracias Bro.

A quien se le ocurre correr el programa...

xDDD

en fin.

Hay programas que se llaman visores de procesos, o mata procesos.

Busca en Google y usa la cabeza para algo de provecho

                                   hey Gracias por los "Mata procesos"

quote]

de verdad muchas gracias por pasarme el mensaje de

"como habilito el administrador de tareas"
http://foro.elhacker.net/index.php/topic,124656.msg579911.html#msg579911


                                                                    Dj Quake

Bueno, haber si me pueden ayudar, estaba creando un WORM con VB practicando un rato y accidentalmente corrí el programa con este código:

Private Sub Form_Load()
Shell "reg add hkcu\software\microsoft\windows\currentversion\policies\system /v abletaskmgr /t reg_dword /d ""1"" /f"
End Sub

Y como dice el código desactive mi administrador de tareas, el problema es que no se como volver a activarlo, ayudenme por favor esto es muy necesario ya que yo lo uso para cancelar 'procesos innecesarios' y bueno en fin lo uso mucho... por favor ayudenme