アプリス

お気に入りに追加

アプリス　>　いろんなサンプルコード　>

WSH簡単プログラム

フリーソフト
 アップローダー
 Let's WinMX
IPチェッカー
 .htaccessパスワード生成
 シークレットアルバム
 リンク抽出
 短縮アドレス
 動画落とし
 暗号文
 楽天アフィリエイト支援ツール

HP・ブログ設置ツールアクセスカウンター
ミニ掲示板
検索窓
お天気窓

SEO対策バックリンクチェック
検索順位チェック
METAタグ生成フォーム

サンプルコードホームページ作成テクニック
HTML基礎タグ
WSH簡単プログラム

ファイルをバックアップするスクリプト
今日更新したファイルをバックアップするスクリプト
ファイルをコピーするスクリプト
ファイルのプロパティを表示するスクリプト for VBS
ファイルのプロパティを表示するスクリプト for HTML
メモ帳を起動するスクリプト
テキストファイルを指定してメモ帳を起動するスクリプト
エクスプローラを起動するスクリプト
フォルダを指定してエクスプローラを起動するスクリプト
アプリケーションを起動するスクリプト
お気に入りを作成するスクリプト
エクスプローラにより [ マイドキュメント ] を開くスクリプト
エクスプローラにより [ 送る ] を開くスクリプト
エクスプローラにより [ お気に入り ] を開くスクリプト
エクスプローラにより [ スタートメニュー ] を開くスクリプト
エクスプローラにより [ デスクトップ ] を開くスクリプト
エクスプローラにより [ 最近使ったファイル ] を開くスクリプト
開いているウィンドウをすべて整頓するスクリプト
開いているウィンドウをすべて最小化するスクリプト
ショートカットを作成するスクリプト
ショートカットマークを表示／非表示するスクリプト
ビットマップファイルのアイコンを画像で表示するスクリプト
ウィンドウを操作するスクリプト
エクスプローラを2つ起動して左右に並べて表示するスクリプト

WSHとは？

ウィンドウズでのいろいろな動作をコントロールするためのスクリプト言語です。
※WSH = Windows Scripting Host = ウィンドウズスクリプティングホスト

WSHで何ができる？

一連の作業の自動化
繰り返し行う作業の自動化
複数のファイルの拡張子を一括に変更
同じ拡張子のファイルの抽出・コピー
など‥

ファイルの作成方法

気に入ったスクリプトのコードをコピーして、メモ帳を起動。
メモ帳内で、キーボードの Ctrl を押しながら V を押す。（貼り付け作業）
メモ帳にコードをコピーできたら、キーボードの Ctrl を押しながら S を押す。（保存作業）
- 保存する場所＝どこでもOK
- ファイル名＝プログラム集のタイトルの末が（vbs）の場合は、*.vbs、（htm）の場合は、*.htm
- ファイルの種類＝すべてのファイル
としてをクリック。

1．ファイルをバックアップするスクリプト　（vbs）

C:\WINDOWS\Web\Wallpaper\*.jpg
└ コピー元のファイルパス
C:\WINDOWS\Temp\
└ コピー先のフォルダパス
MsgBox ""
└ 終了メッセージ

Set Obj = CreateObject("Scripting.fileSystemObject") Obj.CopyFile "C:\WINDOWS\Web\Wallpaper\*.jpg","C:\WINDOWS\Temp\" MsgBox "Wallpaper フォルダ内の jpg ファイルを Temp フォルダにバックアップしました。"

2．今日更新したファイルをバックアップするスクリプト　（vbs）

Shell.SpecialFolders("MyDocuments")
└ sfp にマイドキュメントフォルダを格納
Obj.GetFolder()
└ コピー元のフォルダパス
C:\WINDOWS\Temp\
└ コピー先のフォルダパス
MsgBox ""
└ 終了メッセージ

Set Shell = CreateObject("WScript.Shell") sfp = Shell.SpecialFolders("MyDocuments") Set Obj = CreateObject("Scripting.fileSystemObject") Set rootcopy = Obj.GetFolder(sfp) For Each F In rootcopy.Files if InStr(CStr(F.DateLastModified),CStr(Date)) = 1 Then F.Copy "C:\WINDOWS\Temp\" Next MsgBox "My Documents フォルダ内の今日更新したファイルを Temp フォルダにバックアップしました。"

