特定の文字列はパスに含めることができない場合の処理

Question

以下のようなコードで Mkdirをループしている途中で処理が止まってしまうため、原因を調べたところ、ループ中にfinalPathにスラッシュ(/)が含まれるものが存在することが分かり、調べてみたところ、パスとして認められない文字列がいくつか存在していることが分かりました。
そこで、これらの文字列を有効文字列に変換した上で処理するために、--使用できない文字の変換にあるように、該当文字列を有効文字列に置換するコードを加えたところ、エラーはなくなりましたが、結果的に何もMkdirしてくれていないことが分かりました。何か考えらえる原因と解決方法はございますでしょうか。
何卒、宜しくお願い申し上げます。

 j = 4
      Do Until Cells(j, 8) = ""
       finalPath = insertPath & "\" & Cells(j, 7).Value & "_" & Cells(j, 6).Value & "\" & Cells(j, 8).Value & "_" & Cells(j, 9).Value
       Debug.Print (finalPath)
       '--使用できない文字の変換
    'finalPath = Replace(finalPath, "\", "#")
    'finalPath = Replace(finalPath, "/", "#")
    finalPath = Replace(finalPath, ":", "#")
    finalPath = Replace(finalPath, "*", "#")
    finalPath = Replace(finalPath, "?", "#")
    finalPath = Replace(finalPath, """", "#")
    finalPath = Replace(finalPath, "<", "#")
    finalPath = Replace(finalPath, ">", "#")
    finalPath = Replace(finalPath, "|", "#")
    finalPath = Replace(finalPath, "[", "#")
    finalPath = Replace(finalPath, "]", "#")
    
       If Dir(finalPath, vbDirectory) = "" Then
         Mkdir finalPath 'replaceがないときに/があるファイル名でエラーが発生
       Else
         MsgBox finalPath & "フォルダは存在してるよ" & vbCrLf & "「処理を中断します」"
        Exit Sub
     End If
       j = j + 1
      Loop

Answer 1

結果的に解決方法としてfinalPathでディレクトリ化する前のそれぞれの変数にreplaceをおいて無害化することで実行できました。ありがとうございます。

Answer 2

１．
Replaceの先頭の２行がコメントになっています。

２．
& "\" &と連結してから"\"を置換しては遅い（必要な\まで対象になる）ので、連結前の文字列に対して置換しないといけませんね。

３．
mkdir直前のfinalPathの値を表示してみましょう。

Comments

[pegy]

コメントありがとうございます。
ディレクトリのfinalPathを作成してから返還なので、"\"と"/"は除外できないと思いましたが、結果的に解決方法としてfinalPathでディレクトリ化する前のそれぞれの変数にreplaceをおいて無害化することで実行できました。ありがとうございます。

Answer 3

ifの前でDebug.Print (finalPath)してみてください。
finalPathを丸ごとReplaceしているので必要な「\」まで「#」に変換されていると思います。

セル単位で変換するか、最初に「\」ではなく違う文字を区切りにしておき、
ifの前でそれを置換するなどして対応できると思います。

あ、コメントになってたのに気づいていませんでした。失礼しました。

Comments

[pegy]

コメントありがとうございます。

[pegy]

結果的に解決方法としてfinalPathでディレクトリ化する前のそれぞれの変数にreplaceをおいて無害化することで実行できました。ありがとうございます。