Windowsでスクリプティングのバックアップ(No.1)

バックアップ一覧
差分を表示
現在との差分を表示
ソースを表示
Windowsでスクリプティングへ行く。
- 1 (2006-05-28 14:16:24 (日))
- 2 (2006-05-28 14:30:22 (日))

Option Explicit
Dim objWshShell, objShortcut, strHomeDirPath, strTargetDirName, strTargetDirPath

Set objWshShell = WScript.CreateObject("WScript.Shell")

If 0=WScript.Arguments.Count Then 
  msgbox "no arg"
  WScript.Quit 
Else 
  Dim objFileSystem
  Set objFileSystem = WScript.CreateObject("Scripting.FileSystemObject")
  strTargetDirPath = WScript.Arguments(0)
  strTargetDirName = objFileSystem.GetBaseName(strTargetDirPath)
End If 

strHomeDirPath = objWshShell.ExpandEnvironmentStrings("%HOME%")

Set objShortcut = objWshShell.CreateShortcut(strHomeDirPath & "\" & strTargetDirName & ".lnk")

objShortcut.Description = strTargetDirName
objShortcut.TargetPath = strTargetDirPath
objShortcut.Save

Windowsでスクリプティング のバックアップ(No.1)

Windowsでスクリプティングのバックアップ(No.1)