tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル 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でも可能でしょうか。

ご教示願えますと幸いであります。

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。