'当日付けのエクセルファイルの数、エクセルファイルから機種名の抽出--------------------------------
パス(0) = "C:"

  Set FS = CreateObject("Scripting.FileSystemObject")

  Set Fol = FS.GetFolder(パス(0))

  Set Fil = Fol.Files

  my年月日 = Format(Date, "yyyymmdd")

  i = 0

  strfiles = ""

  For Each fx In Fil

  If Right(fx.Name, 3) = "xls" Then

  ret = InStr(1, fx.Name, my年月日, vbBinaryCompare)

  If ret <> 0 Then

  i = i + 1

  myName = Replace(fx.Name, strsource, "")

  myName = """" & Replace(myName, my年月日 & ".xls", "") & """"

  strfiles = IIf(strfiles = "", myName, strfiles & "、" & myName)

  End If

  End If

  Next

'ファイルが0個なら終わる。

  If i = 0 Then

  MsgBox "ファイルがみつかりません。", vbCritical, "エラー"

  GoTo 終了

  End If

'フォルダ内に対象ファイルが1件ならば、strfilesは空にする

  If i = 1 Then

  strfiles = ""

  ElseIf i > 1 Then

  strfiles = Chr(13) & Chr(13) & Chr(13) & "　（リスト作成対象の機種は全部で、　" & strfiles & "　がありま
す。）"

  End If