GINPRO / SQLの窓と銀プログラマ

初期投稿

2014-07-13


yahoo! ブログから、ameba へ移転されていました。

元々は、『どうしてこうなった　「Yahoo!知恵袋」人気の質問が再現ドラマに』

ここで最初に紹介されているのが、「家に帰ると妻が必ず死んだふりをしています」

その冒頭が、
家に帰ると妻が必ず死んだふりをしています。
どういうことなのでしょうか？
家に帰り玄関を開けると妻が倒れていました。
最初は驚きましたが毎日やるので
ほら起きてと流すようになりました。
すると翌日は口から血を流しており、
1週間後は白いTシャツが血まみれだったり

とあります。

『えええ?』

と、ちょっと心配してしまいますが・・・

最後のオチが
軍服はアーミーショップで揃えたようです。無駄遣いしないようにと注意しましたら今日はお手製のワニと思われる生き物に食べられていました。


と、想像しただけで笑うしか無い、とても楽しい内容です。

で、この質問主さんは、これをきっかけにブログを立ち上げたらしく、『家に帰ると妻が必ず死んだふりをしています』の最初の書き込みがこの質問内容です。

※ 2010/9/8 から、2014/7/4( 最新 ) 

で、すぐ続くんですよ。とても面白く最高です。

マイケルジャクソンが私の部屋にお見舞いに来ました

禁じられた遊び

お小遣いを請求すると妻は酔っぱらいます。





初期投稿

2014-07-13

出来上がったスクリプトの名前は、以下のような仕様です。

BK_ドライブ_パス.vbs

パスの部分は、スペースを除いて \ を _ に変更しています。この名前でディレクトリがスクリプトのあるディレクトリに作成されてファイルが XCOPY でコピーされます。

スクリプトの名前を変更すると、コピー先(スクリプトがあるディレクトリ)のディレクトリ名も変更されます。

XCOPY は、新しいファイルのみをディレクトリ以下全てコピーします。

' ***********************************************************
' 処理開始
' ***********************************************************
Set Fso = Wscript.CreateObject( "Scripting.FileSystemObject" )
Set Shell = Wscript.CreateObject( "Shell.Application" )

' ***********************************************************
' 実行中ディレクトリの取得
' ***********************************************************
strPath = Wscript.ScriptFullName 
Set objFile = Fso.GetFile( strPath )
strBackupFolder = Fso.GetParentFolderName( objFile )

' ***********************************************************
' バックアップ対象ディレクトリの取得
' ***********************************************************
' マイ コンピュータを基準にディレクトリ選択
Set objFolder = Shell.BrowseForFolder( 0, "バックアップするフォルダを選択してください", &H4B, _
	"::{20D04FE0-3AEA-1069-A2D8-08002B30309D}" )
if objFolder is nothing then
	WScript.Quit
end if
if not objFolder.Self.IsFileSystem then
	WScript.Echo "ファイルシステムではありません"
	WScript.Quit
end if

