7c22 「TestDisk」

ハードディスクのＭＢＲ（マスター・ブート・レコード）を書き直して、パティションを回復させるフリーソフトがあった。でも、使いにくそう。下記サイトからコピー。

http://lets-go.hp.infoseek.co.jp/testdisk1.html

【TestDisk】は、MBR（マスターブートレコード）にあるパーティションテーブルが損傷した事が原因で、パーティションを認識できなくなってしまったときのリカバリソフトです。ハードディスク上に点々と散在する残骸から、パーティションの位置・サイズ・種類などを拾い出す能力は、フリーソフトでありながら、市販のソフトを上回るものを持っています。

また、ブートセクタが壊れてしまったときに、バックアップブートセクタを使って復旧する機能を持っています。セクタのバックアップ作業は意外と手間がかかり、なおかつ、ある程度の専門知識を必要とするので、このような機能は貴重です。さらに、オリジナル&バックアップの両ブートセクタともに壊れている場合でも、ブートセクタを新規作成する機能があるので、これで窮地を脱せる可能性があります。

このようにすばらしいソフトなのですが、日本ではあまり紹介されていないようなので、解説を載せておこうと思います。・・・



ソースネクストにも、ファイル救出ソフトが1980円であった。

7c07 画像印刷ソフト「Print Album」

とても簡単で、一枚の紙に多くの画像を好きな位置に、置ける。無料の印刷ソフト「Print Album」（プリントアルバム）。　ソフト解説　

　ベクターからコピーはここ　


作成例：クリックで拡大。紙はハガキサイズに貼り付けて、Jpgで出力

JPG画像で出力できるので、用紙サイズをはがきの半分の大きさに設定して、それに画像を貼り付けて、JPGで保存した画像をブログに載せると、多くの画像を載せる事ができます。

6z29 画像を２枚並べるには

http://bbs.goo.ne.jp/ac22552/thread/1100040351110　ここから、回答

「画像を２個並べたいのですが～教えてください＾＾」

「文中の画像の場合：」
改行しなければ横に並びます。ただし、これだけでは閲覧するウィンドウサイズによっては２段になってしまうので、tableタグで表を作って入れると確実です。
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
＜table border=1＞＜tr＞＜td＞＜img width=260 src="(アドレスを書く)"＞＜/td＞＜td＞＜img width=260 src="(アドレスを書く)"＞＜/td＞＜/tr＞＜/table＞

このタグをコピーして使う時は、＜ ＞ の部分が全角なので、半角の < > に直して使う。(半角の< >だとタグが見えなくなるので全角の＜ ＞を使ったので)

テスト画像(罫線 border= を１、画像の幅 width= を260にする)

6z16 デスクトップにフォルダ、TXTファイルの新規作成スクリプト

Windows Me 使ってる人向け、Win98では一番下だけ使える。

下のリンク先のスプリクトを コピーしてTXTファイルに貼り付けてそのファイル名を「フォルダの新規作成」とか適当につけて、ファイルの拡張子を .txt から .vbs に変えるとそのまま実行ファイルになり。ダブルクリックするとデスクトップに、作成年月日がファイル名の、フォルダやTXTファイルができます。

４桁の日付時刻をフォルダ名にしたフォルダ作成　ここのスクリプト。
　　　2006年12月16日23時50分 の時のフォルダ名 ⇒ 6z16_2350

４桁の日付時刻をファイル名にした TXT ファイルの新規作成　ここのスクリプト
　　　2006年12月16日23時50分 の時のTXTファイル名 ⇒ 6z16_2350.txt

日付時刻をファイル名にしたTXTファイルの新規作成は　ここのスクリプト
　　　2006年12月16日23時50分 の時のTXTファイル名 ⇒ 2006年12月16日.txt

1600 6z16TXTファイルの新規作成

'------------------------------------------------------------------
' デスクトップに日付時刻を「ファイル名」にした
'------------------------------------------------------------------

'-------<デスクトップのパスを MyDesktop に取得>-------
Dim MyDesktop, WshShell

Set WshShell = WScript.CreateObject("WScript.Shell")
MyDesktop = WshShell.SpecialFolders("Desktop")

Dim FS
Set FS = CreateObject("Scripting.FileSystemObject")

Dim FileName, newFile, newText

FileName = MyDesktop & "" & Year(Date) & "年" & Month(Date) & "月" & Day(Date) & "日" & ".txt"

Set newFile = FS.CreateTextFile(FileName,True)
newText = Year(Date) & "年" & Month(Date) & "月" & Day(Date) & "日"
newFile.WriteLine(newText)
newFile.Close

1600 6ｚ16デスクトップにTXTファイルの新規作成

'------------------------------------------------------
' デスクトップに４桁の日付時刻を「ファイル名」にした
' TXTファイルの新規作成
'-------------------------------------------------------


'-------<デスクトップのパスを MyDesktop に取得>-------

Dim MyDesktop, WshShell

Set WshShell = WScript.CreateObject("WScript.Shell")
MyDesktop = WshShell.SpecialFolders("Desktop")

Dim FS
Set FS = CreateObject("Scripting.FileSystemObject")

Dim FileName, newFile, newText
Dim Nen, Tuki, Hi ,E

Nen = Mid(Date,4,1)
Tuki = Mid(Date,6,2)
Hi = Right(Date,2)

'-------<四桁の日付>-------------------

