vb.net을 사용하여 여러 파일을 이동하는 방법

Question

일부 단어가 포함 된 하나의 디렉토리에서 모든 파일/폴더를 이동하고 다른 단어로 이동할 수 있습니까? 예를 들어 'Testing this'라는 파일/폴더를 다른 폴더로 옮기는 경우? 나는 다음을 시도하지만 그것이 작동하지 않습니까? '이것을 테스트하는'이라는 단어는 파일 이름의 아무 곳에 나 표시 될 수 있습니다.

Dim directory = "C:\Test\" 
     For Each filename As String In IO.Directory.GetFiles(directory, "testing this", IO.SearchOption.AllDirectories) 
      My.Computer.FileSystem.MoveFile(filename, "C:\Test\Old\" & "testing this") 
     Next 

Answer 1

아니, My.Computer.FIlesSystem.MoveFile 각 호출에 대해 하나의 파일을 이동할 수 있습니다.
당신은 소스 디렉토리의 주위에 루프를 구축 한

Dim sourceDir = "C:\test" 
For Each file As String In My.Computer.FileSystem.GetFiles(sourceDir, _ 

    Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, "*testing this*") 

    Dim destPath = file.Substring(sourceDir.Length + 1) 
    Dim destFile = System.IO.Path.GetFileName(file) 

    My.Computer.FileSystem.MoveFile(file, _ 
       System.IO.Path.Combine("C:\Test\Old", destPath, destFile)) 
Next 

Answer 2

와일드 카드는 GetFiles 메서드에서 사용할 수 있습니다. 그래서

는 :

Dim directory = "C:\Test\" 
     For Each filename As String In IO.Directory.GetFiles(directory, "*testing this*", IO.SearchOption.AllDirectories) 
      My.Computer.FileSystem.MoveFile(filename, "C:\Test\Old\" & "testing this") 
     Next