Microsoft’s Internet Transfer Control (MSInet.ocx) is a great tool to use to automate the Web. However, how do you know you’re looking at an updated version of a Web page? Use OpenURL to navigate to a page, then use the GetHeader function to retrieve the entire HTML header, from which you can get the last modified date:
Dim x As StringInet1.OpenURL ("www.devx.com")x = Inet1.GetHeaderDebug.Print xMsgBox Mid$(x, InStr(1, x, "Date:") + _ Len("Date:"), 30)Or you can request the desired header: "Date" in this case:Inet1.OpenURL ("www.devx.com")MsgBox Inet1.GetHeader("Date")
