カウンタ
プロフィール

sc440ge

Author:sc440ge
「あめた」です。大ケガをして拾われたニャン。サーバーの空き箱に入ってるニャン。
「あめた」ありがとう。
20130603

sc440ge@yahoo.co.jp
パソコン価格情報

 [2008/09/05] *

懐かしのZipドライブ




■■■■■■■■■■ Entry Start ■■■■■■■■■■


・ブログトップへ戻る



[PC古箱]
<--- 最新価格情報へ
<--- パソコン・ソフトの記事へ





[ 懐かしのZipドライブ ]

今回は懐かしのZipドライブについてです。 倉庫を整理していたら、Zipドライブが出てきました。Zipと言えば、圧縮形式の一つだと思われる方も多いと思いますが、このZipは別物です。 

Zipドライブは10年ほど前に購入したものです。 写真に値札がついたままですが、約1万円くらいでした。どんなものかというと、フロッピーディスク100枚が1枚になったディスクを使えるって感じです。 バックアップ用に使ってました。 接続はなんとパラレルです。

[箱と本体]
080905_zip_01.jpg


[左上がフロッピーディスク / 右上がZip]
080905_zip_02.jpg

[正面]
080905_zip_03.jpg


[側面]
080905_zip_04.jpg

[背面] 左側にパソコンから接続、右側はパラレルのプリンターへ。
080905_zip_05.jpg

[ノートパソコンとZipドライブ]
080905_zip_06.jpg


[XP] Iomegaのホームページからドライバを落としてインストールするとXPでも認識できます。
080905_zip_07.jpg


関連記事



・ブログトップへ戻る



ちょっと待ってニャン。まだ何か買うニャンか? パソはやめれないニャンか?いたずらしないからゲージから出してニャン。拍手はちょっとだけ好きニャン。
ame-thinks.jpg




パーツ・周辺機器 | 【2008-09-05(Fri) 14:48:39】 | Trackback(-) | Comments(-)
編集  

 
Ads by Google 1
最新記事

[Key]
vbCrLf Chr(10) Chr(13) Application.WorksheetFunction.Max End(xlUp) ActiveCell.Row - 1 Cells(11,"B").Select Worksheet_SelectionChange UserForm Application.Wait Now() Application.Speech.Speak CreateObject("SAPI.SpVoice") voice.getdescription() Do While  TimeValue< Len vbNarrow Replace trim Until  Exit Do Like Right UBound Split vbLf ActiveSheet.Hyperlinks.Add Anchor Range GetVoices.Count voice.getdescription Item ColumnCount ColumnWidths  ColumnCount ColumnWidths Cells(10, "IV").End(xlToLeft).Column .PageSetup.PrintArea Label ComboBox CheckBox OptionButton ListBox vlookup NumberFormatLocal  Application.GoTo Reference:=Range("$B$4"), Scroll:=True ActiveSheet.ScrollArea = "A1:D65536"  Cells(1, "A").NumberFormatLocal = "yy/mm/dd" Selection.Delete Shift:=xlUp IsError Application.VLookup DoEvents Loop CriteriaRange AdvancedFilter Action:=xlFilterInPlace .SaveAs , xlCSVActiveSheet.Hyperlinks.Add Anchor:=Selection, Address< Dir(ThisWorkbook.Path & "\*") Set myRng = myData.Find(myWord, LookAt:=xlPart) Application.WorksheetFunction.Match InStr Left Mid Trim Replace StrConv vbNarrow ComboBox1.AddItem ListBox1.AddItem Like 'ActiveCell.Interior.ColorIndex = 37 Rows(ActiveCell.Row).Interior.ColorIndex = xlNone Selection.ClearContents Selection.Clear Range(Cells(myRow1, "A"), Cells(myRow2, "C")).ClearContents ActiveSheet.PageSetup.PrintArea = "$A$2:$C$10"