４画像復活していました。

自転車探検のサイトの複製はすでに公開済みですが、多数の画像が欠落しています。

アーカイブの画像が復活することも有るとの記載に期待して、VBAでこんなスクリプトを作りました。

Option Compare Database Dim fso As New Scripting.FileSystemObject Public Declare Function URLDownloadToFile Lib "urlmon" _     Alias "URLDownloadToFileA" (ByVal pCaller As Long, _     ByVal szURL As String, ByVal szFileName As String, _     ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long     Public Function getfile() Dim Str As String Dim myFolder As Folder Dim myFile As File Dim Path As String     Path = "d:\geocities/img/"     arc_path = "https://web.archive.org/web/http://www.geocities.jp/jitensha_tanken/"     save_p = "D:/geo17_11_01/img/"     Set myFolder = fso.GetFolder(Path)         For Each f In fso.GetFolder(Path).Files         i = i + 1     If f.Size = o Then         GetImageFile arc_path & f.Name, save_p & f.Name     End If         Next f     Set fso = Nothing         MsgBox "取得終了" End Function Sub GetImageFile(ImgName As String, SaveName As String)     Dim SaveFileName As String, DownloadFile As String, Ret As Long     If ImgName = "" Then Exit Sub     SaveFileName = SaveName     DownloadFile = ImgName         Ret = URLDownloadToFile(0, DownloadFile, SaveFileName, 0, 0)     'If Ret = 0 Then         'MsgBox "ダウンロードできました"     'Else         'MsgBox "エラーが発生しました"     'End If End Sub

参照設定で

FileSystemObjectを参照しています。

あちらこちらのサイトから、情報を貰って作りました。

オリジナルの部分は、arc_pathの指定ぐらいです。
こんな指定でも、画像を表示してくれる、web.archive.org　サイトはすごいです。

一時間近く、画像を取りに行っていますが、今日取得できたのは４枚だけでした。

Ｓ－Ｎ関連の画像は、アーカイブにはなかったのですが、「jitensha_tanken」でGoogleの検索を掛けた際に見つけたものです。

時間は掛かりますが、スクリプトが出来て、ワンクリックで取得できるので、時々、画像を取りに行きます。