Как переместить все файлы в формате PDF в другой каталог

Question

Я пытаюсь переместить все файлы в формате PDF в C: \ Н: \

I googled and was not able to find a sufficient answer. Only if you know the exact file name. 

Answer 1

 For Each x In New DirectoryInfo("C:\").GetFiles("*.pdf", SearchOption.TopDirectoryOnly)' or AllDirectories 
      File.Copy(x.FullName, Path.Combine("H:\", x.Name), False) 'Overwrite = FALSE 
     Next 

Answer 2

For Each x In My.Computer.FileSystem.GetFiles("C:\", FileIO.SearchOption.SearchTopLevelOnly) ' Or SearchAllSubDirectories 
     If x.EndsWith(".pdf") Then IO.File.Copy(x, "H:\", False) 'Overwrite = FALSE 
    Next