toolFunction


  JoinRegfile



  
REM ******************************************************
REM 指定ディレクトリ下にある .reg を全て結合して
REM 一つの .reg ファイルにする
REM ******************************************************
Function JoinRegfile( strTarget, strPath )

	Dim objFolder,colFiles,objFile,aData,strData,strOut

	GetFso

	Set objFolder = Fso.GetFolder( strTarget )

	Set colFiles = objFolder.Files

	strOut = ""

	For Each objFile In colFiles
		aData = Split( objFile.Name, "." )
		strData = Ucase( aData( Ubound(aData) ) )
		if strData = "REG" then
			strData = GetTextFileUnicode( objFile.Path )
			if strOut <> "" then
				aData = Split( strData, vbCrLf )
				aData( 0 ) = ""
				strData = Join( aData, vbCrLf )
			end if
			strOut = strOut & strData
		end if
	Next

	Call PutTextFileUnicode( strPath, strOut )

End Function
  










  infoboard   管理者用   
このエントリーをはてなブックマークに追加




SQLの窓  天気  IT用語辞典
Yahoo!ニュース  マルチ辞書
PHP マニュアル  Google URL短縮 


フリーフォントWEBサービス
SQLの窓WEBサービス

SQLの窓フリーソフト

素材

一般WEBツールリンク

SQLの窓

フリーソフト

JSライブラリ