Sub Set_FileName()
'
'*************************
' データファイル名の設定
'*************************
'
File_org$ = ""
For i = 0 To 6 - Len(Form4.txtFileOrg.Text)
  File_org$ = File_org$ + "0"
Next i
File_org$ = Form4.txtFileHead.Text + File_org$ + Form4.txtFileOrg.Text
File_dat$ = Form4.txtFileDir.Text + "\" + File_org$ + "_dat.csv" '出力するデータファイル名
File_csv$ = Form4.txtFileDir.Text + "\" + File_org$ + "_csv.csv" '出力するカンマ形式ファイル名
Form4.txtFileDat.Text = File_dat$
Form4.txtFileCsv.Text = File_csv$
'
File_org$ = ""
For i = 0 To 6 - Len(Form4.txtFileOrg_Man.Text)
  File_org$ = File_org$ + "0"
Next i
File_org$ = Form4.txtFileHead_Man.Text + File_org$ + Form4.txtFileOrg_Man.Text
File_dat$ = Form4.txtFileDir_Man.Text + "\" + File_org$ + "_dat.csv" '出力するデータファイル名
File_csv$ = Form4.txtFileDir_Man.Text + "\" + File_org$ + "_csv.csv" '出力するカンマ形式ファイル名
Form4.txtFileDat_Man.Text = File_dat$
Form4.txtFileCsv_Man.Text = File_csv$
'
If SaveFileMode = 0 Then 'Auto Save
  File_org$ = ""
  For i = 0 To 6 - Len(Form4.txtFileOrg.Text)
    File_org$ = File_org$ + "0"
  Next i
  File_org$ = Form4.txtFileHead.Text + File_org$ + Form4.txtFileOrg.Text
  File_dat$ = Form4.txtFileDir.Text + "\" + File_org$ + "_dat.csv" '出力するデータファイル名
  File_csv$ = Form4.txtFileDir.Text + "\" + File_org$ + "_csv.csv" '出力するカンマ形式ファイル名
  Form4.txtFileDat.Text = File_dat$
  Form4.txtFileCsv.Text = File_csv$
  Note$ = Form4.txtNote
ElseIf SaveFileMode = 1 Then 'Manual Save
  File_org$ = ""
  For i = 0 To 6 - Len(Form4.txtFileOrg_Man.Text)
    File_org$ = File_org$ + "0"
  Next i
  File_org$ = Form4.txtFileHead_Man.Text + File_org$ + Form4.txtFileOrg_Man.Text
  File_dat$ = Form4.txtFileDir_Man.Text + "\" + File_org$ + "_dat.csv" '出力するデータファイル名
  File_csv$ = Form4.txtFileDir_Man.Text + "\" + File_org$ + "_csv.csv" '出力するカンマ形式ファイル名
  Form4.txtFileDat_Man.Text = File_dat$
  Form4.txtFileCsv_Man.Text = File_csv$
  Note$ = Form4.txtNote_Man
End If
'
End Sub