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)