表題の件で質問させてください
20171201.CSV、20171217.CSVのように日付のついているファイルが複数あり,ファイル名が本日の日付のファイル(更新日時や作成日時ではなくファイル名が本日の日付のファイル)を検索し、そのファイルを操作したいと考えています
直接パスを指定すればファイルを操作することが出来たのですが本日の日付のファイルをどう指定すればいいのか悩んでいます
'本日の日付のファイル検索------内の処理をどう書けばよいかアドバイスお願いいたします
vbscript
1option explicit 2 3'変数宣言----------------------- 4 5Dim objADO 6Dim strReadFilePath 7Dim objFileSys 8Dim objReadStream 9Dim strLine 10Dim values 11Dim SQL 12Dim objSQL 13 14Dim objFolder 15Dim objFile 16 17 18'接続情報----------------------- 19 20Set objADO = CreateObject("ADODB.Connection") 21objADO.Open "DRIVER={PostgreSQL Unicode};" &_ 22 "SERVER=localhost;" &_ 23 "DATABASE=DataTest;" &_ 24 "UID=postgres;" &_ 25 "PWD=test;" 26 27 28'本日の日付のファイル検索----------------------- 29 30Set objFileSys = CreateObject("Scripting.FileSystemObject") 31 32Set objFolder = objFileSys.GetFolder("c:\test") 33 34For Each objFile In objFolder.Files 35 36 37 38 39Next 40 41'ファイル読み込み+INSERT----------------------- 42 43strReadFilePath = "C:\FTP_Test\Test01\20171217.CSV" 44 45Set objFileSys = CreateObject("Scripting.FileSystemObject") 46 47Set objReadStream = objFileSys.OpenTextFile(strReadFilePath,1) 48 49Do Until objReadStream.AtEndOfLine = True 50 51 strLine = objReadStream.ReadLine 52 values = Split(strLine,",") 53 SQL = "INSERT INTO datatest(time,index,test) VALUES ("&"'"& values[0] & "'" & "," & values[1] & "'" & "," & values[2] &")" 54 objSQL = objADO.Execute(SQL) 55 56End If 57Loop
回答2件
あなたの回答
tips
プレビュー