Deleted

Question

Deleted

Answer 1

Boa noite, use getfiles para pegar todos os arquivos da pasta1 e mover para a 02.

Answer 2

      Dim di As New IO.DirectoryInfo("c:\")
    Dim diar1 As IO.FileInfo() = di.GetFiles()
    Dim dra As IO.FileInfo

  
    For Each dra In diar1
       movefile
    Next