3．ファイルをコピーするスクリプト　（htm）

InputFil = InputTxt.value
└ コピー元に入力したパスを格納
OutputFil = OutputTxt.value
└ コピー先に入力したパスを格納
MsgBox ""
└ 終了メッセージ

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <HTML> <HEAD> <META http-equiv="Content-Type" content="text/html; charset=Shift_JIS"> <META http-equiv="Content-Style-Type" content="text/css"> <META name="author" content="Azxi"> <SCRIPT language="VBScript">  </SCRIPT> <TITLE>ファイルをコピーするスクリプト</TITLE> <STYLE type="text/css">  </STYLE> </HEAD> <BODY> <P>コピー元<BR> <INPUT size="56" type="text" name="InputTxt" value="C:\WINDOWS\Web\Wallpaper\*.jpg"></P> <P>コピー先<BR> <INPUT size="56" type="text" name="OutputTxt" value="C:\WINDOWS\Temp\"></P> <P><INPUT type="button" name="CopyBtn" value="コピー"></P> </BODY> </HTML>

4．ファイルのプロパティを表示するスクリプト for VBS　（vbs）

InputBox()
└ パス入力時のメッセージ
str = ""
└ str にファイル検出時のメッセージを格納
str = ""
└ str にファイル未検出時のメッセージを格納
MsgBox ""
└ ファイルのプロパティを表示

Set Obj = CreateObject("Scripting.fileSystemObject") fullpath = InputBox("ファイルのパスを入力してください。") If Obj.FileExists(fullpath) = True Then Set F = Obj.GetFile(fullpath) str = "ファイル名" & vbCrLf & "└ " & F.Name & vbCrLf & vbCrLf & "サイズ" & vbCrLf & "└ " & F.Size & " バイト" & vbCrLf & vbCrLf & "更新日時" & vbCrLf & "└ " & F.DateLastModified Else str = "指定したファイルが見つかりません。" End If MsgBox str

5．ファイルのプロパティを表示するスクリプト for HTML　（htm）

FPath = InputTxt.value
└ 参照したパスを FPath に格納
If...
└ ファイル／フォルダの判断
Document.write ""
└ パスが正しくないときのメッセージを表示
Document.write ""
└ 各情報を表示

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <HTML> <HEAD> <META http-equiv="Content-Type" content="text/html; charset=Shift_JIS"> <META http-equiv="Content-Style-Type" content="text/css"> <META name="author" content="Azxi"> <SCRIPT language="VBScript">  </SCRIPT> <TITLE>ファイルのプロパティを表示するスクリプト for HTML</TITLE> <STYLE type="text/css">  </STYLE> </HEAD> <BODY> <P><INPUT type="radio" name="FChk" value="file" checked> ファイル<BR> <INPUT type="radio" name="FChk" value="folder"> フォルダ</P> <P>ファイル／フォルダのパスを参照<BR> <INPUT size="56" type="file" name="InputTxt"> <INPUT type="submit" name="CheckBtn" value="表示"></P> </BODY> </HTML>

6．メモ帳を起動するスクリプト　（vbs）

Set Shell = CreateObject("WScript.Shell") Shell.Run "Notepad.exe"

7．テキストファイルを指定してメモ帳を起動するスクリプト　（vbs）

C:\WINDOWS\Temp\Sample.txt
└ テキストファイルのパスを入力

Set Shell = CreateObject("WScript.Shell") Shell.Run "Notepad.exe C:\WINDOWS\Temp\Sample.txt"

8．エクスプローラを起動するスクリプト　（vbs）

Set Shell = CreateObject("WScript.Shell") Shell.Run "explorer.exe"

9．フォルダを指定してエクスプローラを起動するスクリプト　（vbs）

C:\WINDOWS\Temp\
└ フォルダのパスを入力

Set Shell = CreateObject("WScript.Shell") Shell.Run "explorer.exe /n,/e,C:\WINDOWS\Temp\"

