もしフォルダがなかったら作成するというコード
エクセルvbaで、
フォルダA（FileA）の中のPDFファイル全部を、フォルダB（FileB）へコピーする
というコードを作成しました。
が、パスが見つかりませんとエラーが出ます。
その理由は、移動先にフォルダがないからです。
フォルダがない場合は、フォルダを作成するというコードを入れたいのですが、
もしご存知の方いらっしゃいましたら、どうか教えてください。
エクセル2010ｄを使用しています。
vba初心者で、ここまでネット検索などで作りましたので、いびつかもしれません。
どうぞよろしくお願いいたします。
----------------------------------
Sub CopyPDFwithFile() 'フォルダ内のPDFを全てAをBへコピー
Dim objFileSys As Object
Dim strScriptPath As String
Dim strCopyFrom As String
Dim strCopyTo As String
Dim MaxRow As Integer
Dim i As Long
Dim k As Long
Dim FileA, FileB As String
n = Range("V6").Value
MaxRow = ThisWorkbook.Sheets(n).Cells(11, 22).End(xlDown).Row
For i = 1 To MaxRow - 10
FileA = Range("V" & i + 10).Value
FileB = Range("W" & i + 10).Value
Debug.Print FileA
Debug.Print FileB
Set objFileSys = CreateObject("Scripting.FileSystemObject")
strScriptPath = ThisWorkbook.Path
Debug.Print strScriptPath
strCopyFrom = objFileSys.BuildPath(FileA, ".pdf")
strCopyTo = objFileSys.BuildPath(FileB, "new\.pdf")
objFileSys.CopyFile FileA & "\*.pdf", FileB '←ここでエラー、ストップします
Set objFileSys = Nothing
Next i
End Sub
---------------------------------------------
