>>318
While - WendをDo While - Loopに替えてExit Doで抜けちゃったらいいよ

' キャプチャしたファイルがあるフォルダが空になるまで繰り返す
Do While Fs.GetFolder(SOURCE_FOLDER).Files.Count > 0
  ……
  
  ' エンコードが終わったファイルを移動する
  Call Fs.MoveFile(input, MOVE_FOLDER)
  
  Exit Do
Loop