その他

Chromeブックマークマネージャのブックマークを展開し、フォルダ・ファイルにしてエクスポート（8／15）[No51]

スポンサーリンク

前回までお話していた、自作したプログラムの紹介を行った記事（下記リンク）の続きで、今回は８記事目になります。

no image
Chromeブックマークマネージャのブックマークを展開し、フォルダ・ファイルにしてエクスポート（7／15）[No50]
前回までお話していた、自作したプログラムの紹介を行った記事（下記リンク）の続きで、今回は７記事目になります。 長いファイルなので小分けにして書いていきますが、全て同じファイル「bkm ...

長いファイルなので小分けにして書いていきますが、全て同じファイル「bkmksopen3_04.vbs」に書いて下さい。

ソースコード


Option Explicit

'*************************************************************************
Include("D:\Application\BookmarkMakeFile\FunctionsCollection.vbs")
Sub Include(ByVal InputFilePath)
	Dim strFile
	Dim ObjFSO : Set ObjFSO = Wscript.CreateObject("Scripting.FileSystemObject")
	Dim ObjInputFile : Set ObjInputFile = ObjFSO.OpenTextFile(InputFilePath, 1, False, 0)
	ExecuteGlobal ObjInputFile.ReadAll()
	ObjInputFile.Close : Set ObjInputFile = Nothing
	Set ObjFSO = Nothing
End Sub
'*************************************************************************
'------------------------------------------------------------------------
'カレントディレクトリのパスを取得する
'------------------------------------------------------------------------
Dim CurDir : CurDir = GetCurDir()
Call MyselfMsgBox01(WScript.scriptname,"001","CurDir",CurDir)
'------------------------------------------------------------------------
'1秒間停止する
'------------------------------------------------------------------------
WScript.Sleep 1000
'------------------------------------------------------------------------
'MsgBoxの設定
'------------------------------------------------------------------------
Dim strText01
	strText01 = strText01 & ""
	strText01 = strText01 & "[1/2]Do you want to expand Bookmark?"
	strText01 = strText01 & Chr(13) & Chr(10)
	strText01 = strText01 & "[Yes]Process/[No]do not process."

Dim strText02
	strText02 = strText02 & ""
	strText02 = strText02 & "[2/2]Do you want to expand otherbookmark?"
	strText02 = strText02 & Chr(13) & Chr(10)
	strText02 = strText02 & "[Yes]Process/[No]do not process."

Dim style : style = vbYesNo + vbInformation + vbDefaultButton1
Dim title : title = "Process Confirmation"
'------------------------------------------------------------------------
'◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇
'------------------------------------------------------------------------
'MsgBoxで処理を継続するか確認する
'------------------------------------------------------------------------
Call DisplaySelectionScreen(strText01, style, title,CurDir)
'------------------------------------------------------------------------
'フォルダ「bookmark」の存在チャック・作成・vbsファイルコピー
'------------------------------------------------------------------------
Call CreateFolder(curDir & "\" & "bookmark")
Call RunCopyFile_bookmark(CurDir)
'------------------------------------------------------------------------
'vbsファイルを実行する
'------------------------------------------------------------------------
Dim vbsFilePath01 : vbsFilePath01 = curDir & "\" & "bookmark" & "\" & "bkmksopen4_01.vbs"
Dim returnErrNo : returnErrNo = RunVBSFile(vbsFilePath01)
If (returnErrNo = 0) Then
	'------------------------------------------------------------------------
	'◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇
	'------------------------------------------------------------------------
	'MsgBoxで処理を継続するか確認する
	'------------------------------------------------------------------------
	Call DisplaySelectionScreen(strText02, style, title, CurDir)
	'------------------------------------------------------------------------
	'フォルダ「otherbookmark」の存在チャック・作成・vbsファイルコピー
	'------------------------------------------------------------------------
	Call CreateFolder(curDir & "\" & "otherbookmark")
	Call RunCopyFile_otherbookmark(CurDir)
	'------------------------------------------------------------------------
	'vbsファイルを実行する
	'------------------------------------------------------------------------
	Dim vbsFilePath02 : vbsFilePath02 = curDir & "\" & "otherbookmark" & "\" & "bkmksopen4_01.vbs"
	Call RunVBSFile(vbsFilePath02)
End If
	'◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇
	'------------------------------------------------------------------------
	'作業ファイルを削除する
	'------------------------------------------------------------------------
	Call DisplaySelectionScreen_Delete(curDir)
	'------------------------------------------------------------------------
	'作業ファイルを削除する
	'------------------------------------------------------------------------
	MsgBox "Has completed!!!"

処理内容

  • 確認画面を表示して処理状況を確認します。
  • 「bookmark」フォルダを作成し「workfile3_03_01.html」を「list.html」に名前変更して格納します。その他必要なファイルもコピーしていれます。
  • 「otherbookmark」フォルダを作成し「workfile3_03_02.html」を「list.ht,;」に名前変更して格納します。その他必要なファイルもコピーしていれます。
  • 「bkmksopen4_01.vbs」をそれぞれのフォルダで実行していきます。

プログラムについて

今回の「Chromeブックマークマネージャのブックマークを展開し、フォルダ・ファイルにしてエクスポート」の内容はファイル数が多いため、下記リンクの全１５記事に分けてファイルごとに紹介しています。
※この記事の続きは９記事目になります。

最後までお付き合いいただきありがとうございます！

この情報が誰かの役にたてれば幸いです。

スポンサーリンク

-その他