Buscar en una Carpeta pero no en subacaretas:
Buscar en un director X y tambien en subcarpetas
Código
Tambien con Like mas la funcion Dir() puedes buscar no recuerdo bien je.
Buscar en un director X y tambien en subcarpetas
Código
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
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
'sorry esto iba al principio
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
Y claro todo en VB. Net ...
Saludos!
A +