VBS 日付でファイルを検索する方法

Question

表題の件で質問させてください
20171201.CSV、20171217.CSVのように日付のついているファイルが複数あり,ファイル名が本日の日付のファイル（更新日時や作成日時ではなくファイル名が本日の日付のファイル）を検索し、そのファイルを操作したいと考えています

直接パスを指定すればファイルを操作することが出来たのですが本日の日付のファイルをどう指定すればいいのか悩んでいます
'本日の日付のファイル検索------内の処理をどう書けばよいかアドバイスお願いいたします

option explicit

'変数宣言-----------------------

Dim objADO
Dim strReadFilePath
Dim objFileSys
Dim objReadStream
Dim strLine
Dim values
Dim SQL
Dim objSQL

Dim objFolder
Dim objFile


'接続情報-----------------------

Set objADO = CreateObject("ADODB.Connection")
objADO.Open "DRIVER={PostgreSQL Unicode};" &_
            "SERVER=localhost;" &_
            "DATABASE=DataTest;" &_
            "UID=postgres;" &_
            "PWD=test;"


'本日の日付のファイル検索-----------------------

Set objFileSys = CreateObject("Scripting.FileSystemObject")

Set objFolder = objFileSys.GetFolder("c:\test")

For Each objFile In objFolder.Files




Next

'ファイル読み込み+INSERT-----------------------

strReadFilePath = "C:\FTP_Test\Test01\20171217.CSV"

Set objFileSys = CreateObject("Scripting.FileSystemObject")

Set objReadStream = objFileSys.OpenTextFile(strReadFilePath,1)

Do Until objReadStream.AtEndOfLine = True
   
   strLine = objReadStream.ReadLine
   values = Split(strLine,",")
   SQL = "INSERT INTO datatest(time,index,test) VALUES ("&"'"& values[0] & "'" & "," & values[1] & "'" & "," & values[2] &")"
   objSQL = objADO.Execute(SQL)

End If
Loop

Comments

[otn]

/ はファイル名に使えないと思いますが？

[---stax---]

ありがとうございます。記述ミスしておりました。

Answer 1

ファイル名は日付だけで一つしかないなら「本日の日付のファイル検索」は不要ですね。
単にファイル名を作り出すだけで良いかと思います。

strReadFilePath = "C:\FTP_Test\Test01\" & Format(Date(), "yyyymmdd") & ".CSV"

Comments

[---stax---]

ありがとうございます
ファイルは複数ある状態でやってみました
以下のコードを書いてみたのですが、エラーも出ず、インサートもされずでどこが悪いのか分からず悩んでいます。
途中でメッセージボックスでファイル名が取得できているかの確認はできたのですがインサートできない部分が特定できません
記述等おかしい部分はありますでしょうか・・・

Set objFileSys = CreateObject("Scripting.FileSystemObject")

Timedate = Replace(Date,"/","")

Set objFolder = objFileSys.GetFolder("C:\FTP_Test\Test01")

For Each objFile In objFolder.Files

If instr(objFile.Name,Timedate) <> 0 Then

strReadFilePath = objFile.Path

Set objFileSys = CreateObject("Scripting.FileSystemObject")
RowsCk = 0

Set objReadStream = objFileSys.OpenTextFile(strReadFilePath, 1)

Do Until objReadStream.AtEndOfLine = True

strLine = objReadStream.ReadLine

values = Split(strLine ,",")

RowsCk = RowsCk + 1

If RowsCk > 3 Then

Sql = "INSERT INTO datatest(time,index,test) VALUES (" & "'" & values(0) & "'" &"," & values(1) &","& values(2) &")"
Set objRS = objADO.Execute(Sql)

End If

Loop

End If

Next

[---stax---]

申し訳ありません
記述ミスしており動作しませんでした

Answer 2

/はファイル名に使えませんが、それをさておくと、
filename = Date & ".CSV"
でしょうか。
ファイル名にするには、Replaceで/を削除したり-に置換したりする必要があるでしょう。