タイトル : Webページのタイムスタンプ取得につきまして 投稿日 : 2017/08/30(Wed) 13:31 投稿者 : susu
度重ね、お世話になります。 環境 OS:Windows XP/7/8/10 IE 6/11 VB 6.0 VB歴は長いのですが詳しくはありません。 Webページのタイムスタンプ取得につきまして、ご質問致します。 概要 下記にファイルのタイムスタンプを取得する参考例(VB6)がありました。 http://jeanne.wankuma.com/tips/vb6/file/gettimestamp.html [参照設定] ⇒「Microsoft Scripting Runtime」 Option Explicit Private Sub Command1_Click() ' FileSystemObject (FSO) の新しいインスタンスを生成する Dim cFso As FileSystemObject Set cFso = New FileSystemObject ' File オブジェクトを取得する Dim cFile As File Set cFile = cFso.GetFile("C:\テスト.txt") ' 不要になった時点で参照を解放する (Terminate イベントを早めに起こす) Set cFso = Nothing ' 作成日時を取得する Dim dtCreate As Date dtCreate = cFile.DateCreated ' 更新日時を取得する Dim dtUpdate As Date dtUpdate = cFile.DateLastModified ' アクセス日時を取得する Dim dtAccess As Date dtAccess = cFile.DateLastAccessed ' 不要になった時点で参照を解放する (Terminate イベントを早めに起こす) Set cFile = Nothing ' 取得したタイムスタンプを表示する Call MsgBox("作成日時 : " & CStr(dtCreate)) Call MsgBox("更新日時 : " & CStr(dtUpdate)) Call MsgBox("アクセス日時 : " & CStr(dtAccess)) End Sub 質問 ファイル"テスト.txt"の代わりにWebページhhttps://www.goo.ne.jp/の タイムスタンプ取得をしたいのですが、VB6でも可能でしょうか。 ご教示願えますと幸いであります。 |