\u5927\u91cf\u306e\u30ed\u30b0\u30d5\u30a1\u30a4\u30eb\u304b\u3089\u6700\u65b0\u306e\u30d5\u30a1\u30a4\u30eb\u306e\u307f\u3092\u53d6\u5f97\u3059\u308b\u5fc5\u8981\u304c\u3042\u3063\u305f\u306e\u3067\u3001\u7c21\u5358\u306a\u30b9\u30af\u30ea\u30d7\u30c8\u3092\u66f8\u3044\u3066\u307f\u307e\u3057\u305f\u3002<\/p>\n
Option Explicit\r\n\r\nDim Args\r\n\r\nSet Args = WScript.Arguments\r\nIf Args.Count < 1 Then WScript.Quit\r\nIf CreateObject("Scripting.FileSystemObject").FolderExists(Args(0)) = False Then WScript.Quit\r\nWScript.Echo GetRecentlyModifiedFile(Args(0))\r\n\r\nPrivate Function GetRecentlyModifiedFile(ByVal FolderPath)\r\n'\u6307\u5b9a\u3057\u305f\u30d5\u30a9\u30eb\u30c0\u5185\u3067\u6700\u3082\u66f4\u65b0\u65e5\u6642\u306e\u65b0\u3057\u3044\u30d5\u30a1\u30a4\u30eb\u306e\u30d1\u30b9\u3092\u53d6\u5f97\r\n Dim fs, f\r\n Dim d\r\n Dim ret\r\n \r\n With CreateObject("Scripting.FileSystemObject")\r\n Set fs = .GetFolder(FolderPath).Files\r\n If fs.Count > 0 Then\r\n For Each f In fs\r\n If d < f.DateLastModified Then\r\n ret = f.Path\r\n d = f.DateLastModified\r\n End If\r\n Next\r\n End If\r\n End With\r\n GetRecentlyModifiedFile = ret\r\nEnd Function<\/pre>\n\u5f15\u6570\u3068\u3057\u3066\u6e21\u3055\u308c\u305f\u30d5\u30a9\u30eb\u30c0\u5185\u306e\u30d5\u30a1\u30a4\u30eb\u306e\u66f4\u65b0\u65e5\u6642\u3092\u9806\u756a\u306b\u898b\u3066\u3044\u3063\u3066\u3001\u6700\u3082\u65b0\u3057\u3044\u30d5\u30a1\u30a4\u30eb\u306e\u30d1\u30b9\u3092\u8fd4\u3059\u3060\u3051\u306e\u7c21\u5358\u306a\u30b3\u30fc\u30c9\u3067\u3059\u3002<\/p>\n
\u3064\u3044\u3067\u306b\u3001\u30d5\u30a9\u30eb\u30c0\u5185\u306e\u30d5\u30a1\u30a4\u30eb\u306e\u66f4\u65b0\u65e5\u6642\u3092\u4e00\u89a7\u8868\u793a\u3059\u308b\u30b9\u30af\u30ea\u30d7\u30c8\u3082\u66f8\u3044\u3066\u307f\u307e\u3057\u305f\u3002
\n\u3053\u3061\u3089\u306f\u30ec\u30b3\u30fc\u30c9\u30bb\u30c3\u30c8\u3092\u4f7f\u7528\u3059\u308b\u5f62\u306b\u5909\u66f4\u3057\u3066\u3042\u308a\u307e\u3059\u3002<\/p>\n
Option Explicit\r\n\r\nDim Args\r\n\r\nSet Args = WScript.Arguments\r\nIf Args.Count < 1 Then WScript.Quit\r\nIf CreateObject("Scripting.FileSystemObject").FolderExists(Args(0)) = False Then WScript.Quit\r\nListRecentlyModifiedFiles Args(0)\r\n\r\nPrivate Sub ListRecentlyModifiedFiles(ByVal FolderPath)\r\n'\u6307\u5b9a\u3057\u305f\u30d5\u30a9\u30eb\u30c0\u5185\u306e\u30d5\u30a1\u30a4\u30eb\u3092\u66f4\u65b0\u65e5\u6642\u9806\u3067\u5217\u6319\r\n Dim rs, fs, f\r\n Const adWChar = 130\r\n Const adDBTimeStamp = 135\r\n \r\n With CreateObject("Scripting.FileSystemObject")\r\n Set fs = .GetFolder(FolderPath).Files\r\n If fs.Count > 0 Then\r\n '\u30ec\u30b3\u30fc\u30c9\u30bb\u30c3\u30c8\u8a2d\u5b9a\r\n Set rs = CreateObject("ADODB.Recordset")\r\n rs.Fields.Append "ModifyDate", adDBTimeStamp, 255\r\n rs.Fields.Append "Path", adWChar, 255\r\n rs.Open\r\n \r\n For Each f In fs\r\n rs.AddNew\r\n rs.Fields("ModifyDate").Value = f.DateLastModified\r\n rs.Fields("Path").Value = f.Path\r\n rs.Update\r\n Next\r\n \r\n rs.Sort = "ModifyDate DESC" '\u66f4\u65b0\u65e5\u6642\u3067\u964d\u9806\u30bd\u30fc\u30c8\r\n rs.MoveFirst\r\n \r\n Do Until rs.EOF\r\n WScript.Echo rs.Fields("ModifyDate").Value & vbTab & rs.Fields("Path").Value\r\n rs.MoveNext\r\n Loop\r\n \r\n rs.Close\r\n End If\r\n End With\r\nEnd Sub<\/pre>\n\u3053\u3053\u307e\u3067\u66f8\u3044\u3066\u304a\u3044\u3066\u4f55\u3067\u3059\u304c\u3001dir<\/a>\u30b3\u30de\u30f3\u30c9(dir \/O:-D)\u3067\u4f3c\u305f\u3088\u3046\u306a\u3053\u3068\u304c\u3067\u304d\u308b\u306e\u3067\u3001\u308f\u3056\u308f\u3056\u30b9\u30af\u30ea\u30d7\u30c8\u3092\u66f8\u304f\u5fc5\u8981\u306f\u306a\u304b\u3063\u305f\u3067\u3059\u306d💦<\/p>\n