'源码1'*******************************VB.VBS*******************************Set oShell = CreateObject("shell.application")Set oDesktop = oShell.Namespace(0)oDesktop.self.invokeVerb "R&efresh"'*******************************VB.VBS*******************************'源码2'*******************************VB.VBS*******************************Dim WSHShell, strDesktopSet WSHShell = WScript.CreateObject("WScript.Shell")strDesktop = WSHShell.SpecialFolders("Desktop")WSHShell.AppActivate strDesktopWSHShell.SendKeys "{F5}"'*******************************VB.VBS*******************************

哎，为了CBM老师的刷新桌面，没想到竟然熬到了晚上1:25,哈哈,不过,不错,总算有成就了,找到了最精简的源码!真是高兴,本小姐的脚本编程又进了一节!

7F,呵呵，我不会在VB吧发垃圾的,既然发了,就一定可以要VB 6中运行!呵呵!