Q&A
コメントありがとうございます。
ディレクトリのfinalPathを作成してから返還なので、"\"と"/"は除外できないと思いましたが、結果的に解決方法としてfinalPathでディレクトリ化する前のそれぞれの変数にreplaceをおいて無害化することで実行できました。ありがとうございます。
以下のようなコードで Mkdirをループしている途中で処理が止まってしまうため、原因を調べたところ、ループ中にfinalPathにスラッシュ(/)が含まれるものが存在することが分かり、調べてみたところ、パスとして認められない文字列がいくつか存在していることが分かりました。
そこで、これらの文字列を有効文字列に変換した上で処理するために、--使用できない文字の変換にあるように、該当文字列を有効文字列に置換するコードを加えたところ、エラーはなくなりましたが、結果的に何もMkdirしてくれていないことが分かりました。何か考えらえる原因と解決方法はございますでしょうか。
何卒、宜しくお願い申し上げます。
vba
1 j = 4 2 Do Until Cells(j, 8) = "" 3 finalPath = insertPath & "\" & Cells(j, 7).Value & "_" & Cells(j, 6).Value & "\" & Cells(j, 8).Value & "_" & Cells(j, 9).Value 4 Debug.Print (finalPath) 5 '--使用できない文字の変換 6 'finalPath = Replace(finalPath, "\", "#") 7 'finalPath = Replace(finalPath, "/", "#") 8 finalPath = Replace(finalPath, ":", "#") 9 finalPath = Replace(finalPath, "*", "#") 10 finalPath = Replace(finalPath, "?", "#") 11 finalPath = Replace(finalPath, """", "#") 12 finalPath = Replace(finalPath, "<", "#") 13 finalPath = Replace(finalPath, ">", "#") 14 finalPath = Replace(finalPath, "|", "#") 15 finalPath = Replace(finalPath, "[", "#") 16 finalPath = Replace(finalPath, "]", "#") 17 18 If Dir(finalPath, vbDirectory) = "" Then 19 Mkdir finalPath 'replaceがないときに/があるファイル名でエラーが発生 20 Else 21 MsgBox finalPath & "フォルダは存在してるよ" & vbCrLf & "「処理を中断します」" 22 Exit Sub 23 End If 24 j = j + 1 25 Loop
回答3件
0
自己解決
結果的に解決方法としてfinalPathでディレクトリ化する前のそれぞれの変数にreplaceをおいて無害化することで実行できました。ありがとうございます。
投稿2021/02/05 02:12
総合スコア245
0
１．
Replaceの先頭の２行がコメントになっています。
２．
& "\" &と連結してから"\"を置換しては遅い（必要な\まで対象になる）ので、連結前の文字列に対して置換しないといけませんね。
３．
mkdir直前のfinalPathの値を表示してみましょう。
投稿2021/02/04 07:40
総合スコア85890
0
ifの前でDebug.Print (finalPath)してみてください。
finalPathを丸ごとReplaceしているので必要な「\」まで「#」に変換されていると思います。
セル単位で変換するか、最初に「\」ではなく違う文字を区切りにしておき、
ifの前でそれを置換するなどして対応できると思います。
あ、コメントになってたのに気づいていませんでした。失礼しました。
投稿2021/02/04 07:33
編集2021/02/04 07:59
総合スコア1925
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。