Quantcast
Channel: Visual Basic Tips and Tricks
Viewing all articles
Browse latest Browse all 2212

[VB2015] elenco directory e File

$
0
0

Salve sto provando a fare esperimenti con LinQ..... vorrei inserire in una classe con tre parametri di tipo testo, il nome della Directory, il nome del File, e il file reale di un percorso prestabilito...

ho provato a fare in questo modo ma gli  oggetti mi vengono copiati molte volte ed io  vorrei che fossero insriti una sola volta, dove sbaglio ?

Dim fileD As New List(Of AddFiles)   Dim perc As String = "c:\Users\giova\Documents\Visual Studio 2015\Projects\"   Private Sub FindFile(ByRef pErc As String)       Try           Dim files = From NomeFile In Directory.EnumerateFiles(pErc, "*.vb",                           SearchOption.AllDirectories)                       From line In File.ReadLines(NomeFile)                       Where line.Contains("")                       Select New With {.curFile = NomeFile, line}           For Each f In files               'Console.WriteLine("{0}\t{1}", f.curFile, f.curLine)               Dim Text As String = File.ReadAllText(f.curFile)               Dim S() As String               '-- splitto tutto il percorso               S = Split(f.curFile, "\")               fileD.Add(New AddFiles(S(S.Count - 2), S(S.Count - 1), Text))           Next           Console.WriteLine("{0} I file Sono.", files.Count.ToString())       Catch UAEx As UnauthorizedAccessException           Console.WriteLine(UAEx.Message)       Catch PathEx As PathTooLongException           Console.WriteLine(PathEx.Message)       End Try   End Sub

mi dareste un consiglio di come andrebbe .... ovviamente la sub la richiamo con:

FindFile(perc)

Grazie in anticipo......


Viewing all articles
Browse latest Browse all 2212