その他

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

スポンサーリンク

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

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

長いファイルなので小分けにして書いていきますが、全て同じファイル「bkmksopen4_07.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 & "★処理ファイル名：bkmksopen4_07.vbs[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 & "★処理ファイル名：bkmksopen4_07.vbs[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 = "Processing confirmation"
'------------------------------------------------------------------------
'htmlファイルを設定する
'------------------------------------------------------------------------
Dim htmlFileName : htmlFileName = "list.html"
'------------------------------------------------------------------------
'◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇
'------------------------------------------------------------------------
'Inputファイルを読み込む
'------------------------------------------------------------------------
Dim inputFilePath01 : inputFilePath01 = curDir & "\" & "workfile4_06_01.html"
Dim record : record = ReadFile_ADODBStream(inputFilePath01)
'------------------------------------------------------------------------
'◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇
'------------------------------------------------------------------------
'Inputファイルを読み込む
'------------------------------------------------------------------------
Dim inputFilePath02 : inputFilePath02 = curDir & "\" & "workfile4_04_mfolname.html"
Dim mfolname : mfolname = ReadFile_ADODBStream(inputFilePath02)
'------------------------------------------------------------------------
'◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇
'------------------------------------------------------------------------
'Inputファイルを読み込む
'------------------------------------------------------------------------
Dim inputFilePath03 : inputFilePath03 = curDir & "\" & "workfile4_06_02_notitlelist.html"
Dim notitlelist : notitlelist = ReadFile_ADODBStream(inputFilePath03)
'------------------------------------------------------------------------
'◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇
'------------------------------------------------------------------------
'変数定義
'------------------------------------------------------------------------
If (StrComp(".\",curDir & "\" & mfolname) <> 0) Then '等しい場合：0、違う場合：1,-1
	'------------------------------------------------------------------------
	'mfolnameはあるか
	'------------------------------------------------------------------------
	If(Len(mfolname) <> 0) Then
		'------------------------------------------------------------------------
		'フォルダ作成(場所：カレントディレクトリ)
		'------------------------------------------------------------------------
		On Error Resume Next
			Call CreateFolder(curDir & "\" & mfolname)
			If Err.Number <> 0 Then
				Err.Clear
				Dim errFlag : errFlag = True
				Do While errFlag = True
				
					Dim strText
					strText = strText & ""
					strText = strText & "【" & mfolname & "】"
					strText = strText & "のフォルダ名が原因(文字コード、予約語)でエラーになりました。"
					strText = strText & Chr(13) & Chr(10)
					strText = strText & "ＯＫ(未入力の状態で)、またはキャンセルを押すと終了します。"
					mfolname = inputbox(strText)
					strText = ""
					IF mfolname = "" Then
						On Error Goto 0
						WScript.Quit(4097) 'Microsoft VBScript 実行時エラー
					End If
					Call CreateFolder(curDir & "\" & mfolname)
					errFlag = False
					If Err.Number <> 0 Then
						Err.Clear
						errFlag = True
					End If
				Loop
			End If
		On Error Goto 0
		'------------------------------------------------------------------------
	End If
	'------------------------------------------------------------------------
	'htmlファイル出力(場所：カレントディレクトリ)
	'------------------------------------------------------------------------
	Call WriteFileText_ADODBStream(curDir & "\" & htmlFileName,record)	
	'------------------------------------------------------------------------
	If(Len(notitlelist) <> 0) Then
		Dim skey : skey = "<DL><p>"
		Dim ekey : ekey = "</DL><p>"
		'------------------------------------------------------------------------
		'htmlファイル出力(場所：先程のフォルダの中)
		'------------------------------------------------------------------------
		Call WriteFileText_ADODBStream(curDir & "\" & mfolname & "\" & htmlFileName,MidLeftString(skey,ekey,notitlelist))
	End If
	'------------------------------------------------------------------------
	'vbsファイル出力(場所：先程のフォルダの中)
	'------------------------------------------------------------------------
	Call RunCopyFile_strFolder(curDir & "\" & mfolname)
	'------------------------------------------------------------------------
	'3秒間停止する
	'------------------------------------------------------------------------
	WScript.Sleep 3000
	'------------------------------------------------------------------------
	'◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇
	'------------------------------------------------------------------------
	'作業ファイルを削除する
	'------------------------------------------------------------------------
	Call RunDeleteFile03(CurDir)
	'------------------------------------------------------------------------
	'◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇
	'------------------------------------------------------------------------
	Dim returnErrNo
	'------------------------------------------------------------------------
	'◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇
	'------------------------------------------------------------------------
	'vbsファイルを実行する
	'------------------------------------------------------------------------
	Dim vbsFilePath01   : vbsFilePath01   = curDir & "\" & mfolname & "\" & "bkmksopen4_01.vbs"
	returnErrNo =  RunVBSFile(vbsFilePath01)
	'------------------------------------------------------------------------
	'◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇
	'------------------------------------------------------------------------
	'vbsファイルを実行する
	'------------------------------------------------------------------------	
	Dim vbsFilePath02   : vbsFilePath02   = curDir & "\" & "bkmksopen4_01.vbs"
	returnErrNo =  RunVBSFile(vbsFilePath02)
	WScript.Quit(returnErrNo)
	'------------------------------------------------------------------------
End If

プログラムについて

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

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

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

スポンサーリンク

-その他