Select Case Tuki ' 変数 Tuki の月を一桁にする
Case "01": E = "1" ' 01 → 1 に変え、変数 E に入れる
Case "02": E = "2"
Case "03": E = "3"
Case "04": E = "4"
Case "05": E = "5"
Case "06": E = "6"
Case "07": E = "7"
Case "08": E = "8"
Case "09": E = "9"
Case "10": E = "x" ' 10月は、アルファベットの最後の３文字目の「X」
Case "11": E = "y" ' 昔の、電池や缶詰の4桁の日付の付け方
Case "12": E = "z" ' 16進数の A B C の方が良かったかもしれないが
End Select


Dim Hiduke

Hiduke = Nen + E + Hi

Dim Ji, J, Hun, H, Sec, S

Ji = Hour(time)
Hun = Minute(time)
Sec = Second(Time)

'-------<1桁の時分を2桁に>-------------------

Select Case Ji ' 変数 Ji の時刻の 1-9 を2桁にする
Case "1": J = "01" ' 1 → 01 に変え、変数 J に入れる
Case "2": J = "02"
Case "3": J = "03"
Case "4": J = "04"
Case "5": J = "05"
Case "6": J = "06"
Case "7": J = "07"
Case "8": J = "08"
Case "9": J = "09"
Case "0": J = "00"
Case Else
J = Ji
End Select

Select Case Hun ' 変数 Hun の分 1-9 を2桁にする
Case "1": H = "01" ' 1 → 01 に変え、変数 H に入れる
Case "2": H = "02"
Case "3": H = "03"
Case "4": H = "04"
Case "5": H = "05"
Case "6": H = "06"
Case "7": H = "07"
Case "8": H = "08"
Case "9": H = "09"
Case "0": H = "00"
Case Else
H = Hun
End Select

Select Case Sec ' 変数 Sec の秒 1-9 を2桁にする
Case "1": S = "01" ' 1 → 01 に変え、変数 S に入れる
Case "2": S = "02"
Case "3": S = "03"
Case "4": S = "04"
Case "5": S = "05"
Case "6": S = "06"
Case "7": S = "07"
Case "8": S = "08"
Case "9": S = "09"
Case "0": S = "00"
Case Else
S = Sec
End Select

'-------<TXTファイルを新規作成する>------

FileName = MyDesktop & "" & Hiduke & "_" & J & H & ".txt"

Set newFile = FS.CreateTextFile(FileName,True)
newText = Year(Date) & "年" & Month(Date) & "月" & Day(Date) & "日" & "_" & J & "時" & H & "分"
newFile.WriteLine(newText)
newFile.Close

1600_6z16 デスクトップに４桁の日付時刻を「ファイル名」にしたフォルダの新規作成

'-------------------------------------------------------
' デスクトップに４桁の日付時刻を「ファイル名」にした
' フォルダの新規作成
'-------------------------------------------------------


'-------<デスクトップのパスを MyDesktop に取得>-------

Dim MyDesktop, WshShell

Set WshShell = WScript.CreateObject("WScript.Shell")
MyDesktop = WshShell.SpecialFolders("Desktop")

Dim FS
Set FS = CreateObject("Scripting.FileSystemObject")

Dim FileName, newFile, newText
Dim Nen, Tuki, Hi ,E

Nen = Mid(Date,4,1)
Tuki = Mid(Date,6,2)
Hi = Right(Date,2)

'-------<四桁の日付>-------------------

Select Case Tuki ' 変数 Tuki の月を一桁にする
Case "01": E = "1" ' 01 → 1 に変え、変数 E に入れる
Case "02": E = "2"
Case "03": E = "3"
Case "04": E = "4"
Case "05": E = "5"
Case "06": E = "6"
Case "07": E = "7"
Case "08": E = "8"
Case "09": E = "9"
Case "10": E = "x" ' 10月は、アルファベットの最後の３文字目の「X」
Case "11": E = "y" ' 昔の、電池や缶詰の4桁の日付の付け方
Case "12": E = "z" ' 16進数の A B C の方が良かったかもしれないが
End Select


Dim Hiduke

Hiduke = Nen + E + Hi

Dim Ji, J, Hun, H, Sec, S

Ji = Hour(time)
Hun = Minute(time)
Sec = Second(Time)

'-------<1桁の時分を2桁に>-------------------

Select Case Ji ' 変数 Ji の時刻の 1-9 を2桁にする
Case "1": J = "01" ' 1 → 01 に変え、変数 J に入れる
Case "2": J = "02"
Case "3": J = "03"
Case "4": J = "04"
Case "5": J = "05"
Case "6": J = "06"
Case "7": J = "07"
Case "8": J = "08"
Case "9": J = "09"
Case "0": J = "00"

Case Else
J = Ji
End Select

Select Case Hun ' 変数 Hun の分 1-9 を2桁にする
Case "1": H = "01" ' 1 → 01 に変え、変数 H に入れる
Case "2": H = "02"
Case "3": H = "03"
Case "4": H = "04"
Case "5": H = "05"
Case "6": H = "06"
Case "7": H = "07"
Case "8": H = "08"
Case "9": H = "09"
Case "0": H = "00"
Case Else
H = Hun
End Select

Select Case Sec ' 変数 Sec の秒 1-9 を2桁にする
Case "1": S = "01" ' 1 → 01 に変え、変数 S に入れる
Case "2": S = "02"
Case "3": S = "03"
Case "4": S = "04"
Case "5": S = "05"
Case "6": S = "06"
Case "7": S = "07"
Case "8": S = "08"
Case "9": S = "09"
Case "0": S = "00"
Case Else
S = Sec
End Select

'-------<フォルダを新規作成する>------

FileName = MyDesktop & "" & Hiduke & "_" & J & H
Set newFile = FS.CreateFolder(FileName)