EXCEL VBA　テキストファイルに出力する際にダブルクォーテーションが追加されてしまう。

前提・実現したいこと

EXCEL VBA シートをテキストファイルに書き出しした際に、ダブルクォーテーションが意図しない部分に追加されるのを防ぎたいです。
尚、このVBAは指定したフォルダににある複数の.dwgデータを参照します。
シートをテキストファイルに出力じゃなく、テキストファイルにWRITE 若しくはPRINT でもいいのですが、不特定な行数をする方法がわかりません。

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

EXCELシート内の文字列
open "C:\a\test - コピー (2).dwg"
_-LAYER
P
N
KUMO
QSAVE
close

テキストファイル内の文字列
"open ""C:\a\test - コピー (2).dwg"""
_-LAYER
P
N
KUMO
QSAVE
close

該当のソースコード

Public Sub CommandButton1_Click()

        CommandButton1.Enabled = True
        
         Dim fld As FileDialog
  Dim fol_path As String  ' フォルダーのフルパス
  Dim f_name As String  ' ファイル名
  Dim i As Long

  Set fld = Application.FileDialog(msoFileDialogFolderPicker)
  If fld.Show = 0 Then Exit Sub  'キャンセル時
  fol_path = fld.SelectedItems(1)  'フォルダのフルパスを変数に格納
  f_name = Dir(fol_path & "\" & "*.dwg")  '指定されたフォルダの一つ目のファイル名を取得
  If f_name = "" Then MsgBox "ファイルが存在しません。": Exit Sub

  ChDir fol_path & "\"  'カレントフォルダの変更
  i = 1
  Do Until f_name = ""
    Worksheets("Sheet1").Cells(i, "A").Value = """" & fol_path & "\" & f_name & """"
    i = i + 1
    f_name = Dir  '次のファイル名を取得
  Loop
        CommandButton1.Enabled = True
        Module1.LTscr
        
        Dim NAME As String ' Sheet1 のセル「B2」の値を取得
        
NAME = Worksheets("操作画面").Range("B2").Value
    ThisWorkbook.SaveAs fol_path & "\" & NAME & ".scr", FileFormat:=xlText, CreateBackup:=False
 'ブックを閉じる
  Application.DisplayAlerts = False 'メッセージを非表示に設定
  ThisWorkbook.Close
  Application.DisplayAlerts = True  'メッセージを非表示に設定
End Sub

試したこと

ダブルクォーテーションを付けないパターンでコードを作成した場合はうまくいきました。
しかし、テキストファイル作成時に参照するフォルダパスに半角などがあると次工程の作業に影響がある為、フォルダパスは文字列として認識させています。

Public Sub CommandButton1_Click()

        CommandButton1.Enabled = True

         Dim fld As FileDialog
  Dim fol_path As String  ' フォルダーのフルパス
  Dim f_name As String  ' ファイル名
  Dim i As Long

  Set fld = Application.FileDialog(msoFileDialogFolderPicker)
  If fld.Show = 0 Then Exit Sub  'キャンセル時
  fol_path = fld.SelectedItems(1)  'フォルダのフルパスを変数に格納
  f_name = Dir(fol_path & "\" & "*.dwg")  '指定されたフォルダの一つ目のファイル名を取得
  If f_name = "" Then MsgBox "ファイルが存在しません。": Exit Sub

  ChDir fol_path & "\"  'カレントフォルダの変更
  i = 1
  Do Until f_name = ""
    Worksheets("Sheet1").Cells(i, "A").Value = fol_path & "\" & f_name
    i = i + 1
    f_name = Dir  '次のファイル名を取得
  Loop
        CommandButton1.Enabled = True
        Module1.LTscr

        Dim NAME As String ' Sheet1 のセル「B2」の値を取得

NAME = Worksheets("操作画面").Range("B2").Value
    ThisWorkbook.SaveAs fol_path & "\" & NAME & ".scr", FileFormat:=xlText, CreateBackup:=False
 'ブックを閉じる
  Application.DisplayAlerts = False 'メッセージを非表示に設定
  ThisWorkbook.Close
  Application.DisplayAlerts = True  'メッセージを非表示に設定
End Sub

上記コードの場合だと、テキストファイル内の文字列は下記のようになります。
open C:\a\test - コピー (2).dwg
_-LAYER
P
N
KUMO
QSAVE
close