Questo codice copia tutti i file .txt contenuti nella cartella C:\ nella cartella "c:\prova".
Il comando CopyFile trova e copia i file txt contenuti solo nella cartella indicata. Come
faccio a fargli copiare tutti i file txt, cioè anche nelle sottocartelle di "c:\"?
Forse con il comando GetDirectories? come si fa?


codice:
Imports System.IO
Public Class Form1

  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    spostaGruppoFile("*.txt", "C:\", "C:\prova\")
  End Sub
End Class

Module Utility

  Public Sub spostaGruppoFile(ByVal nomeFile As String, ByVal dir1 As String, ByVal dir2 As String)

    ' creazione array con elenco file *.txt:

    Dim d As New DirectoryInfo(dir1)

    Dim f As FileInfo() = d.GetFiles(nomeFile)
        ' ciclo di spostamento:

    For Each fNext In f
      My.Computer.FileSystem.CopyFile(dir1 & fNext.Name, dir2 & fNext.Name)



    Next

  End Sub

End Module