2008年10月30日

ファイルの更新日時と作成日を求める

PC上にあるファイルの作成日とか
最終更新日(最後に書き込んだ日時)の求め方の例です。



この例は

VBのbin\debug\Keyword.txtの作成日と更新日を求めます



        Dim FileName As String = Application.StartupPath() & "\Keyword.txt
        Dim LastDate as Date


        If IO.File.Exists(FileName) Then
        'ファイルが存在するかどうか確認する


            LastDate = IO.File.GetLastWriteTime(FileName)
            msgbox("最終更新日は" & LastDate)
            'GetLstWriteTimeは最後にファイルが書き込まれた日


            LastDate = IO.File.GetCreationTime(FileName)
            msgbox("作成日は" & LastDate)
            'GetCreationTimeはファイルを作成した日時


        Else

            msgbox(FileName & " がありません")
            'FileNameがなかったらメッセージを出す

        End If


という感じで

作成日と更新日を求めることができます。



たとえばローカルに保存してあるHPの更新日を求めることで
そろそろ更新しておかなきゃとかなるわけですね

posted by kiyo at 13:31| ファイル | このブログの読者になる | 更新情報をチェックする