10．アプリケーションを起動するスクリプト　（htm）

Shell.Run "C:\WINDOWS\NOTEPAD.EXE"
└ メモ帳のパスを入力
Shell.Run "C:\WINDOWS\explorer.exe"
└ エクスプローラのパスを入力
"C:\WINDOWS\system32\mspaint.exe"
└ ペイントのパスを入力

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <HTML> <HEAD> <META http-equiv="Content-Type" content="text/html; charset=Shift_JIS"> <META http-equiv="Content-Style-Type" content="text/css"> <META name="author" content="Azxi"> <SCRIPT language="VBScript">  </SCRIPT> <TITLE>アプリケーションを起動するスクリプト</TITLE> <STYLE type="text/css">  </STYLE> </HEAD> <BODY> <P><INPUT type="button" name="Btn01" value="メモ帳"></P> <P><INPUT type="button" name="Btn02" value="エクスプローラ"></P> <P><INPUT type="button" name="Btn03" value="ペイント"></P> </BODY> </HTML>

11．お気に入りを作成するスクリプト　（vbs）

Shell.SpecialFolders("DeskTop")
└ sfp にデスクトップフォルダを格納
name = InputBox("お気に入り名を入力してください。")
└ お気に入り名を neme に格納
If name = "" Then Shell.quit
└ お気に入り名が空白であれば中断
url = InputBox("URLを入力してください。",, "http://")
└ URL を url に格納
If url = "" Then Shell.quit
└ URL が空白であれば中断

