Excelvbaで条件でフォルダーをフォルダーに移動

こんばんわぁ。
数百あるフォルダーがあります。
20190802-1、20190802-2,20190802-3,20190802-終
頭8桁が変更します。
枝番を除外して頭8桁のフォルダー名を作成し、同じ8桁のフォルダー作成したフォルダーに移動させたいのですができません。
フォルダー名をエクセルに書き出し、枝番を除き、重複するデータを除き、フォルダーを作成？

全くわかりません。宜しくお願い申し上げます。

質問者からの補足コメント

• 

  こんばんわぁ。枝番ついてるフォルダーを移動するところです。
  書き出して、作成まではあちらこら調べてできました。
  〇移動する
  Sub 移動()
  Dim FSO As Object
  Set FSO = CreateObject("Scripting.FileSystemObject")
  On Error GoTo ErrLabel
  移動先 = Range("A2").Value
  移動元 = Range("A3").Value
  
  FSO.MoveFolder Source:=移動先 & "A" , Destination:=移動元 & "B"　☆ここがワイルドカード？
  Exit Sub
  ErrLabel:
  MsgBox Err.Description
  End Sub

  No.1の回答に寄せられた補足コメントです。 補足日時：2019/08/11 03:50

No.1 ベストアンサー 回答者： くんこば 回答日時： 2019/08/11 02:51

どこが分からないの？

フォルダ名の検索はできる。
フォルダの作成はできる。
フォルダの移動もできる。
エクセルでここまでは出来るよね？

どこでつまづいてるの？

この回答へのお礼

出来ました！フォルダーの検索が失敗していました。
ありがとうございました。

お礼日時：2019/08/11 05:44