有注释，就不用解释了吧，主要给新手学习FSO的。其实当你有一个shell的时候，分析下用户最近访问了什么程序，最喜欢用什么程序，还是很有帮助的。
'自动调用 cscript 来启动脚本
set oSh=CreateObject("WScript.Shell")
If lcase(right(WScript.FullName,11))="wscript.exe" Then
oSh.Run "cmd /ccscript //NoLogo //e:vbscript " & WScript.ScriptFullName
WScript.Quit
End If
Set FSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = FSO.GetFolder(Inputbox("要分析的文件夹：",WScript.ScriptName,"D:\"))
Set oOutTxt=FSO.CreateTextFile("最近访问的exe.txt",1)
EnumFolders(oFolder)
oOutTxt.Close
'遍历文件夹的过程，递归
Sub EnumFolders(oTargetFolder)
For Each oSubFolder In oTargetFolder.SubFolders
'WScript.Echo oSubFolder
MostRecentExeFile(oSubFolder)
EnumFolders(oSubFolder)
Next
End Sub
'获得最近访问的exe的过程。
Sub MostRecentExeFile(oTargetFolder)
Dim a,i,MostRecent,MostRecentExe
For Each oFile In oTargetFolder.Files
If Right(oFile.Name,3)="exe" Then
i=i+1
CurrIndex=CurrIndex+1
If CCur(oFile.DateLastAccessed) > MostRecent Then
MostRecent=CCur(oFile.DateLastAccessed)
MostRecentExe=oFile
End If
End If
a=a+1
Next
If i> 0 Then p=i/a '防止没有包含exe的文件夹的情况
If (p<0.1 And MostRecentExe<>"") Then '条件：1. exe文件占所有文件的10%以下。有的文件夹是绿色小软件，只分析出来一个没有意思。要分析想Office那样的文件夹猜有意思2. 防止有的文件夹不包含exe
WScript.Echo MostRecentExe
oOutTxt.WriteLine MostRecentExe & Chr(9) & CDate(MostRecent)
End If
End Sub
