| |
Set FileSysobj = CreateObject("Scripting.FileSystemObject")
Set Fid = FileSysobj.GetFolder(DirHdata)
Set Fils = Fid.Files
f_name1 = "import" '**ファイル名要確認**
For Each Trgtfile In Fils
If InStr(Trgtfile.Name, "_") <> 0 Then
If f_name1 = _
Replace(Trgtfile.Name, Mid(Trgtfile.Name, InStr(Trgtfile.Name, "_")), "") Then
'' 同一日付の最新ファイルを取得
If taihi < Mid(Trgtfile.Name, InStr(Trgtfile.Name, "_") + 1, 12) Then
taihi = Mid(Trgtfile.Name, InStr(Trgtfile.Name, "_") + 1, 12)
TAIHIFL = Trgtfile.Name
End If
flg = True
End If
End If
Next
以上のような記述で、最大のタイムスタンプを取得することが
できました。
お騒がせしました。
|
|
qq
- 07/7/9(月) 10:50 -
![[未読]](./data/access/image/read_icon.gif){kind=icon}
