VBSでCSVから1行だけを読み込み、別のCSVとして保存したい

Question

前提・実現したいこと

読込用csvファイルから1行目(ヘッダ)だけを読み込み
別のcsvファイルへ書き込んで保存したいです。
下記の通り書いてみて実行してもエラーは出てきませんが
csvファイルが生成されません。
ご指摘、ご教示いただけますと幸いです。

発生している問題・エラーメッセージ

エラーメッセージは出ていませんが、新しいCSVファイルが作成されません。

該当のソースコード

Option Explicit

Dim objFS
Dim objRFile
Dim objWFile
Dim strReadFile
Dim strWriteFile
Dim strLine

strReadFile = "C:\Users\read.csv"
strWriteFile = "C:\Users\write.csv"

Set objFS = CreateObject("Scripting.FileSystemObject")
Set objRFile = objFS.OpenTextFile(strReadFile,1)
Set objWFile = objFS.OpenTextFile(strWriteFile,2,true)

Do Until objRFile.AtEndOfLine = True
   strLine = objRFile.ReadLine
   objWfile.WriteLine strLine
Loop

objRFile.Close
objWFile.Close

Set objFS = Nothing

Answer 1

私の環境では問題なく作成されました。
そもそも読み込めていない可能性がありますので、パスをよく確認してください。
Doループの先頭でデバッグ文（MsgBoxやEcho）でも出せば読み込めているかわかるはずです。

ちなみにご提示のコードでは全行を書き出してしまうので、WriteLineしたあとにExit Doするとよいでしょう。

Do Until objRFile.AtEndOfLine = True
   strLine = objRFile.ReadLine
   objWfile.WriteLine strLine
   Exit Do
Loop

Comments

[SOHR]

早速のご回答ありがとうございます。
ご教示いただいたとおりファイルパスを確認したところ、
半角スペースを含んだパスだったため読み取りがうまくできていなかったようです。
ファイルのディレクトリを変えることで解決しました。

また、Exit Doのご教示も感謝いたします。
今後幅広く応用していけそうです。