その他

Chromeブックマークマネージャのブックマークを展開し、フォルダ・ファイルにしてエクスポート(9/15)[No52]

スポンサーリンク

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

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

長いファイルなので小分けにして書いていきますが、全て同じファイル「bkmksopen4_01.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)
'------------------------------------------------------------------------
'htmlファイルを読み込む
'------------------------------------------------------------------------
Dim inputFilePath  : inputFilePath = curDir & "\" & "list.html"
Call CheckFileExists(inputFilePath)
Dim record : record = ReadFile_ADODBStream(inputFilePath)
'------------------------------------------------------------------------
'list.htmlの中が空であればhtml,vbsファイル削除
'------------------------------------------------------------------------
If (Len(record) = 0 or Len(record) = 1 or Len(record) = 2 or Len(record) = 3) Then
	Call RunDeleteFile02(CurDir)
	WScript.Quit
End If
'------------------------------------------------------------------------
'◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇
'------------------------------------------------------------------------
'vbsファイルを実行する
'------------------------------------------------------------------------
Dim vbsFilePath : vbsFilePath = curDir & "\" & "bkmksopen4_02.vbs"
Dim returnErrNo : returnErrNo =  RunVBSFile(vbsFilePath)
WScript.Quit(returnErrNo)

プログラムについて

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

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

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

スポンサーリンク

-その他