tiddly5いい感じなんだけど
IEで保存ボタンでdownloadフォルダに memo(n).htmみたいな感じでどんどん新しく保存されていく。
名前が変わっていくし、めんどくさいので
以下のスクリプト作成 デスクトップwikiにmemo.htm おいて開く前に最新に置き換えるスクリプトです
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 |
dim fso set fso = createObject("Scripting.FileSystemObject") dim dirName dim targetMemo dim folder dim file dim lastDatetime dim targetFile dirName="C:\Users\user\Downloads" targetMemo="C:\Users\user\Desktop\wiki\memo.htm" Set tfn = fso.GetFile(targetMemo) 'memo.htmの最終更新日時を取得 memoLastDatetime=tfn.DateLastModified 'if StrComp(memoLastDatetime , tfn.DateLastModified)<0 then ' memoLastDatetime=tfn.DateLastModified 'end if set folder = fso.getFolder(dirName) ' ファイル一覧 lastDatetime="1900/01/01 00:00:00" for each file in folder.files if InStr(file.name,"memo")=1 then 'msgbox lastDatetime & "<>" & file.DateCreated if StrComp(lastDatetime , file.DateLastModified)<0 then lastDatetime=file.DateLastModified targetFile=file.name end if end if next ’MsgBox "ダウンロード:" & lastDatetime & vbCrLf & " memo:" & memoLastDatetime if StrComp(memoLastDatetime , lastDatetime)<0 then MsgBox targetFile & vbCrLf & "⇒" & targetMemo & vbCrLf & " コピーします" fso.CopyFile dirName & "\" & targetFile,targetMemo,true end if Set fso = Nothing CreateObject("Shell.Application").ShellExecute targetMemo |