|
▼kanabun さん:
ありがとうございます。
できました。
さらに、欲を言いますと、
そのファイルを開くことは可能ですか?
もすこし具体的に書くと、
>
>Sub Try1()
> Const myPath = "D:\(Data)\" 'ここに検索フォルダをセットする(最後は \)
> Dim myFile As String
> Dim LastFile As String
> Dim fDate As Date, LastDate As Date
>
> myFile = Dir$(myPath & "*.csv")
> Do While Len(myFile)
> fDate = FileDateTime(myPath & myFile)
> If LastDate < fDate Then
> LastDate = fDate
> LastFile = myFile
> End If
> myFile = Dir$()
> Loop
> MsgBox "最新のCSVファイルは" & vbCr _
> & LastFile & vbTab & LastDate & vbCr _
> & "です"
>
>End Sub
>
>といった感じでどうですか?
|
|