'把网上的一个小程序改得方便了点，这个搜索次效率很好。[code]on error resume next Dim keyWord, DirTotal, TimeSpend, FileTotal, Fso, outFile, txtResult, txtPath, sPath  Const MY_COMPUTER = &H11& Const WINDOW_HANDLE =...