a=inputbox("何分後にアラームを鳴らしますか？半角数字を入力してください。")
if a<>"" then
b=dateadd("n",cint(a),time)
do while time<b
WScript.Sleep 100
loop
msgbox "時間になりました。",4096
end if
Option Explicit
dim fso
Set fso=CreateObject("Scripting.FileSystemObject")
dim objargs,i
Set objArgs = WScript.Arguments
if objArgs.Count=0 then
msgbox"このスクリプトは『送る』メニューなどにショートカットを登録して使ってください"
elseif objArgs.Count>1 then
msgbox"複数のファイルを同時にRenameすることは出来ません。ごめんなさい。。。"
else
dim fn,newn,a,b,er
fn=objArgs(0)
a=fn:while instr(a,"\")<>0:a=mid(a,2):wend
b=a:while left(b,1)<>".":b=mid(b,2):wend:b=mid(b,2)
newn=inputbox(a+"の拡張子を変更します。"+vbcrlf+"遅いPCでは拡張子名変更後"+vbcrlf+"数秒してからエクスプローラーでの表示が更新されます。"+vbcrlf+"微妙な『間』に戸惑わないよう注意。","拡張端子名の変更",b)
a=fn:while right(a,1)<>".":a=left(a,len(a)-1):wend
if instr(newn,"\")<>0 then er=1
if instr(newn," ")<>0 then er=1
if er=1 then
msgbox newn+"という拡張端子は使用できません。"
elseif newn<>"" then
' msgbox fn+vbcrlf+a+newn
fso.MoveFile fn,a+newn
' msgbox "処理を完了しました。"
else
end if
end if
'For I = 0 to objArgs.Count - 1
' WScript.Echo objArgs(I)
'Next
現在のフォルダに選択ファイルを複写します。Explorerをメインに使用している方には必要ないスクリプトです。
Option Explicit
dim fso
Set fso=CreateObject("Scripting.FileSystemObject")
dim objargs,i
Set objArgs = WScript.Arguments
if objArgs.Count=0 then
msgbox"このスクリプトは『送る』メニューなどにショートカットを登録して使ってください"
elseif objArgs.Count<>0 then
dim n,filename,extname,copynum
dim a
for n=0 to objArgs.Count-1
filename=objArgs(n)
a=filename
do while instr(a,".")<>0
a=mid(a,2)
loop
extname=a
filename=left(filename,len(filename)-len(extname)-1)
copynum=2
do while fso.fileexists(filename+"_"+trim(cstr(copynum))+"."+extname)=true
copynum=copynum+1
loop
fso.copyfile filename+"."+extname,filename+"_"+trim(cstr(copynum))+"."+extname,false
next
end if
『送る』で、そのファイルがあるフォルダを開きます。スタートメニューの『検索』結果などに使用すると便利。
Option Explicit
dim fso
Set fso=CreateObject("Scripting.FileSystemObject")
dim objargs,i
Set objArgs = WScript.Arguments
if objArgs.Count=0 then
msgbox"このスクリプトは『送る』メニューなどにショートカットを登録して使ってください"
elseif objArgs.Count>1 then
msgbox"操作ミス防止のため、複数のファイルを同時に開く機能は搭載していません。ごめんなさい。。。"
else
dim fn
fn=objArgs(0)
while right(fn,1)<>"\":fn=left(fn,len(fn)-1):wend
dim obj
Set obj = CreateObject("WScript.Shell")
obj.Run("start " & fn)
end if