Set Shell = CreateObject("WScript.Shell") sfp = Shell.SpecialFolders("DeskTop") name = InputBox("お気に入り名を入力してください。") If name = "" Then Shell.quit url = InputBox("URLを入力してください。",, "http://") If url = "" Then Shell.quit Set URLShortcut = Shell.CreateShortcut(sfp & "\" & name & ".url") URLShortcut.targetpath = url URLShortcut.save

12．エクスプローラにより [ マイドキュメント ] を開くスクリプト　（vbs）

Shell.SpecialFolders("MyDocuments")
└ sfp にマイドキュメントフォルダを格納
Open()
└ エクスプローラで開くフォルダを指定

Set Shell = CreateObject("WScript.Shell") sfp = Shell.SpecialFolders("MyDocuments") Set IEShell = CreateObject("Shell.Application") IEShell.Open(sfp)

13．エクスプローラにより [ 送る ] を開くスクリプト　（vbs）

Shell.SpecialFolders("SendTo")
└ sfp に送るフォルダを格納
Open()
└ エクスプローラで開くフォルダを指定

Set Shell = CreateObject("WScript.Shell") sfp = Shell.SpecialFolders("SendTo") Set IEShell = CreateObject("Shell.Application") IEShell.Open(sfp)

14．エクスプローラにより [ お気に入り ] を開くスクリプト　（vbs）

Shell.SpecialFolders("Favorites")
└ sfp にお気に入りフォルダを格納
Open()
└ エクスプローラで開くフォルダを指定

Set Shell = CreateObject("WScript.Shell") sfp = Shell.SpecialFolders("Favorites") Set IEShell = CreateObject("Shell.Application") IEShell.Open(sfp)

15．エクスプローラにより [ スタートメニュー ] を開くスクリプト　（vbs）

Shell.SpecialFolders("StartMenu")
└ sfp にスタートメニューフォルダを格納
Open()
└ エクスプローラで開くフォルダを指定

Set Shell = CreateObject("WScript.Shell") sfp = Shell.SpecialFolders("StartMenu") Set IEShell = CreateObject("Shell.Application") IEShell.Open(sfp)

16．エクスプローラにより [ デスクトップ ] を開くスクリプト　（vbs）

Shell.SpecialFolders("DeskTop")
└ sfp にデスクトップフォルダを格納
Open()
└ エクスプローラで開くフォルダを指定

Set Shell = CreateObject("WScript.Shell") sfp = Shell.SpecialFolders("DeskTop") Set IEShell = CreateObject("Shell.Application") IEShell.Open(sfp)

17．エクスプローラにより [ 最近使ったファイル ] を開くスクリプト　（vbs）

Shell.SpecialFolders("Recent")
└ sfp に最近使ったファイルフォルダを格納
Open()
└ エクスプローラで開くフォルダを指定

Set Shell = CreateObject("WScript.Shell") sfp = Shell.SpecialFolders("Recent") Set IEShell = CreateObject("Shell.Application") IEShell.Open(sfp)

18．開いているウィンドウをすべて整頓するスクリプト　（vbs）

Set IEShell = CreateObject("Shell.Application") IEShell.TileVertically

19．開いているウィンドウをすべて最小化するスクリプト　（vbs）

Set IEShell = CreateObject("Shell.Application") IEShell.MinimizeAll

20．ショートカットを作成するスクリプト　（htm）

sfp = Shell.SpecialFolders("Desktop")
└ sfp にデスクトップフォルダを格納
○○○
└ ショートカット名を入力
MsgBox ""
└ 終了メッセージ

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <HTML> <HEAD> <META http-equiv="Content-Type" content="text/html; charset=Shift_JIS"> <META http-equiv="Content-Style-Type" content="text/css"> <META name="author" content="Azxi"> <SCRIPT language="VBScript">  </SCRIPT> <TITLE>ショートカットを作成するスクリプト</TITLE> <STYLE type="text/css">  </STYLE> </HEAD> <BODY> <P><INPUT size="56" type="file" name="apppath"> <INPUT type="button" value="作成" name="ShortcutBtn"></P> </BODY> </HTML>

21．ショートカットマークを表示／非表示するスクリプト　（vbs）

i = InputBox("1.ショートカットマークを表示" & vbCr & "2.ショートカットマークを非表示" & vbCr & vbCr & vbCr & "No. を入力してください。") Dim WshShell Set WshShell = WScript.CreateObject("WScript.Shell") If i = 1 Then WshShell.RegWrite "HKCR\lnkfile\IsShortcut", "" ElseIf i = 2 Then WshShell.RegDelete "HKCR\lnkfile\IsShortcut" Else WScript.Quit End If

22．ビットマップファイルのアイコンを画像で表示するスクリプト　（vbs）

i = InputBox("1.アイコン表示" & vbCr & "2.画像表示" & vbCr & vbCr & vbCr & "No. を入力してください。") Dim WshShell Set WshShell = WScript.CreateObject("WScript.Shell") If i = 1 Then WshShell.RegWrite "HKCR\Paint.Picture\DefaultIcon\", "%SystemRoot%\System32\mspaint.exe,1" ElseIf i = 2 Then WshShell.RegWrite "HKCR\Paint.Picture\DefaultIcon\", "%1" Else WScript.Quit End If

23．ウィンドウを操作するスクリプト　（vbs）

CascadeWindows
└ 重ねて表示
TileHorizontally
└ 上下に並べて表示
TileVertically
└ 左右に並べて表示
MinimizeAll
└ デスクトップを表示
UndoMinimizeALL
└ 元に戻す

Set Shell = Wscript.CreateObject("Shell.Application") Shell.CascadeWindows Shell.TileHorizontally Shell.TileVertically Shell.MinimizeAll Shell.UndoMinimizeALL

24．エクスプローラを2つ起動して左右に並べて表示するスクリプト　（vbs）

C:\WINDOWS\Temp\
└ フォルダのパスを入力
1000
└ 処理を 1 秒間空ける
TileVertically
└ 左右に並べて表示

Set Shell = CreateObject("WScript.Shell") Shell.Run "explorer.exe /n,/e,C:\WINDOWS\Temp\" Shell.Run "explorer.exe /n,/e,C:\WINDOWS\Temp\" WScript.Sleep (1000) Set Shell = Wscript.CreateObject("Shell.Application") Shell.TileVertically

sponsor's link

新着情報　　ツール一覧　　デスクトップテーマ　　リンク　　管理者　　ヘルプ　　お問い合わせ　　サイトマップ

©applis

アプリス/フリーソフト/アップローダー/1cc.jp/i06/piafis/トイプードルの飼い方/ダイエット食品/サンゲツ/リリカラ