テキストファイルへの書き出し

質問

ExcelVBAについて教えてください。

Dim path As String
Dim FullPath As String
Path ="C:\"
Dim FN As String
FN ="abc.txt"
Dim intFF As Integer
intFF = FreeFile

FullPath = Path & "\" & FN

Open FullPath For Output As #intFF
Print #intFF, FullPath
Close #intFF

とやると、Open FullPathのところで、実行時エラー 76、パスが見つかりませんと表示されてしまいます。
やりたいことは、Excel VBAでテキストファイルを新規につくり、そこへ書き出し、保存したいです。ファイル名はFullPathで指定したファイル名を新規で作り出し、それに対して書き出し、保存をしたいです。
何が間違っているのでこのようなエラーが表示されてしまうのでしょうか？回避方法がありましたらご教授お願いいたします。

回答No.1

n-jun · ベストアンサー

＞Path ="C:\"
＞FN ="abc.txt"
＞FullPath = Path & "\" & FN
FullPath = "C:\\abc.txt"　と"\"が並んでいるのでは？

FullPath = Path & FN
かと。