strTargetFolder = objFolder.Self.Path
strName = Replace( strTargetFolder, ":", "" )
strName = Replace( strName, "\", "_" )
strName = Replace( strName, " ", "" )
strName = "BK_" & strName

' ***********************************************************
' スクリプト作成
' ***********************************************************
Set OutFile = Fso.OpenTextFile( strBackupFolder & "\" & strName & ".vbs", 2, True )

OutFile.WriteLine "strName = """ & strName & """"
OutFile.WriteLine "strTarget = """ & strTargetFolder & """"
OutFile.WriteLine "strBackupFolder = """ & strBackupFolder & """"
OutFile.Write "if MsgBox( strTarget & vbCrLf & ""のバックアップを開始します。よろしいですか? (保存先:"" & strBackupFolder & ""\"" & strName & "")"""
OutFile.WriteLine ", 1 ) = 2 then"
OutFile.WriteLine "	Wscript.Quit"
OutFile.WriteLine "end if"

OutFile.WriteLine "Set WshShell = Wscript.CreateObject( ""WScript.Shell"" )"
OutFile.Write "ExecCommand = ""cmd.exe /C """"xcopy.exe """""" & strTarget & """""" """""" & strBackupFolder & ""\"" & strName & ""\"""""
OutFile.WriteLine " /D /E /C /S /Y & PAUSE"""""""
OutFile.WriteLine "Call WshShell.Run( ExecCommand )"

OutFile.Close

WScript.Echo "バックアップスクリプト : " &  strName & ".vbs" & " を作成しました"

関連する記事

ディレクトリごと新しいファイルのみをコピーする
XCOPYで新しいファイルのみバックアップする為のスクリプトを作成するスクリプト
ディレクトリ選択

NAVER が無くなるので移行しました。

色付き文字 ( Windows10 )

⌛⏳⏩⏪⏫⏬⏭⏮⏯⏰☔☕♿⚓⚡⚪⚫⚽⚾⛄⛅⛎⛔⛪⛲⛳⛵⛹⛺⛽✅✊✋✨❌❎❓❔❕❗➰➿⭐⭕

色付き文字( 127744以降 ) : Windows10

utf8 文字ツール

シンボル
♥ ♪ ♨ ❤ 〄 〆 ⏎ ⁂ ☑ ⛐ ⛟ ⛴ ⛓

☀ ☁ ☂ ☃ ☺ ☻ ☹ ☼ ☽ ☾ ♀ ♁ ♂ ♨ ✆ ✇ ✈ ✉ ✌ ✍ ❤ 〠 〶 ☄ ☎ ☏ ☠ ☢ ☣ ☥☨☯ ♠ ♡ ♢ ♣ ♤ ♥ ♦ ♧ ♩ ♪ ♫ ♬ ♭ ♮ ♯ ⦿ ∞

⚓ ⚡ ⚽ ⚾ ⛄ ⛅ ⛔ ⛳ ⛵ ⛽ ✅ ✊ ✋ ❓ ❔ ❕ ❗ ♿ ❴ ❵ ⌚ ⌛ ⌨ ⍟ ✪

♔ ♕ ♖ ♗ ♘ ♙ ♚ ♛ ♜ ♝ ♞ ♟

♃ ♄ ♅ ♆ ♇
( JUPITER SATURN URANUS NEPTUNE PLUTO )

♈ ♉ ♊ ♋ ♌ ♍ ♎ ♏ ♐ ♑ ♒ ♓
( 牡羊座 牡牛座 双子座 蟹座 獅子座 乙女座 天秤座 蠍座 射手座 山羊座 水瓶座 魚座 )

�~ �� �� �� ㍿ �� �� ℃ ⁇ ‼ ⁈ ⁉ ℻

⚀⚁⚂⚃⚄⚅

〼 (ます) 〽 (いおりてん) ゟ (より)

Œ ¿ Ø Þ Ɵ ʘ Ͼ Ͽ Ю Ѳ ჶ ᕰ ᕱ ᕲ ᕳ ᗄ ᗆ ᗉ ᗜ ᗝ ᗢ ᗣ ᗤ ᗧ ↀ ↁ ↂ

漢字部首
⺀ ⺁ ⺄ ⺆ ⺇ ⺈ ⺊ ⺋ ⺌ ⺍ ⺕ ⺗ ⺜ ⺝ ⺥ ⺧ ⺪ ⺬ ⺮ ⺳ ⺶ ⺷ ⺻ ⺼ ⺾ ⻆ ⻊ ⻌ ⻍ ⻏ ⻖ ⻗ ⻞

丸文字
㊑ ㊙ ㊚ ㊛ ㊗ ℗ ⊕ ⊖ ⊗ ⊘ ⊙ ⊚ ⊛ ⊜ ⊝

㊀ ㊁ ㊂ ㊃ ㊄ ㊅ ㊆ ㊇ ㊈ ㊉ ㊊ ㊋ ㊌ ㊍ ㊎ ㊏ ㊐ ㊑ ㊒ ㊓ ㊔ ㊕ ㊖ ㊗ ㊘ ㊙ ㊚ ㊛ ㊜ ㊝ ㊞ ㊟ ㊠ ㊡ ㊢ ㊣ �� �� �� �� �� ㊩ ㊪ ㊫ ㊬ ㊭ ㊮ ㊯ ㊰

�@ �A �B �C �D �E �F �G �H �I �J �K �L �M �N �O �P �Q �R �S ㉑ ㉒ ㉓ ㉔ ㉕ ㉖ ㉗ ㉘ ㉙ ㉚ ㉛ ㉜ ㉝ ㉞ ㉟ ㊱ ㊲ ㊳ ㊴ ㊵ ㊶ ㊷ ㊸ ㊹ ㊺ ㊻ ㊼ ㊽ ㊾ ㊿

㋐ ㋑ ㋒ ㋓ ㋔ ㋕ ㋖ ㋗ ㋘ ㋙ ㋚ ㋛ ㋜ ㋝ ㋞ ㋟ ㋠ ㋡ ㋢ ㋣ ㋤ ㋥ ㋦ ㋧ ㋨ ㋩ ㋪ ㋫ ㋬ ㋭ ㋮ ㋯ ㋰ ㋱ ㋲ ㋳ ㋴ ㋵ ㋶ ㋷ ㋸ ㋹ ㋺ ㋻ ㋼ ㋽ ㋾

❶ ❷ ❸ ❹ ❺ ❻ ❼ ❽ ❾ ❿ ⓫ ⓬ ⓭ ⓮ ⓯ ⓰ ⓱ ⓲ ⓳ ⓴

➀ ➁ ➂ ➃ ➄ ➅ ➆ ➇ ➈ ➉ ➊ ➋ ➌ ➍ ➎ ➏ ➐ ➑ ➒ ➓

⓵ ⓶ ⓷ ⓸ ⓹ ⓺ ⓻ ⓼ ⓽ ⓾

Ⓐ Ⓑ Ⓒ Ⓓ Ⓔ Ⓕ Ⓖ Ⓗ Ⓘ Ⓙ Ⓚ Ⓛ Ⓜ Ⓝ Ⓞ Ⓟ Ⓠ Ⓡ Ⓢ Ⓣ Ⓤ Ⓥ Ⓦ Ⓧ Ⓨ Ⓩ

ⓐ ⓑ ⓒ ⓓ ⓔ ⓕ ⓖ ⓗ ⓘ ⓙ ⓚ ⓛ ⓜ ⓝ ⓞ ⓟ ⓠ ⓡ ⓢ ⓣ ⓤ ⓥ ⓦ ⓧ ⓨ ⓩ ⓪

方向
➡ ▶ ◀ ▷ ◁ ⏎

✑ ✒ ➘ ➙ ➚ ➛ ➜ ➝ ➞ ➟ ➠ ➡ ➢ ➣ ➤ ➥ ➦ ➧ ➨ ➩ ➪ ➫ ➬ ➭ ➮ ➯ ➱ ➲ ➳ ➴ ➵ ➶ ➷ ➸ ➹ ➺ ➻ ➼ ➽ ➾

☚ ☛ ☜ ☝ ☞ ☟▶ ◀ ▷ ◁ ▻ ◅

☇ ← ↑ → ↓ ↔ ↕ ↖ ↗ ↘ ↙ ↚ ↛ ↜ ↝ ↞ ↟ ↠ ↡ ↢ ↣ ↤ ↥ ↦ ↧ ↨ ↩ ↪ ↫ ↬ ↭ ↮ ↯ ↰ ↱ ↲ ↳ ↴ ↵ ↶ ↷ ↸ ↹ ↺ ↻⤴⤵

↼ ↽ ↾ ↿ ⇀ ⇁ ⇂ ⇃ ⇄ ⇅ ⇆ ⇇ ⇈ ⇉ ⇊ ⇋ ⇌ ⇍ ⇎ ⇏ ⇐ ⇑ ⇒ ⇓ ⇔ ⇕ ⇖ ⇗ ⇘ ⇙ ⇚ ⇛ ⇜ ⇝ ⇞ ⇟ ⇠ ⇡ ⇢ ⇣ ⇤ ⇥ ⇦ ⇧ ⇨ ⇩ ⇪

単位
�` �c �j �l �s ㎐ �o �p �q �t

㌀ ㌁ ㌂ �e ㌄ ㌅ ㌆ ㌇ ㌈ ㌉ ㌊ ㌋ ㌌ �i ㌎ ㌏ ㌐ ㌑ ㌒ ㌓ �` ㌕ ㌖ ㌗ �c ㌙ ㌚ ㌛ ㌜ ㌝ ㌞ ㌟ ㌠ ㌡ �a �k ㌤ ㌥ �j �d ㌨ ㌩ ㌪ �l

㌬ ㌭ ㌮ ㌯ ㌰ ㌱ ㌲ ㌳ ㌴ ㌵ �f ㌷ ㌸ ㌹ ㌺ �n ㌼ ㌽ ㌾ ㌿ ㍀ ㍁ ㍂ ㍃ ㍄ ㍅ ㍆ ㍇ ㍈ �_ �m ㍋ ㍌ �b ㍎ ㍏ ㍐ �g ㍒ ㍓ ㍔ ㍕ ㍖ �h

㎀ ㎁ ㎂ ㎃ ㎄ ㎅ ㎆ ㎇ ㎈ ㎉ ㎊ ㎋ ㎌ ㎍ �r �s ㎐ ㎑ ㎒ ㎓ ㎔ ㎕ ㎖ ㎗ ㎘ ㎙ ㎚ ㎛ �o �p �q ㎟ ㎠ �u ㎢ ㎣ ㎤ ㎥ ㎦ ㎧ ㎨ ㎩ ㎪ ㎫ ㎬ ㎭ ㎮

㎯ ㎰ ㎱ ㎲ ㎳ ㎴ ㎵ ㎶ ㎷ ㎸ ㎹ ㎺ ㎻ ㎼ ㎽ ㎾ ㎿ ㏀ ㏁ ㏂ ㏃ �t ㏅ ㏆ ㏇ ㏈ ㏉ ㏊ ㏋ ㏌ �� ㏎ ㏏ ㏐ ㏑ ㏒ ㏓ ㏔ ㏕ ㏖ ㏗ ㏘ ㏙ ㏚ ㏛ ㏜ ㏝

数字
㏠ ㏡ ㏢ ㏣ ㏤ ㏥ ㏦ ㏧ ㏨ ㏩ ㏪ ㏫ ㏬ ㏭ ㏮ ㏯ ㏰ ㏱ ㏲ ㏳ ㏴ ㏵ ㏶ ㏷ ㏸ ㏹ ㏺ ㏻ ㏼ ㏽ ㏾

㍘ ㍙ ㍚ ㍛ ㍜ ㍝ ㍞ ㍟ ㍠ ㍡ ㍢ ㍣ ㍤ ㍥ ㍦ ㍧ ㍨ ㍩ ㍪ ㍫ ㍬ ㍭ ㍮ ㍯ ㍰

⒈ ⒉ ⒊ ⒋ ⒌ ⒍ ⒎ ⒏ ⒐ ⒑ ⒒ ⒓ ⒔ ⒕ ⒖ ⒗ ⒘ ⒙ ⒚ ⒛

⅐ ⅑ ⅒ ⅓ ⅔ ⅕ ⅖ ⅗ ⅘ ⅙ ⅚ ⅛ ⅜ ⅝ ⅞ ⅟ ¼ ½ ¾

�T �U �V �W �X �Y �Z �[ �\ �] Ⅺ Ⅻ �@�A �B �C �D �E �F �G �H �I ⅺ ⅻ

㋀ ㋁ ㋂ ㋃ ㋄ ㋅ ㋆ ㋇ ㋈ ㋉ ㋊ ㋋

() 文字
㈠ ㈡ ㈢ ㈣ ㈤ ㈥ ㈦ ㈧ ㈨ ㈩ ㈪ ㈫ ㈬ ㈭ ㈮ ㈯ ㈰ �� �� ㈳ ㈴ ㈵ ㈶ ㈷ ㈸ �� ㈺ ㈻ ㈼ ㈽ ㈾ ㈿ ㉀ ㉁ ㉂ ㉃

⑴ ⑵ ⑶ ⑷ ⑸ ⑹ ⑺ ⑻ ⑼ ⑽ ⑾ ⑿ ⒀ ⒁ ⒂ ⒃ ⒄ ⒅ ⒆ ⒇

⒜ ⒝ ⒞ ⒟ ⒠ ⒡ ⒢ ⒣ ⒤ ⒥ ⒦ ⒧ ⒨ ⒩ ⒪ ⒫ ⒬ ⒭ ⒮ ⒯ ⒰ ⒱ ⒲ ⒳ ⒴ ⒵

マーク
☐ ☑ ☒ ✎ ✏ ✓ ✔ ✕ ✖ ✗ ✘ ❍ ❏ ❐ ❑ ❒ ❛ ❜ ❝ ❞ ❡ ❢ ❣ ❤ ❥ ❦ ❧ ✁ ✂ ✃ ✄

❖ ✙ ✚ ✛ ✜ ✝ ✞ ✟ ✠ ✡ ✢ ✣ ✤ ✥ ✦ ✧ ✨ ✩ ✪ ✫ ✬ ✭ ✮ ✯ ✰ ✱

✲ ✳ ✴ ✵ ✶ ✷ ✸ ✹ ✺ ✻ ✼ ✽ ✾ ✿ ❀ ❁ ❂ ❃ ❄ ❅ ❆ ❇ ❈ ❉ ❊ ❋ ҈ ҉ ۝ ۞

罫線
─ ━ │ ┃ ┄ ┅ ┆ ┇ ┈ ┉ ┊ ┋ ┌ ┍ ┎ ┏ ┐ ┑ ┒ ┓ └ ┕ ┖ ┗ ┘ ┙ ┚ ┛

├ ┝ ┞ ┟ ┠ ┡ ┢ ┣ ┤ ┥ ┦ ┧ ┨ ┩ ┪ ┫ ┬ ┭ ┮ ┯ ┰ ┱ ┲ ┳ ┴ ┵ ┶ ┷ ┸ ┹ ┺ ┻

┼ ┽ ┾ ┿ ╀ ╁ ╂ ╃ ╄ ╅ ╆ ╇ ╈ ╉ ╊ ╋ ╌ ╍ ╎ ╏ ═ ║ ╒ ╓ ╔ ╕ ╖ ╗ ╘ ╙ ╚ ╛ ╜ ╝

╞ ╟ ╠ ╡ ╢ ╣ ╤ ╥ ╦ ╧ ╨ ╩ ╪ ╫ ╬ ╭ ╮ ╯ ╰ ╱ ╲ ╳ ╴ ╵ ╶ ╷ ╸ ╹ ╺ ╻ ╼ ╽ ╾ ╿

制御コード
␀ ␁ ␂ ␃ ␄ ␅ ␆ ␇ ␈ ␉ ␊ ␋ ␌ ␍ ␎ ␏ ␐ ␑ ␒ ␓ ␔ ␕ ␖ ␗ ␘ ␙ ␚ ␛ ␜ ␝ ␞ ␟ ␠ ␡

数学
≒ ≈ ∧ ∨ ∴ ≪ ≫ √ ∛ ∜ ∫ ∬ ∭ ≦ ≧

ほぼ等しい
ほぼ等しい
論理積
論理和
ゆえに
非常に小
非常に大
平方根
立方根
4乗根
積分
二重積分
三重積分

数学(集合)
∩ ∪ ∈ ∉ ∊ ∋ ∌ ∍


その他
⁰ ⁴ ⁵ ⁶ ⁷ ⁸ ⁹ ⁺ ⁻ ⁼ ⁽ ⁾ ⁿ ₀ ₁ ₂ ₃ ₄ ₅ ₆ ₇ ₈ ₉ ₊ ₋ ₌ ₍ ₎

※ 下付き文字のサンプル => CO₂

∀ ∁ ∂ ∃ ∄ ∅ ∆ ∇ ∎ ∏ ∐ �� − ∓ ∔ ∕ ∖ ∗ ∘ ∙ ∝ ∞ �� ∠ ∡ ∢ ∣ ∤ ‖ ∦

�� ∯ ∰ ∱ ∲ ∳ ∵ ∶ ∷ ∸ ∹ ∺ ∻ ∼ ∽ ∾ ∿ ≀ ≁ ≂ ≃ ≄ ≅ ≆ ≇ ≉ ≊ ≋ ≌ ≍ ≎ ≏ ≐ ≑

≓ ≔ ≕ ≖ ≗ ≘ ≙ ≚ ≛ ≜ ≝ ≞ ≟ ≠ ≡ ≢ ≣ ≤ ≥ ≨ ≩ ≬ ≭ ≮ ≯ ≰ ≱ ≲ ≳ ≴ ≵ ≶

≷ ≸ ≹ ≺ ≻ ≼ ≽ ≾ ≿ ⊀ ⊁ ⊂ ⊃ ⊄ ⊅ ⊆ ⊇ ⊈ ⊉ ⊊ ⊋ ⊌ ⊍ ⊎ ⊏ ⊐ ⊑ ⊒ ⊓ ⊔ ⊕ ⊖ ⊗ ⊘ ⊙ ⊚ ⊛

⊜ ⊝ ⊞ ⊟ ⊠ ⊡ ⊢ ⊣ ⊤ ⊥ ⊦ ⊧ ⊨ ⊩ ⊪ ⊫ ⊬ ⊭ ⊮ ⊯ ⊰ ⊱ ⊲ ⊳ ⊴ ⊵ ⊶ ⊷ ⊸ ⊹ ⊺ ⊻ ⊼ ⊽ ⊾ �� ⋀ ⋁

⋂ ⋃ ⋄ ⋅ ⋆ ⋇ ⋈ ⋉ ⋊ ⋋ ⋌ ⋍ ⋎ ⋏ ⋐ ⋑ ⋒ ⋓ ⋔ ⋕ ⋖ ⋗ ⋘ ⋙ ⋚ ⋛ ⋜ ⋝ ⋞ ⋟ ⋠ ⋡ ⋢ ⋣ ⋤ ⋥ ⋦ ⋧ ⋨ ⋩ ⋪ ⋫ ⋬ ⋭

‰ ‱ ′ ″ ‴ ‵ ‶ ‷ ‸ ‹ › ※ ‼ ‽ ‾ ‿ ⁀ ⁁ ⁂ ⁃ ⁄ ⁅ ⁆ ⁇ ⁈ ⁉


他言語
Ѡ ஔ ௐ ௵ ௸ ൠ ෴

⇩⇩⇩⇩ 黒薔薇シンデレラ・赤薔薇シンデレラ のダウンロード ⇩⇩⇩⇩

▼ 黒薔薇シンデレラ


黒薔薇シンデレラは
漢字等をかなに合わせて
縦長+棘加工を施した上で
ぎゅっと詰まっています

ライセンスはM+フォントに準じます

M+フォントについては、こちらを参照するといいと思います

これらのフォントはフリー（自由な）ソフトウエアです。
あらゆる改変の有無に関わらず、また商業的な利用であっても、
自由にご利用、複製、再配布することができますが、
全て無保証とさせていただきます。


▼ 赤薔薇シンデレラ


赤薔薇シンデレラは
M+らしさはそのままに
もっと激しく
トゲトゲさせたものです


▼ 黒薔薇シンデレラ


▼ 赤薔薇シンデレラ

⇩⇩⇩⇩ ざっくりゴシック のダウンロード ⇩⇩⇩⇩



ざっくりゴシックって
漢字部分だけ使って
装飾すると
おもしろいと思います。

M+ FONTS
再配布不可

商用利用可能
リンクや利用報告の必要はありません




鉛筆で文字を斜めに塗りつぶしたようなゴシック体です。

とって  もおもしろい
雰囲気ですね
ここでは改行が
大きいので注意が必要です

イラストAC より無料でダウンロードできます。

昼間の風景は DAZ3D : 晴天の中世建築風の街の風景 / Harpsburg for Daz Studio からダウンロードできます