tiddlywiki5 保存がダウンロードフォルダになるのでコピーして起動するスクリプト


tiddly5いい感じなんだけど
IEで保存ボタンでdownloadフォルダに memo(n).htmみたいな感じでどんどん新しく保存されていく。
名前が変わっていくし、めんどくさいので
以下のスクリプト作成 デスクトップwikiにmemo.htm おいて開く前に最新に置き換えるスクリプトです

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

 

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です