放置庫

とりあえず手を出してみる。
May 15

資料収集スクリプト.vbs

‘資料収集スクリプト
‘概要：選択したファイルについて、特定のフォルダ(target)にコピーorショートカット作成する。
‘20070223作成
‘20070309改修：複数ファイルに対応

Set WSHShell = WScript.CreateObject(“WScript.Shell”)
Set arg = WScript.Arguments
Set Fs = WScript.CreateObject(“Scripting.FileSystemObject”)

‘取込先フォルダ。任意指定してください。
target=”C:\Documents and Settings\@@@@@@\My Documents\_資料"

for i=0 to arg.length-1

Select Case MsgBox(“ｼｮｰﾄｶｯﾄのみ作成？”& vbCrLf & _
   ”　　はい：ｼｮｰﾄｶｯﾄ作成　いいえ：実体ｺﾋﾟｰ”,vbYesNoCancel,Fs.getFileName(arg(i)) & “を資料フォルダに追加”)
 Case vbYes
  Set objSc = WSHShell.CreateShortcut(target & Fs.getFileName(arg(i)) & “.lnk”)
  objSc.TargetPath=arg(i)
  objSc.Save
 Case vbNo
  Fs.CopyFile arg(i),target
 Case vbCancel
End Select

next