VBA、フォルダのパスに環境文字 ㉑ があり、VBAが機能しません。

タイトルの件、環境依存文字㉑がフォルダのパスにあり
読み込めません。VBAの５行目を見ると

下記の正しいパスではなく、㉑の部分が?になってしまいます。
これを読めるようにするにはどうすればいいですか。

【参考】
・下記のVBAは、フォルダAにあるファイルを、自動で全部、フォルダBへ移動するというマクロです
・㉑の文字コードは、　3251　です。


【正しいパス】C:\Users\2020\Desktop\㉑\フォルダA
【VBEにコピペ】C:\Users\2020\Desktop\?\フォルダA

【VBA】

Sub マクロ2()


Dim fso As New FileSystemObject

Dim sFile As String

Dim dFile As String



　sFile = "C:\Users\2020\Desktop\?\フォルダA\*"

　dFile = "C:\Users\2020\Desktop\フォルダB"



fso.MoveFile sFile, dFile


End Sub

No.2 ベストアンサー 回答者： mygoonickname 回答日時： 2022/07/29 00:37

" が１つ抜けていました。

。。

sFile = "C:\Users\2020\Desktop\" & ChrW("&H" & 3251) & "\フォルダA\*"

No.1 回答者： mygoonickname 回答日時： 2022/07/27 11:55

こんにちは。

下記で、どうでしょうか？

sFile = "C:\Users\2020\Desktop\" & ChrW("&H" & 3251) & \フォルダA\*"

この回答へのお礼

ご指導ありがとうざざいます。

実施しましたら、コンパイルエラー、構文エラーになります（泣）

もし、何か糸口がありましたら、ご指導お願いします。

お礼日時：2022/07/28 00:18