ファイルのタイムスタンプを更新したい。unix の touch みたいな。

を10行位、で。

touch.vbs

Set FSO = CreateObject("Scripting.FileSystemObject")
file = WScript.Arguments(0)
If WScript.Arguments.Count > 1 Then
    dt = WScript.Arguments(1)
Else
    dt = Now
End If
 
With CreateObject("Shell.Application")
    With .NameSpace(FSO.GetParentFolderName(file))
        .Items.Item(FSO.GetFilename(file)).ModifyDate = dt
    End With
End With

くらいでどうでしょうか。役だった?

選択肢 投票
はい 24  
いいえ、ケフィアです 16  

作成日 2008-09-10 (水) 11:55:05

投稿者メソ | パーマリンク | トラックバック(103) | コメント(2)

Tag: WSH 10行くらい


  • 4行目「.」の前の「s」が不要 dt = WScripts.Arguments(1) ⇒ dt = WScript.Arguments(1) -- Noname? 2010-11-26 (金) 10:37:10
  • すんません、今頃気付きました。修正しました。 -- メソ 2010-12-17 (金) 19:49:21

URL B I U SIZE Black Maroon Green Olive Navy Purple Teal Gray Silver Red Lime Yellow Blue Fuchsia Aqua White