vbsでchromeのブックマークファイルを、年日付時分秒を付けて特定フォルダにコピーする


vbsでchromeのブックマークファイルを、年日付時分秒を付けて特定フォルダにコピーする
コピー元やコピー先を変更して、いろいろ活用できます。
※設定しているコピー元は、windows10-64bit環境のchromeのブックマークファイルです。
例えば、このvbsファイルを、タスクスケジューラに登録すれば、定期的なファイルのバックアップも可能です。

Dim ymdhms
Dim yyyy
Dim mmdd
Dim hhmmss

yyyy = Year(Now())
mmdd = Right("0" & Month(Now()) , 2) & Right("0" & Day(Now()) , 2)
hhmmss = Right("0" & Hour(Now()) , 2) & Right("0" & Minute(Now()) , 2) & Right("0" & Second(Now()) , 2)
ymdhms = yyyy & mmdd & "_" & hhmmss

スポンサーリンク

----- べんりあつめ。-----

Dim bmPath
bmPath = "C:\任意のフォルダを指定\" & ymdhms & "_bookmark"

Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.CopyFile "C:\Users\ユーザ名\AppData\Local\Google\Chrome\User Data\Default\Bookmarks", bmPath

スポンサーリンク

スマホのみ下に表示