Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss
Visual studio 2017 - Filtro file in cartella
4 views
Skip to first unread message
marcop...@gmail.com
Mar 6, 2020, 2:34:38 AM3/6/20
to
Ciao,
per estrarre un elenco di file in una cartella uso questo codice:
Private Sub BtnCercaFlowChartMacinaRG_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCercaFlowChartMacinaRG.Click
tbPercorso.Text = "MioPercorso"
cklbSelezionaFlowChart.Items.Clear()
Dim CartellaMacina As New IO.DirectoryInfo(tbPercorso.Text)
Dim FileNuove() As IO.FileInfo
Dim FileInCartellaNuove As IO.FileInfo
FileNuove = CartellaMacina.GetFiles("AAA*.pdf")
For Each FileInCartellaNuove In FileNuove
cklbSelezionaFlowChart.Items.Add(FileInCartellaNuove)
Next
End Sub
con un solo filtro >> "AAA*.pdf" funziona tutto..
avrei ora la necessità di mettere più filtri, ho provato in diversi modi ma non funziona... Mi serve qualcosa tipo:
AAA*.pdf and BBB*pdf and CCC*.pdf
qual è la sintassi corretta?
grazie
Marco
per estrarre un elenco di file in una cartella uso questo codice:
Private Sub BtnCercaFlowChartMacinaRG_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCercaFlowChartMacinaRG.Click
tbPercorso.Text = "MioPercorso"
cklbSelezionaFlowChart.Items.Clear()
Dim CartellaMacina As New IO.DirectoryInfo(tbPercorso.Text)
Dim FileNuove() As IO.FileInfo
Dim FileInCartellaNuove As IO.FileInfo
FileNuove = CartellaMacina.GetFiles("AAA*.pdf")
For Each FileInCartellaNuove In FileNuove
cklbSelezionaFlowChart.Items.Add(FileInCartellaNuove)
Next
End Sub
con un solo filtro >> "AAA*.pdf" funziona tutto..
avrei ora la necessità di mettere più filtri, ho provato in diversi modi ma non funziona... Mi serve qualcosa tipo:
AAA*.pdf and BBB*pdf and CCC*.pdf
qual è la sintassi corretta?
grazie
Marco
0 new messages