WSH/touch のバックアップソース(No.1)

バックアップ一覧
差分を表示
現在との差分を表示
バックアップを表示
WSH/touch へ行く。
- 1 (2010-07-18 (日) 17:46:22)
- 2 (2010-07-18 (日) 17:50:04)

　「あるファイルのタイムスタンプを、別のファイルのタイムスタンプで更新したい」って時に、結構便利なんじゃないかな？ってスクリプトです。

*** touch.vbs [#jcaf874e]
#ref(touch.vbs);
 '
 ' 第2引数以降のファイルのタイムスタンプを
 ' 第1引数のファイルのタイムスタンプで更新する。
 '
 ' @authoer Jomora( kazuhiko@jomura.net http://jomura.net )
 ' @version 2010.07.18 初版作成
 
 
 '**Start Encode**
 
 Set objArgs = WScript.Arguments.Unnamed
 If objArgs.Count < 2 Then
 	WScript.Echo "2つ以上のファイルを指定してください。"
 	WScript.Quit
 End If
 
 ' main
 
 Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
 Set objShell = CreateObject("Shell.Application")
 
 ' タイムスタンプ取得
 modifyDate = objFSO.GetFile(objArgs.Item(0)).DateLastModified
 
 ' タイムスタンプ設定
 For i = 1 To objArgs.Count - 1
 	Set objFile = objFSO.GetFile(objArgs.Item(i))
 '	WScript.Echo "path:" & objFile.ParentFolder.Path & " name:" & objFile.Name
 	Set shellFolder = objShell.NameSpace(objFile.ParentFolder.Path)
 	Set shellFile = shellFolder.ParseName(objFile.Name)
 	shellFile.ModifyDate  = modifyDate
 Next
 
 WScript.Quit