.txtから文字列を読み取ろうとしたときにファイル名または番号が正しくありません

Question

入力用のテキストファイルを開こうとするとこのエラーが発生します。コードは大丈夫です...

enviro = CStr(Environ("USERPROFILE")) 
filePath = "C:\Users\" & enviro & "\AppData\Roaming\Microsoft\Outlook\path.txt" 
Open filePath For Input As #1 
Do Until EOF(1) 
    Line Input #1, strPath 
Loop 
Close #1 

テキストファイルには、ブックに向かうパスが1行しかありません。 Environ("USERPROFILE")を使用して

Answer 1

は、例えばを返します。

C:\Users\NAlexP 

だから、あなただけのためにfilePath割り当てを修正する必要があります。

filePath = enviro & "\AppData\Roaming\Microsoft\Outlook\path.txt"